Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve testing

This commit is contained in:
retropikzel 2026-03-26 07:14:16 +02:00
parent 21b6db5305
commit 327043c4e6
1 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Makefile
View File

@ -6,6 +6,11 @@ DEBIAN_IMAGE=${SCHEME}:${DOCKER_TAG}
ALPINE_IMAGE=${SCHEME}:alpine-${DOCKER_TAG} ALPINE_IMAGE=${SCHEME}:alpine-${DOCKER_TAG}
RNRS=r7rs RNRS=r7rs
SFX=sps
ifeq "${RNRS}" "r7rs"
SFX=scm
endif
all: build all: build
build: build:
@ -22,33 +27,40 @@ test:
mkdir -p .tmp/libs/foo mkdir -p .tmp/libs/foo
mkdir -p .tmp/other_libs mkdir -p .tmp/other_libs
# R6RS testfiles # R6RS testfiles
printf "#!r6rs\n(import (rnrs) (foo bar))\n(baz)\n" > .tmp/main.sps printf "#!r6rs\n(import (rnrs))\n(display \"Hello main1\") (newline))\n" > .tmp/main1.sps
printf "#!r6rs\n(import (rnrs) (foo bar))\n(baz)\n" > .tmp/main2.sps
printf "#!r6rs\n(library (foo bar) (export baz) (import (rnrs)) (define (baz) (display \"Hello from bar.sls\") (newline)))" > .tmp/libs/foo/bar.sls printf "#!r6rs\n(library (foo bar) (export baz) (import (rnrs)) (define (baz) (display \"Hello from bar.sls\") (newline)))" > .tmp/libs/foo/bar.sls
# Racket compability testfiles # Racket compability testfiles
printf "#lang r7rs (import (scheme base)) (include \"bar.sld\")" > .tmp/libs/foo/bar.rkt printf "#lang r7rs (import (scheme base)) (include \"bar.sld\")" > .tmp/libs/foo/bar.rkt
# R7RS testfiles # R7RS testfiles
printf "(import (scheme base) (scheme write) (foo bar))\n(baz)" > .tmp/main.scm printf "(import (scheme base) (scheme write))\n(display \"Hello main1\") (newline)" > .tmp/main1.scm
printf "(import (scheme base) (scheme write) (foo bar))\n(baz)" > .tmp/main2.scm
printf "(define-library (foo bar) (import (scheme base) (scheme write)) (export baz) (include \"bar.scm\"))" > .tmp/libs/foo/bar.sld printf "(define-library (foo bar) (import (scheme base) (scheme write)) (export baz) (include \"bar.scm\"))" > .tmp/libs/foo/bar.sld
printf "(define (baz) (display \"Hello from bar.scm\") (newline))" > .tmp/libs/foo/bar.scm printf "(define (baz) (display \"Hello from bar.scm\") (newline))" > .tmp/libs/foo/bar.scm
# Tests # Tests
rm -rf .tmp/main