[uim-commit] r2000 - trunk/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-05 05:36:57 -0800 (Sat, 05 Nov 2005)
New Revision: 2000

Modified:
   trunk/test/test-lazy-load.scm
Log:
* test/test-lazy-load.scm
  - (test register-stub-im): Fix broken uim-sh interaction


Modified: trunk/test/test-lazy-load.scm
===================================================================
--- trunk/test/test-lazy-load.scm	2005-11-05 13:24:58 UTC (rev 1999)
+++ trunk/test/test-lazy-load.scm	2005-11-05 13:36:57 UTC (rev 2000)
@@ -29,7 +29,7 @@
 ;;; SUCH DAMAGE.
 ;;;;
 
-;; This file is tested with revision 327 of new repository
+;; This file is tested with revision 2000 of new repository
 
 (use test.unit)
 
@@ -97,8 +97,12 @@
    (uim '(define im-update-preedit (lambda arg #f)))
    (uim '(define im-pushback-preedit (lambda arg #f)))
 
-   (uim '(create-context 0 #f 'hangul2))
-   (uim '(define test-context (find-context 0)))
+   (uim '(begin
+	   (create-context 0 #f 'hangul2)
+	   #f))
+   (uim '(begin
+	   (define test-context (find-context 0))
+	   #f))
    (assert-equal 'hangul2
 		 (uim '(im-name (context-im test-context))))
    (assert-equal "hangul"