From 68177c6823e9945292eb61fff889c0bcec90bcc4 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 2 Jul 2021 21:49:39 -0700 Subject: tests: simplify file name handling in compile test. * tests/012/compile.tl: Remove suffixes from name list, and simplify code. --- tests/012/compile.tl | 10 +++++----- 1 file 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")) -- cgit v1.2.3