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 | 0e2428b49e3db6c8853f1a1268ca204569c65895 (patch) | |
| tree | 4a26e8733525790d4443be1b287c8ec71182ee99 | |
| parent | 59f7104c1ffdd36a53de5bd82e827f9e50627f1a (diff) | |
| download | txr-0e2428b49e3db6c8853f1a1268ca204569c65895.tar.gz txr-0e2428b49e3db6c8853f1a1268ca204569c65895.tar.bz2 txr-0e2428b49e3db6c8853f1a1268ca204569c65895.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.
| -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"))) |