diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-03 09:05:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-03 09:05:13 -0700 |
| commit | 0784a75aab021dc3a6e5669b9f0ab15e1177ad85 (patch) | |
| tree | abcea7fc6a8b1a26be4b4cc487bd7a0ded0661aa /tests/012 | |
| parent | 42f1d8e8e0d5f1ae60743de692c4dc0e7ca87cc4 (diff) | |
| download | txr-0784a75aab021dc3a6e5669b9f0ab15e1177ad85.tar.gz txr-0784a75aab021dc3a6e5669b9f0ab15e1177ad85.tar.bz2 txr-0784a75aab021dc3a6e5669b9f0ab15e1177ad85.zip | |
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.
Diffstat (limited to 'tests/012')
| -rw-r--r-- | tests/012/lambda.tl | 5 |
1 files changed, 5 insertions, 0 deletions
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*)))) |