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.

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")))