diff options
| author | Kaz Kylheku <kazkylheku@vtech.ca> | 2021-04-13 07:29:21 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-13 07:29:21 -0700 |
| commit | f9725ac8e3ec93e94b392119cb3b1d1b992943d6 (patch) | |
| tree | a1d86e84bb7f5b477cd460dba90a2de67e5711f9 | |
| parent | c1ad83959110ff4c82af99eacbe9796148fadee5 (diff) | |
| download | txr-f9725ac8e3ec93e94b392119cb3b1d1b992943d6.tar.gz txr-f9725ac8e3ec93e94b392119cb3b1d1b992943d6.tar.bz2 txr-f9725ac8e3ec93e94b392119cb3b1d1b992943d6.zip | |
tests: use fixed regsub in compile test.
* tests/012/compile.tl: Simplify code with regsub.
| -rw-r--r-- | tests/012/compile.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/012/compile.tl b/tests/012/compile.tl index f5b260cf..4dce343a 100644 --- a/tests/012/compile.tl +++ b/tests/012/compile.tl @@ -6,7 +6,7 @@ (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%}/@(m^ #/.*[.]/ f)expected`)) + (let ((exf `@{%this-dir%}/@(regsub (fr$ #/.tl/) ".expected" f)`)) (when (path-exists-p exf) (file-append-string %expected-file% (file-get-string exf)))) |