summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-04-22 07:27:17 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-04-22 07:27:17 -0700
commitb52a203671603e1e5385e0fa36779e12b6a8d38a (patch)
tree4a26e8733525790d4443be1b287c8ec71182ee99 /tests
parent1e74c95c57e9e5c6e4650b9817de265cfbc8afe2 (diff)
downloadtxr-b52a203671603e1e5385e0fa36779e12b6a8d38a.tar.gz
txr-b52a203671603e1e5385e0fa36779e12b6a8d38a.tar.bz2
txr-b52a203671603e1e5385e0fa36779e12b6a8d38a.zip
matcher: compile the test cases.
* tests/011/patmatch.tl: Wrap one test with compile-only and eval-only so that the compiler ignores it. Add a form at the end of the file, similarly ignored by the compiler to compile the file. This compiles and executes all the test cases.
Diffstat (limited to 'tests')
-rw-r--r--tests/011/patmatch.tl19
1 files changed, 13 insertions, 6 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl
index 87545c82..09395eba 100644
--- a/tests/011/patmatch.tl
+++ b/tests/011/patmatch.tl
@@ -230,12 +230,14 @@
((@x @y) :no-match)) 1 1]
:no-match)
-(test
- [(lambda-match
- ((0 1) :zero-one)
- ((1 0) :one-zero)
- ((@x @y) :no-match)) 1 2 3]
- :error)
+(compile-only
+ (eval-only
+ (test
+ [(lambda-match
+ ((0 1) :zero-one)
+ ((1 0) :one-zero)
+ ((@x @y) :no-match)) 1 2 3]
+ :error)))
(defun-match fib
((0) 1)
@@ -336,3 +338,8 @@
^(sys:var ,sym)))
(test (when-match (@(var= a) @(var= a)) '(1 1.0) a) 1)
+
+(compile-only
+ (eval-only
+ (compile-file (base-name *load-path*) "temp.tlo")
+ (remove-path "temp.tlo")))