diff options
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/goops.test | 4 | ||||
-rw-r--r-- | test-suite/tests/hooks.test | 7 |
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))) |