diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-02 21:49:39 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-02 21:49:39 -0700 |
commit | 68177c6823e9945292eb61fff889c0bcec90bcc4 (patch) | |
tree | bf9b95911847b25b294e2fbdbdb08c6abb4d055f /tests/012 | |
parent | 5042c57451f48a6e748416cf386b20f7b1a5a5e9 (diff) | |
download | txr-68177c6823e9945292eb61fff889c0bcec90bcc4.tar.gz txr-68177c6823e9945292eb61fff889c0bcec90bcc4.tar.bz2 txr-68177c6823e9945292eb61fff889c0bcec90bcc4.zip |
tests: simplify file name handling in compile test.
* tests/012/compile.tl: Remove suffixes from name list, and
simplify code.
Diffstat (limited to 'tests/012')
-rw-r--r-- | tests/012/compile.tl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/012/compile.tl b/tests/012/compile.tl index 4dce343a..d21d91c9 100644 --- a/tests/012/compile.tl +++ b/tests/012/compile.tl @@ -3,12 +3,12 @@ (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")) - (let ((exf `@{%this-dir%}/@(regsub (fr$ #/.tl/) ".expected" f)`)) +(each ((f '#"aseq ashwin circ cont defset except \ + fini ifa man-or-boy oop-mi oop-seq oop \ + parse quasi quine seq stslot")) + (let ((exf `@{%this-dir%}/@f.expected`)) (when (path-exists-p exf) (file-append-string %expected-file% (file-get-string exf)))) - (compile-file f "temp.tlo") + (compile-file `@f.tl` "temp.tlo") (remove-path "temp.tlo")) |