Author: yamakenz
Date: Sat Mar 1 20:54:56 2008
New Revision: 5263
Removed:
trunk/test/test-slib.scm
Modified:
trunk/test/test-util.scm
trunk/test/uim-test-utils.scm
Log:
* test/uim-test-utils.scm
- Fix unset LIBUIM_PLUGIN_LIB_DIR
* test/test-slib.scm
- Removed since the R5RS tests are no longer needed and
replaced with the tests of SigScheme
* test/test-util.scm
- Fix alist-delete tests involving SIOD-dependent '=' behavior
Modified: trunk/test/test-util.scm
==============================================================================
--- trunk/test/test-util.scm (original)
+++ trunk/test/test-util.scm Sat Mar 1 20:54:56 2008
@@ -1881,11 +1881,17 @@
("1" 1 one)
("3" 3 three))
(uim '(alist-delete "5" alist-str)))
+ (assert-error (lambda ()
+ '(("23" 23 twentythree)
+ ("1" 1 one)
+ ("5" 5 five)
+ ("3" 3 three))
+ (uim '(alist-delete "5" alist-str =))))
(assert-equal '(("23" 23 twentythree)
("1" 1 one)
("5" 5 five)
("3" 3 three))
- (uim '(alist-delete "5" alist-str =)))
+ (uim '(alist-delete "5" alist-str eqv?)))
(assert-equal '(("23" 23 twentythree)
("1" 1 one)
("3" 3 three))
Modified: trunk/test/uim-test-utils.scm
==============================================================================
--- trunk/test/uim-test-utils.scm (original)
+++ trunk/test/uim-test-utils.scm Sat Mar 1 20:54:56 2008
@@ -44,6 +44,9 @@
(sys-putenv "LIBUIM_SYSTEM_SCM_FILES" (string-append (sys-realpath ".")
"/sigscheme/lib"))
(sys-putenv "LIBUIM_SCM_FILES" (string-append (sys-realpath ".") "/scm"))
+;; FIXME: '.libs' is hardcoded
+(sys-putenv "LIBUIM_PLUGIN_LIB_DIR"
+ (string-append (sys-realpath ".") "/uim/.libs"))
(sys-putenv "LIBUIM_VERBOSE" "2") ;; must be 1 or 2 (2 enables backtrace)
(sys-putenv "LIBUIM_VANILLA" "1")
