From 786ee416f9d5aba650d95176f471bb4cbe901007 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 22 Oct 2021 22:43:15 -0700 Subject: load-time: new tests. Add three tests; the first and third fail. * tests/019/load-time.tl: New file. --- tests/019/load-time.tl | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 tests/019/load-time.tl diff --git a/tests/019/load-time.tl b/tests/019/load-time.tl new file mode 100644 index 00000000..1a326aa2 --- /dev/null +++ b/tests/019/load-time.tl @@ -0,0 +1,30 @@ +(load "../common") + +(defvarl list) + +(test + [(compile-toplevel '(progn + (push 0 list) + (load-time (push 1 list)) + list))] + (0 1)) + +(zap list) + +(test + [(compile-toplevel '(progn + (push 0 list) + (lambda () + (load-time (push 1 list))) + list))] + (0 1)) + +(zap list) + +(test + [(compile-toplevel '(progn + (load-time (push 0 list)) + (lambda () + (load-time (push 1 list))) + list))] + (1 0)) -- cgit v1.2.3