[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-12-g936d0b

From: Ludovic Courtès
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-12-g936d0bf
Date: Wed, 16 Nov 2011 14:12:05 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, stable-2.0 has been updated
       via  936d0bf3218bda64a46679524cc0149d11883d43 (commit)
      from  d61d6686543c9656d2a7273e104172052f951f7c (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 936d0bf3218bda64a46679524cc0149d11883d43
Author: Ludovic Courtès <address@hidden>
Date:   Wed Nov 16 15:11:55 2011 +0100

    Re-enable a couple of evaluator tests.
    These tests had been disabled as part of
    b7742c6b7132544b9d6cd9cb32c09e2084ad9e52 ("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
      ee15aa46e3fb29e609bd7c431e8f2676f6573d57 ("set names of functions
      defined at the toplevel from `eval'").
      ("stacks")["arguments of a gsubr stack frame"]: Remove (throw


Summary of changes:
 test-suite/tests/eval.test |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 9d6bc6d..fe73707 100644
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -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 ()

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]