diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-22 07:27:17 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-22 07:27:17 -0700 |
commit | b52a203671603e1e5385e0fa36779e12b6a8d38a (patch) | |
tree | 4a26e8733525790d4443be1b287c8ec71182ee99 /tests | |
parent | 1e74c95c57e9e5c6e4650b9817de265cfbc8afe2 (diff) | |
download | txr-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.tl | 19 |
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"))) |