diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-07-26 17:28:10 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-07-26 17:28:10 -0700 |
| commit | 93661b30a25cce377935e61a6a330fa6c761fdd3 (patch) | |
| tree | d4d09501ccd8d900489d7de122197c068f6937dc | |
| parent | 2939e92c0991ddcd90dfde57b05bd2b09bf058fc (diff) | |
| download | txr-93661b30a25cce377935e61a6a330fa6c761fdd3.tar.gz txr-93661b30a25cce377935e61a6a330fa6c761fdd3.tar.bz2 txr-93661b30a25cce377935e61a6a330fa6c761fdd3.zip | |
tests: match: move file compiling step to end.
* tests/011/patmatch.tl: Move the form which compiles the
entire file to the end of the file, so that all the
interpreted test cases complete before we compile.
| -rw-r--r-- | tests/011/patmatch.tl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/011/patmatch.tl b/tests/011/patmatch.tl index 24d7b995..2e05d59f 100644 --- a/tests/011/patmatch.tl +++ b/tests/011/patmatch.tl @@ -550,12 +550,6 @@ (match-ecase 42 (@a a)) 42 (match-ecase '(1 2) ((@a) a)) :error) -(compile-only - (eval-only - (with-compile-opts (nil unused) - (compile-file (base-name *load-path*) "temp.tlo")) - (remove-path "temp.tlo"))) - (mtest (match @`foo-@a` "foo-abc" a) "abc" (match ^(,`foo-@a`) '("foo-abc") a) "abc" @@ -588,3 +582,9 @@ (y 24)) (match-cond (`@x-24` `42-@y`))) "42-24") + +(compile-only + (eval-only + (with-compile-opts (nil unused) + (compile-file (base-name *load-path*) "temp.tlo")) + (remove-path "temp.tlo"))) |