summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests')
-rw-r--r--test-suite/tests/goops.test4
-rw-r--r--test-suite/tests/hooks.test7
2 files changed, 1 insertions, 10 deletions
diff --git a/test-suite/tests/goops.test b/test-suite/tests/goops.test
index f2ae2b717..908d1e7ae 100644
--- a/test-suite/tests/goops.test
+++ b/test-suite/tests/goops.test
@@ -167,10 +167,6 @@
(expect-fail "bad init-thunk"
(begin
- ;; Currently UPASSing because we can't usefully get
- ;; any arity information out of interpreted
- ;; procedures. A FIXME I guess.
- (throw 'unresolved)
(catch #t
(lambda ()
(eval '(define-class <foo> ()
diff --git a/test-suite/tests/hooks.test b/test-suite/tests/hooks.test
index 3e0787685..0987f8c3c 100644
--- a/test-suite/tests/hooks.test
+++ b/test-suite/tests/hooks.test
@@ -52,12 +52,7 @@
(pass-if-exception "illegal proc"
exception:wrong-type-arg
(let ((x (make-hook 1)))
- ;; Currently fails to raise an exception
- ;; because we can't usefully get any arity
- ;; information out of interpreted procedures. A
- ;; FIXME I guess.
- (throw 'unresolved)
- (add-hook! x bad-proc)))
+ (add-hook! x bad-proc)))
(pass-if-exception "illegal hook"
exception:wrong-type-arg
(add-hook! '(foo) proc1)))