Fixing testing. Fixing ctrf

This commit is contained in:
retropikzel 2026-03-21 12:21:31 +02:00
parent 3c722ac181
commit e6bd287fc8
4 changed files with 11 additions and 6 deletions

View File

@ -10,7 +10,9 @@ RUN apt-get update && apt-get install -y \
COPY --from=schemers/loko:head /usr/local /usr/loko
RUN cp -r /usr/loko/* /usr/local/
COPY --from=schemers/chibi:head /usr/local /usr/chibi
RUN cp -r /usr/chibi/* /usr/local/
RUN cp -r /usr/chibi/lib/* /usr/local/lib/
RUN cp -r /usr/chibi/share/* /usr/local/share/
RUN cp -r /usr/chibi/bin/*chibi* /usr/local/bin/
RUN ldconfig
ADD https://codeberg.org/retropikzel/compile-r7rs/raw/branch/main/compile-r7rs .

View File

@ -10,7 +10,6 @@ VERSION=$(shell cat retropikzel/${LIBRARY}/VERSION)
DESCRIPTION=$(shell head -n1 retropikzel/${LIBRARY}/README.md)
README=retropikzel/${LIBRARY}/README.html
TESTFILE=retropikzel/${LIBRARY}/test.scm
TEST_DEPENDS=srfi.64 retropikzel.mouth retropikzel.ctrf
SFX=scm
SNOW=snow-chibi --impls=${SCHEME} install --skip-tests?=1 --always-yes
@ -43,8 +42,11 @@ test: logs build index
rm -rf .tmp
mkdir -p .tmp
cat test-headers.${SFX} ${TESTFILE} | sed 's/LIBRARY/${LIBRARY}/' > .tmp/test.${SFX}
cd .tmp && ${SNOW} ${TEST_DEPENDS} retropikzel.${LIBRARY}
cd .tmp && akku install akku-r7rs
cd .tmp && ${SNOW} srfi.64
cd .tmp && ${SNOW} retropikzel.mouth
cd .tmp && ${SNOW} retropikzel.ctrf
cd .tmp && ${SNOW} retropikzel.${LIBRARY}
cd .tmp && akku install akku-r7rs 2> /dev/null
cd .tmp && COMPILE_R7RS=${SCHEME} CSC_OPTIONS="-L -lcurl" compile-r7rs ${LIB_PATHS} -o test test.${SFX};
cd .tmp && ./test
mv .tmp/*.json logs/ || true

View File

@ -36,7 +36,8 @@
(racket (begin (define implementation-name "racket")))
(sagittarius (begin (define implementation-name "sagittarius")))
(skint (begin (define implementation-name "skint")))
(stklos (begin (define implementation-name "stklos")))
(stklos (begin (define implementation-name "stklos"))
(export ctrf-runner))
(tr7 (begin (define implementation-name "tr7")))
(ypsilon (begin (define implementation-name "ypsilon")))
(else (begin (define implementation-name "unknown"))))

View File

@ -1 +1 @@
1.2.0
1.2.1