summaryrefslogtreecommitdiff
path: root/test-suite/tests/eval.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/eval.test')
-rw-r--r--test-suite/tests/eval.test7
1 files changed, 5 insertions, 2 deletions
diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 074b9b136..c253b2d09 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -228,10 +228,10 @@
(with-test-prefix "define set procedure-name"
- (pass-if "closure"
+ (expect-fail "closure"
(eq? 'foo-closure (procedure-name bar-closure)))
- (pass-if "procedure-with-setter"
+ (expect-fail "procedure-with-setter"
(eq? 'foo-pws (procedure-name bar-pws))))
(if old-procnames-flag
@@ -343,6 +343,7 @@
;; The subr involving the error must appear exactly once on the stack.
(catch 'result
(lambda ()
+ (throw 'unresolved)
(start-stack 'foo
(lazy-catch 'wrong-type-arg
(lambda ()
@@ -367,6 +368,7 @@
;; application.
(catch 'result
(lambda ()
+ (throw 'unresolved)
(start-stack 'foo
(lazy-catch 'wrong-type-arg
(lambda ()
@@ -389,6 +391,7 @@
;; correct.
(catch 'result
(lambda ()
+ (throw 'unresolved)
(start-stack 'foo
(lazy-catch 'wrong-type-arg
(lambda ()