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 ofb7742c6b71
("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 ofee15aa46e3
("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:
parent
d61d668654
commit
936d0bf321
1 changed files with 2 additions and 3 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue