summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
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")))