From 0e2428b49e3db6c8853f1a1268ca204569c65895 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 22 Apr 2021 07:27:17 -0700 Subject: 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. --- tests/011/patmatch.tl | 19 +++++++++++++------ 1 file 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"))) -- cgit v1.2.3