1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
@echo off
rem Part of Scheme 48 1.9. See file COPYING for notices and license.
rem
rem Authors: Mike Sperber, Marcus Crestani
rem
set runnable="%~1"
echo ,batch > check.input
echo ,exec ,load =scheme48/debug/check.scm >> check.input
echo ,config ,load =scheme48/test-packages.scm >> check.input
echo ,open base-test >> check.input
echo ,open big-test >> check.input
echo ,open sockets-test >> check.input
echo ,open tconc-queue-test >> check.input
echo ,open transport-link-cell-test >> check.input
echo ,open tlc-table-test >> check.input
echo ,open env-test >> check.input
echo ,config ,load =scheme48/sort/test-packages.scm >> check.input
echo ,open sort-test >> check.input
echo ,config ,load =scheme48/misc/packages.scm >> check.input
echo ,config ,load =scheme48/misc/test-packages.scm >> check.input
echo ,open misc-test >> check.input
echo ,config ,load =scheme48/r6rs/test-packages.scm >> check.input
echo ,open r6rs-test >> check.input
echo ,config ,load =scheme48/cml/test-packages.scm >> check.input
echo ,open cml-test >> check.input
echo ,config ,load =scheme48/srfi/test-packages.scm >> check.input
echo ,open portable-srfi-test >> check.input
echo ,config ,load =scheme48/ffi-test/test-packages.scm >> check.input
echo ,open ffi-test >> check.input
echo ,open test-suites >> check.input
echo (define-test-suite all-tests (compiler-tests base-tests big-tests misc-tests tcp-sockets-tests tconc-queue-tests transport-link-cell-tests tlc-table-tests tlc-table-weak-tests sort-tests env-tests r6rs-tests cml-tests portable-srfi-tests ffi-tests)) >> check.input
echo (run-test-suite all-tests) >> check.input
%runnable% -h 8000000 < check.input
|
