From 0784a75aab021dc3a6e5669b9f0ab15e1177ad85 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 3 Jul 2021 09:05:13 -0700
Subject: tests: support for compiled test forms.

* tests/common.tl (*compile-test*): New variable.
(vtest): Compile cases via compile-toplevel if *compile-test*
is true, catching compile-time exceptions.

* tests/012/lambda.tl: Set *compile-test* true and repeat file.
---
 tests/012/lambda.tl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'tests/012/lambda.tl')

diff --git a/tests/012/lambda.tl b/tests/012/lambda.tl
index 408ea939..2ddca48f 100644
--- a/tests/012/lambda.tl
+++ b/tests/012/lambda.tl
@@ -86,3 +86,8 @@
 (mtest
   [(lambda (x y : (a 3) (b 4)) (list x y a b)) . vl] (a b c d)
   [(lambda (x y : (a 3) (b 4)) (list x y a b)) 1 . vl] :error)
+
+(cond
+  (*compile-test* (exit t))
+  (t (set *compile-test* t)
+     (load (base-name *load-path*))))
-- 
cgit v1.2.3