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

Fix testing

This commit is contained in:
retropikzel 2025-12-11 19:37:11 +02:00
parent 10168ce233
commit 982d23ef38
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Dockerfile.test
View File

@ -38,9 +38,9 @@ RUN bash install.sh
ENV PATH=/root/.local/bin:${PATH} ENV PATH=/root/.local/bin:${PATH}
RUN akku update RUN akku update
WORKDIR /workdir WORKDIR /workdir
RUN snow-chibi install --impls=${SCHEME} --always-yes "(srfi 64)"
RUN snow-chibi install --impls=${SCHEME} --always-yes "(srfi 180)"
RUN mkdir -p srfi RUN mkdir -p srfi
RUN for srfi in 39 60 64 145 180; do cp /build/r7rs-srfi/srfi/${srfi}.* srfi/ && cp /build/r7rs-srfi/srfi/srfi-${srfi}.* srfi/; done
RUN if [ "${SCHEME}" = "chibi" ]; then rm -rf srfi/39.*; fi
COPY Makefile . COPY Makefile .
COPY retropikzel retropikzel/ COPY retropikzel retropikzel/

2
Jenkinsfile vendored
View File

@ -41,7 +41,7 @@ pipeline {
stage('R7RS tests') { stage('R7RS tests') {
steps { steps {
script { script {
def implementations = sh(script: 'compile-scheme --list-r7rs-except cyclone foment gambit skint larceny', returnStdout: true).split() def implementations = sh(script: 'compile-scheme --list-r7rs-except cyclone foment gambit meevax skint larceny tr7', returnStdout: true).split()
params.LIBRARIES.split().each { LIBRARY -> params.LIBRARIES.split().each { LIBRARY ->
stage("${LIBRARY}") { stage("${LIBRARY}") {
parallel implementations.collectEntries { SCHEME -> parallel implementations.collectEntries { SCHEME ->

1
Makefile
View File

@ -46,6 +46,7 @@ ${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