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

[Ludovic Courtès]

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".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=936d0bf3218bda64a46679524cc0149d11883d43

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
      'unresolved).

-----------------------------------------------------------------------

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 ()


hooks/post-receive
-- 
GNU Guile