tmtt/chez-openbsd
Archived
1
0
Fork 0
Code Issues Pull requests Releases 1 Activity

feat: 9.5.9

Browse source
This commit is contained in:
tmtt 2022-07-29 15:12:07 +02:00
parent cb1753732b
commit 35f43a7909
1084 changed files with 558985 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
nanopass/test-all.ss Executable file
View file

@ -0,0 +1,29 @@
;;; Copyright (c) 2000-2018 Dipanwita Sarkar, Andrew W. Keep, R. Kent Dybvig, Oscar Waddell
;;; See the accompanying file Copyright for details
(import (rnrs) (tests compiler-test) (tests helpers) (tests unit-tests) (nanopass helpers))
(printf "Running unit tests\n")
(let* ([succeeded? (run-unit-tests)]
[succeeded? (and (run-ensure-correct-identifiers) succeeded?)]
[succeeded? (and (run-maybe-tests) succeeded?)]
[succeeded? (and (run-maybe-dots-tests) succeeded?)]
[succeeded? (and (run-maybe-unparse-tests) succeeded?)]
[succeeded? (and (run-language-dot-support) succeeded?)]
[succeeded? (and (run-argument-name-matching) succeeded?)]
[succeeded? (and (run-error-messages) succeeded?)]
[succeeded? (and (run-pass-parser-unparser) succeeded?)])
(printf "Compiler loaded, running all tests (quietly)\n")
(time
(begin
(run-all-tests)
(run-all-tests)
(run-all-tests)
(run-all-tests)
(run-all-tests)
(run-all-tests)
(run-all-tests)
(run-all-tests)
(run-all-tests)
(run-all-tests)))
(exit (if succeeded? 0 1)))