Restructure test-c-codegen/

hirrolot · hirrolot · commit 5dd8f04a874e · 2025-01-06T03:32:46.000+05:00
diff --git a/test-c-codegen/.gitignore b/test-c-codegen/.gitignore
@@ -1,5 +1 @@
-main.mz
-mazeppa.h
-sds*
 main
-panic
diff --git a/test-c-codegen/execution-panic/main.c b/test-c-codegen/execution-panic/main.c
@@ -1,4 +1,4 @@
-#include "mazeppa.h"
+#include "../mazeppa.h"
 
 int main(void) {
     (void)MZ_OP2(MZ_INT(I, 32, 1), div, MZ_INT(I, 32, 0));
diff --git a/test-c-codegen/execution-panic/test.sh b/test-c-codegen/execution-panic/test.sh
@@ -0,0 +1,9 @@
+#!/bin/bash
+
+set -e
+
+$CC main.c ../sds.c -lgc -o main $COMMON_OPTIONS
+if ! ./main 2>&1 >/dev/null \
+    | grep -q 'Execution panic: "out of range"'; then
+    echo "Expected a panic."
+fi
diff --git a/test-c-codegen/mazeppa.h b/test-c-codegen/mazeppa.h
@@ -0,0 +1 @@
+../c/mazeppa.h
diff --git a/test-c-codegen/sds.c b/test-c-codegen/sds.c
@@ -0,0 +1 @@
+../c/deps/sds.c
diff --git a/test-c-codegen/sds.h b/test-c-codegen/sds.h
@@ -0,0 +1 @@
+../c/deps/sds.h
diff --git a/test-c-codegen/sdsalloc.h b/test-c-codegen/sdsalloc.h
@@ -0,0 +1 @@
+../c/deps/sdsalloc.h
diff --git a/test-c-codegen/self-interpreter/main.c b/test-c-codegen/self-interpreter/main.c
@@ -1,4 +1,4 @@
-#include "mazeppa.h"
+#include "../mazeppa.h"
 
 mz_Value run(void);
 
diff --git a/test-c-codegen/self-interpreter/program.mz b/test-c-codegen/self-interpreter/program.mz
@@ -0,0 +1 @@
+../../examples/self-interpreter/main.mz
diff --git a/test-c-codegen/self-interpreter/test.sh b/test-c-codegen/self-interpreter/test.sh
@@ -0,0 +1,12 @@
+#!/bin/bash
+
+# The fact that the self-interpreter uses almost all the language features makes
+# it a good example for testing.
+
+set -e
+
+cat program.mz \
+    | ../../scripts/mazeppa.sh translate --language C --entry run \
+    | $CC -c -o program.o $COMMON_OPTIONS -xc -I.. -
+$CC main.c program.o ../sds.c -lgc -o main $COMMON_OPTIONS
+./main
diff --git a/test-c-codegen/test.sh b/test-c-codegen/test.sh
@@ -9,28 +9,16 @@ fi
 common_options="-Wall -Werror -Wno-unused-variable -Wno-infinite-recursion"
 common_options="$common_options -std=gnu11"
 
-cp -r ../c/deps/sds* .
-
 # All the examples must at least compile with no errors.
 for example in ../examples/*/; do
     cat "${example}main.mz" \
         | ../scripts/mazeppa.sh translate --language C --entry run \
-            --dump-header-to . \
         | $CC -c -o /dev/null $common_options -xc -
 done
 
-# Compile and execute the self-interpreter example (convenient for testing).
-cp ../examples/self-interpreter/main.mz main.mz
-cat main.mz \
-    | ../scripts/mazeppa.sh translate --language C --entry run \
-        --dump-header-to . \
-    | $CC -c -o program.o $common_options -xc -
-$CC main.c program.o sds.c -lgc -o main $common_options
-./main
-
-# Make sure that run-time panics work as expected.
-$CC panic.c sds.c -lgc -o panic $common_options
-if ! ./panic 2>&1 >/dev/null \
-    | grep -q 'Execution panic: "out of range"'; then
-    echo "Expected a panic."
-fi
+for test_dir in */; do
+    echo "Testing '$test_dir'..."
+    cd $test_dir
+    COMMON_OPTIONS=$common_options ./test.sh
+    cd ..
+done

-Original file line number
+Diff line change
@@ @@ -1,5 +1 @@ @@
 -main.mz
 -mazeppa.h
 -sds*
 main
 -panic
Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-#include "mazeppa.h"`
	`1`	`+#include "../mazeppa.h"`
`2`	`2`
`3`	`3`	`int main(void) {`
`4`	`4`	`(void)MZ_OP2(MZ_INT(I, 32, 1), div, MZ_INT(I, 32, 0));`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+../../examples/self-interpreter/main.mz`