~ chicken-core (chicken-5) 20e15646b68dba64152cd0f096c4f7c99a3fc716

commit 20e15646b68dba64152cd0f096c4f7c99a3fc716
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sun May 26 17:09:33 2013 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sun May 26 17:09:33 2013 +0200

    Fix r7rs tests:
    * Add exit status to error reporting.
    * Fix some of the vector tests themselves, so they don't fail with a hard error.
    * Add r7rs-tests to the Windows batch file

diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm
index bba67291..bc21294a 100644
--- a/tests/r7rs-tests.scm
+++ b/tests/r7rs-tests.scm
@@ -53,7 +53,8 @@
 	(display "(SECTION (got expected (call)))")
 	(newline)
 	(for-each (lambda (l) (write l) (newline))
-		  errs)))
+		  errs)
+        (exit 1)))
   (newline))
 
 (SECTION 4 2 5)
@@ -74,9 +75,9 @@
 
 ;; Symbols are implicitly quoted inside self-evaluating vectors.
 ;; This is not as clear from draft 9 as it could be.
-(test '#(0 (2 2 2 2) "Anna") #(0 (2 2 2 2) "Anna"))
+(test '#(0 (2 2 2 2) "Anna") #f #(0 (2 2 2 2) "Anna"))
 (test #t vector? '#(0 (a b) c))
 (test #t vector? #(0 (a b) c))
-(test '#(0 (a b) c d #(1 2 (e) f) g) #(0 (a b) c d #(1 2 (e) f) g))
+(test '#(0 (a b) c d #(1 2 (e) f) g) #f #(0 (a b) c d #(1 2 (e) f) g))
 
 (report-errs)
diff --git a/tests/runtests.bat b/tests/runtests.bat
index 08ced0fe..c56f9a8f 100644
--- a/tests/runtests.bat
+++ b/tests/runtests.bat
@@ -284,6 +284,11 @@ echo (expect two failures)
 %interpret% -i -s r5rs_pitfalls.scm
 if errorlevel 1 exit /b 1
 
+echo "======================================== r7rs tests ..."
+echo (expect two failures)
+%interpret% -i -s r7rs-tests.scm
+if errorlevel 1 exit /b 1
+
 echo ======================================== module tests ...
 %interpret% -include-path .. -s module-tests.scm
 if errorlevel 1 exit /b 1