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

Improve testing

This commit is contained in:
retropikzel 2025-12-12 12:27:41 +02:00
parent 0a35e08716
commit 5dfae3416e
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Jenkinsfile vendored
View File

@ -28,7 +28,7 @@ pipeline {
[(SCHEME): { [(SCHEME): {
stage("${SCHEME}") { stage("${SCHEME}") {
catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') { catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
sh "make SCHEME=${SCHEME} DOCKER_QUIET='' test-r6rs-docker" sh "timeout 600 make SCHEME=${SCHEME} DOCKER_QUIET='' test-r6rs-docker"
} }
} }
}] }]
@ -48,7 +48,7 @@ pipeline {
[(SCHEME): { [(SCHEME): {
stage("${SCHEME}") { stage("${SCHEME}") {
catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') { catchError(buildResult: 'SUCCESS', stageResult: 'FAILURE') {
sh "make SCHEME=${SCHEME} DOCKER_QUIET='' test-r7rs-docker" sh "timeout 600 make SCHEME=${SCHEME} DOCKER_QUIET='' test-r7rs-docker"
} }
} }
}] }]

2
Makefile
View File

@ -59,7 +59,7 @@ test-r6rs-docker: ${TMPDIR}
test-r7rs: ${TMPDIR} test-r7rs: ${TMPDIR}
cd ${TMPDIR} && echo "(import (scheme base) (scheme write) (scheme read) (scheme char) (scheme file) (scheme process-context) (srfi 64) (retropikzel ${LIBRARY}))" > test-r7rs.scm cd ${TMPDIR} && echo "(import (scheme base) (scheme write) (scheme read) (scheme char) (scheme file) (scheme process-context) (srfi 64) (retropikzel ${LIBRARY}))" > test-r7rs.scm
cat ${TESTFILE} >> ${TMPDIR}/test-r7rs.scm cat ${TESTFILE} >> ${TMPDIR}/test-r7rs.scm
cd ${TMPDIR} && COMPILE_R7RS=${SCHEME} timeout 120 compile-scheme -I . -o test-r7rs test-r7rs.scm cd ${TMPDIR} && COMPILE_R7RS=${SCHEME} timeout 120 compile-scheme -o test-r7rs test-r7rs.scm
cd ${TMPDIR} && timeout 60 ./test-r7rs cd ${TMPDIR} && timeout 60 ./test-r7rs
test-r7rs-docker: ${TMPDIR} test-r7rs-docker: ${TMPDIR}