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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-20 09:06:12 -0800 (Sun, 20 Nov 2005)
New Revision: 2193

Modified:
   branches/r5rs/sigscheme/test/test-srfi38.scm
Log:
* sigscheme/test/test-srfi38.scm
  - Fix broken form of latter test
  - Follow the specification change of external form of closure


Modified: branches/r5rs/sigscheme/test/test-srfi38.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-srfi38.scm	2005-11-20 17:01:07 UTC (rev 2192)
+++ branches/r5rs/sigscheme/test/test-srfi38.scm	2005-11-20 17:06:12 UTC (rev 2193)
@@ -49,6 +49,6 @@
             (convolution (eval (list 'lambda () a-pair) (scheme-report-environment 5))))
        (set-cdr! a-pair convolution)
        (write-with-shared-structure convolution outs)
-       (assert-equal? "#1=#<closure:(() (kar . #1#))>" outs))
+       (assert-equal? "srfi38 #2" "#1=#<closure (() (kar . #1#))>" (get-output-string outs)))
 
 (total-report)