[uim-commit] r2902 - in branches/r5rs/sigscheme: . test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-13 05:12:12 -0800 (Fri, 13 Jan 2006)
New Revision: 2902

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/test/test-define.scm
Log:
* sigscheme/test/test-define.scm
  - Remove invalid tests. Oops
* sigscheme/TODO
  - Update


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2006-01-13 11:32:20 UTC (rev 2901)
+++ branches/r5rs/sigscheme/TODO	2006-01-13 13:12:12 UTC (rev 2902)
@@ -1,9 +1,6 @@
 ==============================================================================
 Requirements and critical bugs:
 
-* Write test for tail expression of all tail-recursive syntaxes (and make
-  "internal defintions #4" of test-define.scm passed)
-
 * Confirm internal definition behavior as specification
   - Make all test in test-define.scm passed when SCM_STRICT_ARGCHECK
 
@@ -34,6 +31,8 @@
 
 * Confirm public API
 
+* Write test for tail expression of all tail-recursive syntaxes
+
 * Add tests for proper tail recursion with 'apply' and 'guard' to
   test-tail-rec.scm
 

Modified: branches/r5rs/sigscheme/test/test-define.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-define.scm	2006-01-13 11:32:20 UTC (rev 2901)
+++ branches/r5rs/sigscheme/test/test-define.scm	2006-01-13 13:12:12 UTC (rev 2902)
@@ -154,13 +154,6 @@
 (assert-equal? (tn)
                14
                (let ((x 5))
-                 (+ (begin
-                      (define x 6)
-                      (+ x 3))
-                    x)))
-(assert-equal? (tn)
-               14
-               (let ((x 5))
                  (+ ((lambda ()
                        (define x 6)
                        (+ x 3)))
@@ -249,13 +242,6 @@
                    (+ foo bar))))
 (assert-error  (tn)
                (lambda ()
-                 (begin
-                   (define foo 1)
-                   (set! foo 5)
-                   (define bar 2)
-                   (+ foo bar))))
-(assert-error  (tn)
-               (lambda ()
                  (lambda ()
                    (define foo 1)
                    (set! foo 5)