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

Improving tests

This commit is contained in:
retropikzel 2026-03-14 12:12:31 +02:00
parent 2ee47c348a
commit 808369f4e5
4 changed files with 38 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Dockerfile.test
View File

@ -25,6 +25,8 @@ RUN snow-chibi install --impls=${SCHEME} --skip-tests?=1 --always-yes retropikze
WORKDIR /workdir
ARG SCHEME=chibi
ENV COMPILE_R7RS=${SCHEME}
COPY test-headers.sps .
COPY test-headers.scm .
COPY Makefile .
COPY retropikzel retropikzel/

39
Makefile
View File

@ -12,6 +12,13 @@ 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
ifeq "${RNRS}" "r6rs"
SNOW=snow-chibi --impls=${SCHEME} install --skip-tests?=1 --always-yes --install-source-dir=. --install-library-dir=.
SFX=sps
endif
all: build
build: retropikzel/${LIBRARY}/LICENSE retropikzel/${LIBRARY}/VERSION retropikzel/${LIBRARY}/README.md
@ -27,35 +34,19 @@ install: index
uninstall:
snow-chibi remove --impls=${SCHEME} retropikzel.${LIBRARY}
test: logs build index
logs:
mkdir -p logs
# tmpdir
test: logs build index
mkdir -p .tmp
# r6rs testfiles
printf "#!r6rs\n(import (rnrs) (srfi :64) (srfi :98) (retropikzel mouth) (retropikzel ctrf) (retropikzel ${LIBRARY}))" > .tmp/test.sps
echo "(test-runner-current (ctrf-runner))" >> .tmp/test.sps
cat ${TESTFILE} >> .tmp/test.sps
# r7rs testfiles
echo "(import (scheme base) (scheme write) (scheme read) (scheme char) (scheme file) (scheme process-context) (retropikzel mouth) (srfi 64) (retropikzel ctrf) (retropikzel ${LIBRARY}))" > .tmp/test.scm
echo "(test-runner-current (ctrf-runner))" >> .tmp/test.scm
cat ${TESTFILE} >> .tmp/test.scm
# r6rs
if [ "${RNRS}" = "r6rs" ]; then \
cd .tmp \
&& snow-chibi install --impls=${SCHEME} --skip-tests?=1 --always-yes --install-source-dir=. --install-library-dir=. ${TEST_DEPENDS} retropikzel.${LIBRARY} \
&& akku install akku-r7rs 2> /dev/null \
&& COMPILE_R7RS=${SCHEME} compile-r7rs -I .akku/lib -o test test.sps; \
fi
# r7rs
if [ "${RNRS}" = "r7rs" ]; then \
cd .tmp \
&& snow-chibi install --impls=${SCHEME} retropikzel.${LIBRARY} \
&& COMPILE_R7RS=${SCHEME} CSC_OPTIONS="-L -lcurl" compile-r7rs -o test test.scm; \
fi
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 2>/dev/null
cd .tmp && COMPILE_R7RS=${SCHEME} CSC_OPTIONS="-L -lcurl" compile-r7rs -I .akku/lib -o test test.${SFX};
cd .tmp && ./test
mv .tmp/*.json logs/ || true
test-docker:
test-docker: logs
docker build --build-arg IMAGE=${IMAGE} --build-arg SCHEME=${SCHEME} -f Dockerfile.test --tag=${SCHEME}-testing .
docker run -v "${PWD}/logs:/workdir/logs" -w /workdir ${SCHEME}-testing sh -c "make SCHEME=${SCHEME} RNRS=${RNRS} LIBRARY=${LIBRARY} test"

12
test-headers.scm Normal file
View File

@ -0,0 +1,12 @@
(import (scheme base)
(scheme write)
(scheme read)
(scheme char)
(scheme file)
(scheme process-context)
(retropikzel mouth)
(srfi 64)
(retropikzel ctrf)
(retropikzel LIBRARY))
(test-runner-current (ctrf-runner))

9
test-headers.sps Normal file
View File

@ -0,0 +1,9 @@
#!r6rs
(import (rnrs)
(srfi :64)
(srfi :98)
(retropikzel mouth)
(retropikzel ctrf)
(retropikzel LIBRARY))
(test-runner-current (ctrf-runner))