From 93661b30a25cce377935e61a6a330fa6c761fdd3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 26 Jul 2023 17:28:10 -0700 Subject: 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. --- tests/011/patmatch.tl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'tests') 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"))) -- cgit v1.2.3