Retropikzel
/
foreign-c-srfis
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing tests

This commit is contained in:
retropikzel 2026-06-28 09:40:56 +03:00
parent 975f685b0a
commit 4eb38803d7
3 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Makefile
View File

@ -13,8 +13,10 @@ TMPDIR=.tmp/${SCHEME}
PKG=srfi-${SRFI}-${VERSION}.tgz PKG=srfi-${SRFI}-${VERSION}.tgz
SFX=scm SFX=scm
AKKU_PACKAGES=
ifeq "${RNRS}" "r6rs" ifeq "${RNRS}" "r6rs"
SFX=sps SFX=sps
AKKU_PACKAGES="akku-r7rs"
endif endif
DOCKER_TAG=head DOCKER_TAG=head
@ -55,8 +57,8 @@ test: testfiles
test-docker: testfiles test-docker: testfiles
cd .tmp && \ cd .tmp && \
DOCKER_TAG=${DOCKER_TAG} \ DOCKER_TAG=${DOCKER_TAG} \
SNOW_PACKAGES="srfi.64 ${PKG}" \ SNOW_PACKAGES="srfi.19 srfi.64 foreign.c ${PKG}" \
AKKU_PACKAGES="akku-r7rs chez-srfi" \ AKKU_PACKAGES=${AKKU_PACKAGES} \
APT_PACKAGES="libcurl4-openssl-dev" \ APT_PACKAGES="libcurl4-openssl-dev" \
COMPILE_R7RS=${SCHEME} \ COMPILE_R7RS=${SCHEME} \
TEST_R7RS_DEBUG=1 \ TEST_R7RS_DEBUG=1 \

7
srfi/170/test.scm
View File

@ -10,13 +10,6 @@
(test-assert (number? niceness)) (test-assert (number? niceness))
(test-assert (> niceness 0)) (test-assert (> niceness 0))
(define ui (user-info "retropikzel"))
(write ui)
(newline)
(write (user-info:parsed-full-name ui))
(newline)
#| #|
(define tmp-dir "/tmp/foreign-c-srfi-170") (define tmp-dir "/tmp/foreign-c-srfi-170")
(for-each (for-each

2
test-headers.sps
View File

@ -1,4 +1,4 @@
(import (rnrs) (import (rnrs)
(srfi :64) (srfi :64)
(foreign c) (foreign c)
(srfi SRFI)) (srfi :SRFI))