Retropikzel
/
scheme-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve CTRF library output

This commit is contained in:
retropikzel 2025-12-14 07:47:15 +02:00
parent 5dfae3416e
commit f3ccfb7008
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -46,7 +46,6 @@ ${TMPDIR}:
test-r6rs: ${TMPDIR} test-r6rs: ${TMPDIR}
cd ${TMPDIR} && printf "#!r6rs\n(import (rnrs base) (rnrs control) (rnrs io simple) (rnrs files) (rnrs programs) (srfi :64) (retropikzel ${LIBRARY}))\n" > test-r6rs.sps cd ${TMPDIR} && printf "#!r6rs\n(import (rnrs base) (rnrs control) (rnrs io simple) (rnrs files) (rnrs programs) (srfi :64) (retropikzel ${LIBRARY}))\n" > test-r6rs.sps
cat ${TESTFILE} >> ${TMPDIR}/test-r6rs.sps cat ${TESTFILE} >> ${TMPDIR}/test-r6rs.sps
cd ${TMPDIR} && snow-chibi install --impls=generic --always-yes --install-source-dir=. --install-library-dir=. "(srfi 180)"
cd ${TMPDIR} && akku install chez-srfi akku-r7rs cd ${TMPDIR} && akku install chez-srfi akku-r7rs
cd ${TMPDIR} && COMPILE_R7RS=${SCHEME} timeout 120 compile-scheme -I .akku/lib -o test-r6rs test-r6rs.sps cd ${TMPDIR} && COMPILE_R7RS=${SCHEME} timeout 120 compile-scheme -I .akku/lib -o test-r6rs test-r6rs.sps
cd ${TMPDIR} && timeout 60 ./test-r6rs cd ${TMPDIR} && timeout 60 ./test-r6rs

13
retropikzel/ctrf.scm
View File

@ -111,7 +111,16 @@
output-file output-file
(lambda () (lambda ()
(json-write output (current-output-port)))) (json-write output (current-output-port))))
(json-write failed-tests (current-output-port)) (when (not (= (vector-length failed-tests) 0))
(newline) (display "[")
(newline)
(vector-for-each
(lambda (failed-test)
(display " ")
(json-write failed-test)
(newline))
failed-tests)
(display "]")
(newline))
(exit (+ fail xfail))))) (exit (+ fail xfail)))))
runner))) runner)))