diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:59:03 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:59:03 +0200 |
| commit | fb77fc13d86c620326eb1e8c15162182e9b7d105 (patch) | |
| tree | 82932f4f136e0eb8768f71687f37610aa6f77ead /tests/let.scm | |
| parent | Remove remaining export's. (diff) | |
| download | calp-fb77fc13d86c620326eb1e8c15162182e9b7d105.tar.gz calp-fb77fc13d86c620326eb1e8c15162182e9b7d105.tar.xz | |
Fix up tests.
Diffstat (limited to 'tests/let.scm')
| -rw-r--r-- | tests/let.scm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/tests/let.scm b/tests/let.scm index 53f39e4c..02e38a42 100644 --- a/tests/let.scm +++ b/tests/let.scm @@ -1,7 +1,5 @@ (use-modules (util)) -(test-begin "let") - (test-assert (let* ((a #t)) a)) (test-assert (let* (((a . b) '(#t . #f))) a)) (test-assert (let* (((a . b) (cons* #f #t))) b)) @@ -14,5 +12,3 @@ (test-equal 30 (let* (x y) (set! x 10) (set! y 20) (+ x y))) (test-assert (let* (x) (not x))) (test-equal 6 (let* ((x 1) y z) (set! y 2) (set! z 3) (+ x y z))) - -(test-end "let") |