1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00

Re-enable a couple of evaluator tests.

These tests had been disabled as part of
b7742c6b71 ("new evaluator, y'all").

* test-suite/tests/eval.test ("define set procedure-name")["closure"]:
  Change to `pass-if' since it now works, as a result of
  ee15aa46e3 ("set names of functions
  defined at the toplevel from `eval'").
  ("stacks")["arguments of a gsubr stack frame"]: Remove (throw
  'unresolved).
This commit is contained in:
Ludovic Courtès 2011-11-16 15:11:55 +01:00
parent d61d668654
commit 936d0bf321

View file

@ -231,10 +231,10 @@
(with-test-prefix "define set procedure-name"
(expect-fail "closure"
(pass-if "closure"
(eq? 'foo-closure (procedure-name bar-closure)))
(expect-fail "procedure-with-setter"
(expect-fail "procedure-with-setter" ; FIXME: `pass-if' when it's supported
(eq? 'foo-pws (procedure-name bar-pws))))
;;;
@ -384,7 +384,6 @@
;; correct.
(catch 'result
(lambda ()
(throw 'unresolved)
(start-stack 'foo
(lazy-catch 'wrong-type-arg
(lambda ()