diff options
Diffstat (limited to 'tests')
-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")) |