From 7c9f2088270703691a896bed071c84cf9b88abbd Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 11 Apr 2021 17:44:13 -0700 Subject: compiler: new test case. * tests/012/compile.tl (new-file): Compiles a select set of .tl files in the same directory. The compile.expected file is dynamically created from catenating the .expected files corresponding to those .tl files; the output is expected to be the same from compiling those files as from interpreting them. --- tests/012/compile.tl | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 tests/012/compile.tl (limited to 'tests') diff --git a/tests/012/compile.tl b/tests/012/compile.tl new file mode 100644 index 00000000..36a285d3 --- /dev/null +++ b/tests/012/compile.tl @@ -0,0 +1,12 @@ +(defparml %this-dir% (dir-name *load-path*)) +(defparml %expected-file% `@(m^ #/.*[.]/ *load-path*)expected`) + +(file-put-string %expected-file% "") + +(each ((f '#"aseq.tl ashwin.tl circ.tl cont.tl defset.tl except.tl \ + fini.tl ifa.tl man-or-boy.tl oop-mi.tl oop-seq.tl oop.tl \ + parse.tl quasi.tl quine.tl seq.tl stslot.tl")) + (file-append-string %expected-file% + (file-get-string `@{%this-dir%}/@(m^ #/.*[.]/ f)expected`)) + (compile-file f "temp.tlo") + (remove-path "temp.tlo")) -- cgit v1.2.3