Retropikzel
/
compile-r7rs
1
0
Fork 0
Code Issues 8 Pull Requests Releases Activity

Adding test-r7rs

This commit is contained in:
retropikzel 2025-09-20 08:30:00 +03:00
parent c2fcf4acd8
commit 7b159a2ebf
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Dockerfile
View File

@ -24,6 +24,6 @@ RUN make PREFIX=/opt/compile-r7rs build
RUN make PREFIX=/opt/compile-r7rs install RUN make PREFIX=/opt/compile-r7rs install
FROM schemers/chibi FROM schemers/chibi
RUN apt-get update && apt-get install -y docker.io podman make RUN apt-get update && apt-get install -y podman-docker make
COPY --from=build /opt/compile-r7rs /opt/compile-r7rs COPY --from=build /opt/compile-r7rs /opt/compile-r7rs
ENV PATH=/opt/compile-r7rs/bin:${PATH} ENV PATH=/opt/compile-r7rs/bin:${PATH}

12
test-r7rs.scm
View File

@ -277,9 +277,15 @@
(when (file-exists? build-out) (delete-file build-out)) (when (file-exists? build-out) (delete-file build-out))
(when (file-exists? run-out) (delete-file run-out)) (when (file-exists? run-out) (delete-file run-out))
(when (not (= (system docker-build-cmd) 0)) (when (not (= (system docker-build-cmd) 0))
(error (string-append "Docker container build failed, see output in " (display "Docker container build failed")
docker-build-out) (newline)
docker-build-cmd)) (display "Command: ")
(display docker-build-cmd)
(newline)
(display "Output: ")
(newline)
(cat docker-build-out)
(newline))
(let* ((build-exit-code (number->string (system build-cmd))) (let* ((build-exit-code (number->string (system build-cmd)))
(run-exit-code (number->string (system run-cmd))) (run-exit-code (number->string (system run-cmd)))
(testname (if (and (string? run-exit-code) (testname (if (and (string? run-exit-code)