diff options
Diffstat (limited to 'tests/019/load-time.tl')
| -rw-r--r-- | tests/019/load-time.tl | 30 |
1 files changed, 30 insertions, 0 deletions
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)) |