~ chicken-core (chicken-5) ddb96f9b4b6ebfe90dcb3b5a4605500b4c67a898

commit ddb96f9b4b6ebfe90dcb3b5a4605500b4c67a898
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Oct 27 09:36:35 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Oct 31 08:31:36 2011 +0100

    Also added runtests.bat to manifest.
    
    Squashed commit of the following:
    
    commit 1ea3769a55398b0f8392e8b81a04afee5d9292da
    Author: felix <felix@call-with-current-continuation.org>
    Date:   Thu Oct 27 09:35:18 2011 +0200
    
        completed runtests.bat
    
    commit bdb6fdf35358ab0964ccc5af5a77d8d70612f9c6
    Author: felix <felix@call-with-current-continuation.org>
    Date:   Wed Oct 26 11:10:17 2011 +0200
    
        started runtests.bat, disable arithmetic test on Windows

diff --git a/distribution/manifest b/distribution/manifest
index 2c3a43a3..f92ee215 100644
--- a/distribution/manifest
+++ b/distribution/manifest
@@ -116,6 +116,7 @@ tests/r4rstest.scm
 tests/null.scm
 tests/sgrep.scm
 tests/runtests.sh
+tests/runtests.bat
 tests/runbench.sh
 tests/srfi-4-tests.scm
 tests/simple-thread-test.scm
diff --git a/tests/arithmetic-test.scm b/tests/arithmetic-test.scm
index 9334b33e..751e1f3d 100644
--- a/tests/arithmetic-test.scm
+++ b/tests/arithmetic-test.scm
@@ -7,6 +7,14 @@
 ; fx-ops
 
 
+(cond-expand 
+  (windows
+   (begin
+     (print "this test can not be run on Windows")
+     (exit)))
+  (else))
+
+
 (use extras)
 
 #+use-numbers (use numbers)
diff --git a/tests/runtests.bat b/tests/runtests.bat
new file mode 100644
index 00000000..879d5759
--- /dev/null
+++ b/tests/runtests.bat
@@ -0,0 +1,448 @@
+@echo off
+@rem runtests.bat - run CHICKEN testsuite on cmd.exe with mingw
+
+setlocal enableextensions
+
+set TEST_DIR=%cd%
+set OS_NAME=WindowsNT
+
+set CHICKEN=..\chicken
+set ASMFLAGS=-Wa,-w
+set FAST_OPTIONS=-O5 -d0 -b -disable-interrupts
+
+set TYPESDB=..\types.db
+
+cp ..\libchicken.dll .
+
+set compile=..\csc -compiler %CHICKEN% -v -I.. -L.. -include-path .. -o a.out
+set compile2=..\csc -compiler %CHICKEN% -v -I.. -L.. -include-path ..
+set compile_s=..\csc -s -compiler %CHICKEN% -v -I.. -L.. -include-path ..
+set interpret=..\csi -n -include-path ..
+
+del /f /q *.exe *.so *.o *.import.* ..\foo.import.*
+
+echo ======================================== compiler tests ...
+%compile% compiler-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== compiler tests (unboxing) ...
+%compile% compiler-tests-3.scm -unsafe -unboxing
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== compiler inlining tests  ...
+%compile% inlining-tests.scm -optimize-level 3
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== scrutiny tests ...
+%compile% typematch-tests.scm -specialize -w
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+%compile% scrutiny-tests.scm -scrutinize -ignore-repository -types %TYPESDB% -verbose 2>scrutiny.out
+if errorlevel 1 exit /b 1
+
+rem this is sensitive to gensym-names, so make it optional
+if not exist scrutiny.expected copy /Y scrutiny.out scrutiny.expected
+
+fc /w scrutiny.expected scrutiny.out
+if errorlevel 1 exit /b 1
+
+%compile% scrutiny-tests-2.scm -scrutinize -analyze-only -ignore-repository -types %TYPESDB% -verbose 2>scrutiny-2.out
+if errorlevel 1 exit /b 1
+
+if not exist scrutiny-2.expected copy /Y scrutiny-2.out scrutiny-2.expected
+fc /w scrutiny-2.expected scrutiny-2.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== specialization tests ...
+del /f /q foo.types foo.import.*
+%compile% specialization-test-1.scm -emit-type-file foo.types -specialize -debug ox -emit-import-library foo
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+%compile% specialization-test-2.scm -types foo.types -specialize -debug ox
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+del /f /q foo.types foo.import.*
+
+echo ======================================== specialization benchmark ...
+%compile% fft.scm -O2 -local -d0 -disable-interrupts -b -o fft1
+if errorlevel 1 exit /b 1
+%compile% fft.scm -O2 -local -specialize -debug x -d0 -disable-interrupts -b -o fft2 -specialize
+if errorlevel 1 exit /b 1
+echo normal:
+fft1 1000 7
+if errorlevel 1 exit /b 1
+echo specialized:
+fft2 1000 7
+if errorlevel 1 exit /b 1
+
+echo ======================================== callback tests ...
+%compile% callback-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+a.out twice
+
+if errorlevel 1 (
+  echo double-return from callback failed as it should.
+) else (
+  echo double-return from callback didn't fail
+  exit /b 1
+)
+
+echo ======================================== runtime tests ...
+%interpret% -s apply-test.scm
+if errorlevel 1 exit /b 1
+%compile% test-gc-hooks.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== library tests ...
+%interpret% -s library-tests.scm
+if errorlevel 1 exit /b 1
+%interpret% -s records-and-setters-test.scm
+if errorlevel 1 exit /b 1
+%compile% records-and-setters-test.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== reader tests ...
+%interpret% -s reader-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== dynamic-wind tests ...
+%interpret% -s dwindtst.scm >dwindtst.out
+if errorlevel 1 exit /b 1
+fc /w dwindtst.expected dwindtst.out
+if errorlevel 1 exit /b 1
+%compile% dwindtst.scm
+if errorlevel 1 exit /b 1
+a.out >dwindtst.out
+if errorlevel 1 exit /b 1
+fc /w dwindtst.expected dwindtst.out
+if errorlevel 1 exit /b 1
+echo *** Skipping "feeley-dynwind" for now ***
+rem %interpret% -s feeley-dynwind.scm
+
+echo ======================================== lolevel tests ...
+%interpret% -s lolevel-tests.scm
+if errorlevel 1 exit /b 1
+%compile% lolevel-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== arithmetic tests ...
+%interpret% -D check -s arithmetic-test.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== pretty-printer tests ...
+%interpret% -s pp-test.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== evaluation environment tests ...
+%interpret% -s environment-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== syntax tests ...
+%interpret% -s syntax-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== syntax tests (compiled) ...
+%compile% syntax-tests.scm
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== syntax tests (v2, compiled) ...
+%compile% syntax-tests-2.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== meta-syntax tests ...
+%interpret% -bnq meta-syntax-test.scm -e "(import foo)" -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))"
+if errorlevel 1 exit /b 1
+%compile_s% meta-syntax-test.scm -j foo
+if errorlevel 1 exit /b 1
+%compile_s% foo.import.scm
+if errorlevel 1 exit /b 1
+%interpret% -bnq -e "(require-library meta-syntax-test)" -e "(import foo)" -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))"
+if errorlevel 1 exit /b 1
+
+echo ======================================== reexport tests ...
+%interpret% -bnq reexport-tests.scm
+if errorlevel 1 exit /b 1
+%compile% reexport-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+del /f /q reexport-m*.import*
+%compile_s% reexport-m1.scm -J
+if errorlevel 1 exit /b 1
+%compile_s% reexport-m1.import.scm
+if errorlevel 1 exit /b 1
+%interpret% -s reexport-m2.scm
+if errorlevel 1 exit /b 1
+%compile% reexport-m2.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== functor tests ...
+%interpret% -bnq simple-functors-test.scm
+if errorlevel 1 exit /b 1
+%compile% simple-functors-test.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+%interpret% -bnq functor-tests.scm
+if errorlevel 1 exit /b 1
+%compile% functor-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+%compile% -s square-functor.scm -J
+if errorlevel 1 exit /b 1
+%compile% -s square-functor.import.scm
+if errorlevel 1 exit /b 1
+%interpret% -bnq use-square-functor.scm
+if errorlevel 1 exit /b 1
+%compile% use-square-functor.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== compiler syntax tests ...
+%compile% compiler-syntax-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== import tests ...
+%interpret% -bnq import-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== import library tests ...
+del /f /q ..\foo.import.* foo.import.*
+%compile% import-library-test1.scm -emit-import-library foo
+if errorlevel 1 exit /b 1
+%interpret% -s import-library-test2.scm
+if errorlevel 1 exit /b 1
+%compile_s% foo.import.scm -o foo.import.so
+if errorlevel 1 exit /b 1
+%interpret% -s import-library-test2.scm
+if errorlevel 1 exit /b 1
+%compile% import-library-test2.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+del /f /q foo.import.*
+
+echo ======================================== optionals test ...
+%interpret% -s test-optional.scm
+if errorlevel 1 exit /b 1
+%compile% test-optional.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== syntax tests (matchable) ...
+%interpret% matchable.scm -s match-test.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== syntax tests (loopy-loop) ...
+%interpret% -s loopy-test.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== r4rstest ...
+echo (expect mult-float-print-test to fail)
+%interpret% -e "(set! ##sys#procedure->string (constantly \"#<procedure>\"))" -i -s r4rstest.scm >r4rstest.log
+if errorlevel 1 exit /b 1
+
+type r4rstest.log
+
+echo ======================================== syntax tests (r5rs_pitfalls) ...
+echo (expect two failures)
+%interpret% -i -s r5rs_pitfalls.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== module tests ...
+%interpret% -include-path .. -s module-tests.scm
+if errorlevel 1 exit /b 1
+%interpret% -include-path .. -s module-tests-2.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== module tests (compiled) ...
+%compile% module-tests-compiled.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== module tests (chained) ...
+del /f /q m*.import.* test-chained-modules.so
+%interpret% -bnq test-chained-modules.scm
+if errorlevel 1 exit /b 1
+%compile_s% test-chained-modules.scm -j m3
+if errorlevel 1 exit /b 1
+%compile_s% m3.import.scm
+if errorlevel 1 exit /b 1
+%interpret% -bn test-chained-modules.so
+if errorlevel 1 exit /b 1
+%interpret% -bn test-chained-modules.so -e "(import m3) (s3)"
+if errorlevel 1 exit /b 1
+
+echo ======================================== module tests (ec) ...
+del /f /q ec.so ec.import.*
+%interpret% -bqn ec.scm ec-tests.scm
+if errorlevel 1 exit /b 1
+%compile_s% ec.scm -emit-import-library ec -o ec.so
+if errorlevel 1 exit /b 1
+%compile_s% ec.import.scm -o ec.import.so 
+if errorlevel 1 exit /b 1
+%interpret% -bnq ec.so ec-tests.scm
+rem %compile% ec-tests.scm
+rem a.out        # takes ages to compile
+
+echo ======================================== hash-table tests ...
+%interpret% -s hash-table-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== port tests ...
+%interpret% -s port-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== fixnum tests ...
+%compile% fixnum-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== string->number tests ...
+%interpret% -s numbers-string-conversion-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== srfi-4 tests ...
+%interpret% -s srfi-4-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== condition tests ...
+%interpret% -s condition-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== srfi-18 tests ...
+%interpret% -s simple-thread-test.scm
+if errorlevel 1 exit /b 1
+%interpret% -s mutex-test.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== data-structures tests ...
+%interpret% -s data-structures-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== path tests ...
+%interpret% -bnq path-tests.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== posix tests ...
+%compile% posix-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+del /f /q /s tmpdir
+mkdir tmpdir
+echo 0 >tmpdir\.dotfile
+%interpret% -R posix -e "(delete-directory \"tmpdir\" #t)"
+if errorlevel 1 exit /b 1
+
+echo ======================================== lolevel tests ...
+%interpret% -s lolevel-tests.scm
+if errorlevel 1 exit /b 1
+%compile% lolevel-tests.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== regular expression tests ...
+%interpret% -bnq test-irregex.scm
+if errorlevel 1 exit /b 1
+%interpret% -bnq test-glob.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== compiler/nursery stress test ...
+for %%s in (100000 120000 200000 250000 300000 350000 400000 450000 500000) do (
+  echo %%s
+  ..\chicken ..\utils.scm -:s%%s -output-file tmp.c -include-path .. 
+  if errorlevel 1 exit /b 1
+)
+
+echo ======================================== symbol-GC tests ...
+%compile% symbolgc-tests.scm
+if errorlevel 1 exit /b 1
+a.out -:w
+if errorlevel 1 exit /b 1
+
+echo ======================================== finalizer tests ...
+%interpret% -s test-finalizers.scm
+if errorlevel 1 exit /b 1
+
+echo ======================================== finalizer tests (2) ...
+%compile% test-finalizers-2.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== locative stress test ...
+%compile% locative-stress-test.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== syntax-rules stress test ...
+%interpret% -bnq syntax-rule-stress-test.scm
+
+echo ======================================== embedding (1) ...
+%compile% embedded1.c
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== embedding (2) ...
+%compile% -e embedded2.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== embedding (3) ...
+%compile% -e embedded3.c embedded4.scm
+if errorlevel 1 exit /b 1
+a.out
+if errorlevel 1 exit /b 1
+
+echo ======================================== private repository test ...
+del /f /s /q tmp
+mkdir tmp
+%compile% private-repository-test.scm -private-repository -o tmp\xxx
+if errorlevel 1 exit /b 1
+tmp\xxx %CD%\tmp
+set PATH=%CD%\tmp;$PATH xxx %CD%\tmp
+rem this may crash, if the PATH contains a non-matching libchicken.dll on Windows:
+set PATH=%PATH%;%CD%\tmp xxx %CD%\tmp
+del /f /q /s rev-app rev-app-2 reverser\*.import.* reverser\*.so
+
+rem echo ======================================== reinstall tests
+rem currently disabled for windows
+
+rem echo ======================================== deployment tests
+rem currently disabled for windows
+
+echo ======================================== done.