From 64db4e1b5d831dc02b59c40995f1c2c59a29bc58 Mon Sep 17 00:00:00 2001 From: retropikzel Date: Tue, 15 Jul 2025 09:03:32 +0300 Subject: [PATCH] Fixing tests --- Makefile | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Makefile b/Makefile index 7e8c25c..ef43151 100644 --- a/Makefile +++ b/Makefile @@ -33,7 +33,7 @@ test-r6rs: ${R6RSTMP} printf "(library (foo bar) (export baz) (import (rnrs)) (define baz (lambda () (display \"Test successfull\") (newline))))" > ${R6RSTMP}/libs/foo/bar.sls printf "(import (rnrs) (foo bar)) (baz)" > ${R6RSTMP}/main.sps cd ${R6RSTMP} && COMPILE_R7RS=${SCHEME} compile-r7rs -I ./libs -o main main.sps - -cd ${R6RSTMP} && ./main > ${R6RSTMP}/compile-r7rs-test-result.txt 2>&1 + -cd ${R6RSTMP} && timeout 60 ./main > ${R6RSTMP}/compile-r7rs-test-result.txt 2>&1 @grep "Test successfull" ${R6RSTMP}/compile-r7rs-test-result.txt || (echo "Test failed, output: " && cat ${R6RSTMP}/compile-r7rs-test-result.txt && exit 1) ${R6RSTMP}: @@ -49,7 +49,7 @@ test-r7rs: ${R7RSTMP} echo "(define baz (lambda () (display \"Test successfull\") (newline)))" > ${R7RSTMP}/libs/foo/bar.scm echo "(define-library (foo bar) (import (scheme base) (scheme write)) (export baz) (include \"bar.scm\"))" > ${R7RSTMP}/libs/foo/bar.sld cd ${R7RSTMP} && COMPILE_R7RS=${SCHEME} compile-r7rs -I ./snow -o main main.scm - -cd ${R7RSTMP} && ./main > ${R7RSTMP}/compile-r7rs-test-result.txt 2>&1 + -cd ${R7RSTMP} && timeout 60 ./main > ${R7RSTMP}/compile-r7rs-test-result.txt 2>&1 @grep "Test successfull" ${R7RSTMP}/compile-r7rs-test-result.txt || (echo "Test failed, output: " && cat ${R7RSTMP}/compile-r7rs-test-result.txt && exit 1) ${R7RSTMP}: