Revision: 6600
Author: ek.kato
Date: Tue Jul 27 01:51:22 2010
Log: * test/test-lazy-load.scm
- (setup) : Set enable-lazy-loading? #t not to use
require-module in loader.scm.
- (test-stub-im-generate-stub-im-list) : Set
installed-im-module-list first.
http://code.google.com/p/uim/source/detail?r=6600
Modified:
/trunk/test/test-lazy-load.scm
=======================================
--- /trunk/test/test-lazy-load.scm Sun Apr 4 20:35:54 2010
+++ /trunk/test/test-lazy-load.scm Tue Jul 27 01:51:22 2010
@@ -35,6 +35,7 @@
(define (setup)
(uim-test-setup)
;; Cancels LIBUIM_VANILLA=1. See init.scm for further details.
+ (uim-eval '(set! enable-lazy-loading? #t))
(uim-eval '(load-enabled-modules))
(uim-define-siod-compatible-require)
(uim-eval '(require "lazy-load.scm")))
@@ -153,7 +154,8 @@
'(begin
(set! im-list ())
(undefine *tcode.scm-loaded*)
- (undefine *hangul.scm-loaded*)))
+ (undefine *hangul.scm-loaded*)
+ (set! installed-im-module-list '("tcode" "hangul"))))
(assert-uim-false '(symbol-bound? '*tcode.scm-loaded*))
(assert-uim-false '(symbol-bound? '*hangul.scm-loaded*))
