diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-11 17:44:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-11 17:44:13 -0700 |
| commit | 7c9f2088270703691a896bed071c84cf9b88abbd (patch) | |
| tree | 11505cd5ebe461afccc8124cfc3e22302c54df66 /tests/012 | |
| parent | fe1324ffb8d64e33036563c6e64a03df4bf6adda (diff) | |
| download | txr-7c9f2088270703691a896bed071c84cf9b88abbd.tar.gz txr-7c9f2088270703691a896bed071c84cf9b88abbd.tar.bz2 txr-7c9f2088270703691a896bed071c84cf9b88abbd.zip | |
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.
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/compile.tl | 12 |
1 files changed, 12 insertions, 0 deletions
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")) |