[uim-commit] r1034 - branches/r5rs/sigscheme/test

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-25 23:35:13 -0700 (Mon, 25 Jul 2005)
New Revision: 1034

Modified:
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-exp.scm: Added one more test for
  lexical scope.


Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-07-26 06:18:29 UTC (rev 1033)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-07-26 06:35:13 UTC (rev 1034)
@@ -1,4 +1,4 @@
-(load "test/unittest.scm")
+(load "./test/unittest.scm")
 
 ;; lambda
 (assert-eq? "basic lambda test1" 8 ((lambda (x) (+ x x)) 4))
@@ -51,7 +51,8 @@
   (let ((a 1))
     (assert-eq? "lexical scope test3" 1 a)
     (let* ((a 2))
-      (assert-eq? "lexical scope test4" 2 a))))
+      (assert-eq? "lexical scope test4" 2 a))
+    (assert-eq? "lexical scope test5" 1 a)))
 (lexical-test)
 
 ;; begin