summaryrefslogtreecommitdiff
path: root/test-suite/tests/syntax.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/syntax.test')
-rw-r--r--test-suite/tests/syntax.test17
1 files changed, 12 insertions, 5 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index b33df7cb6..f6eb28a67 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -983,11 +983,18 @@
(with-test-prefix "break"
- (pass-if-syntax-error "too many args" exception:too-many-args
- (eval '(while #t
- (break 1))
- (interaction-environment)))
-
+ (pass-if "normal return"
+ (not (while #f (error "not reached"))))
+
+ (pass-if "no args"
+ (while #t (break)))
+
+ (pass-if "multiple values"
+ (equal? '(1 2 3)
+ (call-with-values
+ (lambda () (while #t (break 1 2 3)))
+ list)))
+
(with-test-prefix "from cond"
(pass-if "first"
(while (begin