Re: [Chicken-hackers] [PATCH] run test suite on mingw

[Felix]

From: Felix <address@hidden>
Subject: [PATCH] run test suite on mingw
Date: Thu, 27 Oct 2011 03:40:57 -0400 (EDT)

> The attached patch adds a batch file for running most of the
> tests also in a mingw Windows environment (without msys).
> 

Please try this patch instead, it fixes the test-script invocation
on Windows when running "make ... check".


cheers,
felix

>From e46421433b9673f7fd63d33d9b6859c2c2ce674f Mon Sep 17 00:00:00 2001
From: felix <address@hidden>
Date: Thu, 27 Oct 2011 09:36:35 +0200
Subject: [PATCH] Also added runtests.bat to manifest and fix invocation from
 makefile.

Squashed commit of the following:

commit 1ea3769a55398b0f8392e8b81a04afee5d9292da
Author: felix <address@hidden>
Date:   Thu Oct 27 09:35:18 2011 +0200

    completed runtests.bat

commit bdb6fdf35358ab0964ccc5af5a77d8d70612f9c6
Author: felix <address@hidden>
Date:   Wed Oct 26 11:10:17 2011 +0200

    started runtests.bat, disable arithmetic test on Windows
---
 distribution/manifest |    1 +
 rules.make            |    6 +-
 tests/runtests.bat    |  448 +++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 454 insertions(+), 1 deletions(-)
 create mode 100644 tests/runtests.bat

diff --git a/distribution/manifest b/distribution/manifest
index 2c3a43a..f92ee21 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/rules.make b/rules.make
index bd20772..b7c73bc 100644
--- a/rules.make
+++ b/rules.make
@@ -650,8 +650,12 @@ testclean:
 
 .PHONY: check 
 
-check: $(CHICKEN_SHARED_EXECUTABLE) $(CSI_SHARED_EXECUTABLE) $(CSC_PROGRAM)
+check: $(CHICKEN_SHARED_EXECUTABLE) $(CSI_SHARED_EXECUTABLE) 
$(CSC_PROGRAM)$(EXE)
+ifdef WINDOWS_SHELL
+       cd tests & runtests.bat
+else
        cd tests; sh runtests.sh
+endif
 
 
 # benchmark
diff --git a/tests/runtests.bat b/tests/runtests.bat
new file mode 100644
index 0000000..879d575
--- /dev/null
+++ b/tests/runtests.bat
@@ -0,0 +1,448 @@
address@hidden off
address@hidden 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.
-- 
1.7.6.msysgit.0