From bfe5882694179c5f9a4d05ce0f2078240ce7f064 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 13 Apr 2021 07:29:21 -0700
Subject: tests: use fixed regsub in compile test.

* tests/012/compile.tl: Simplify code with regsub.
---
 tests/012/compile.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))))
-- 
cgit v1.2.3