From 7b159a2ebffa40b98ce2fc0a464b6920ba7956d5 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 20 Sep 2025 08:30:00 +0300 Subject: [PATCH] Adding test-r7rs --- Dockerfile | 2 +- test-r7rs.scm | 12 +++++++++--- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/Dockerfile b/Dockerfile index c7ceab6..77f5df0 100644 --- a/Dockerfile +++ b/Dockerfile @@ -24,6 +24,6 @@ RUN make PREFIX=/opt/compile-r7rs build RUN make PREFIX=/opt/compile-r7rs install 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 ENV PATH=/opt/compile-r7rs/bin:${PATH} diff --git a/test-r7rs.scm b/test-r7rs.scm index 7bd3897..fd80b6b 100644 --- a/test-r7rs.scm +++ b/test-r7rs.scm @@ -277,9 +277,15 @@ (when (file-exists? build-out) (delete-file build-out)) (when (file-exists? run-out) (delete-file run-out)) (when (not (= (system docker-build-cmd) 0)) - (error (string-append "Docker container build failed, see output in " - docker-build-out) - docker-build-cmd)) + (display "Docker container build failed") + (newline) + (display "Command: ") + (display docker-build-cmd) + (newline) + (display "Output: ") + (newline) + (cat docker-build-out) + (newline)) (let* ((build-exit-code (number->string (system build-cmd))) (run-exit-code (number->string (system run-cmd))) (testname (if (and (string? run-exit-code)