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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-01 00:26:58 -0700 (Sat, 01 Oct 2005)
New Revision: 1729

Modified:
   branches/r5rs/sigscheme/runtest-tail-rec.sh
   branches/r5rs/sigscheme/test/test-tail-rec.scm
Log:
* sigscheme/runtest-tail-rec.sh
* sigscheme/test/test-tail-rec.scm
  - Modify some messages


Modified: branches/r5rs/sigscheme/runtest-tail-rec.sh
===================================================================
--- branches/r5rs/sigscheme/runtest-tail-rec.sh	2005-10-01 07:24:08 UTC (rev 1728)
+++ branches/r5rs/sigscheme/runtest-tail-rec.sh	2005-10-01 07:26:58 UTC (rev 1729)
@@ -2,4 +2,4 @@
 
 TEST=test/test-tail-rec.scm
 
-ulimit -s 128 && ulimit -d 2048 && ./sscm $TEST || echo 'exploded'
+ulimit -s 128 && ulimit -d 2048 && ./sscm $TEST || echo 'correctly exploded'

Modified: branches/r5rs/sigscheme/test/test-tail-rec.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-tail-rec.scm	2005-10-01 07:24:08 UTC (rev 1728)
+++ branches/r5rs/sigscheme/test/test-tail-rec.scm	2005-10-01 07:26:58 UTC (rev 1729)
@@ -63,7 +63,7 @@
     ;; been evaluated
     (display msg)
     (assert-orig msg exp)
-    (display " ...done\n")))
+    (display " ...OK\n")))
 
 
 (define rec-by-if-consequent
@@ -981,7 +981,7 @@
 ;; <system dependent ulimit exceeded error message>
 ;; exploded
 (total-report)
-(display "check intentional 'exploded' message printed below")
+(display "check intentional 'correctly exploded' message printed below")
 (newline)
 
 ;; test whether the explosive-count is actually explosive