[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-104-g9133716

[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=9133716faaa57babe66ea53135ce86771076fe77

The branch, stable-2.0 has been updated
       via  9133716faaa57babe66ea53135ce86771076fe77 (commit)
      from  b3da54d1813f34fca31cdb5fd3db90b9141b1b7a (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 9133716faaa57babe66ea53135ce86771076fe77
Author: Ludovic Courtès <address@hidden>
Date:   Thu Jan 5 23:49:01 2012 +0100

    Fix the exception type of the (begin) test.
    
    * test-suite/tests/syntax.test (exception:zero-expression-sequence): New
      variable.
      ("begin")["legal (begin)"]: Rename to "valid (begin)".
      ["illegal (begin)"]: Ditto.  Expect `exception:zero-expression-sequence'.

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

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

diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 0f8f2be..fcc0349 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -81,6 +81,8 @@
 
 (define exception:too-many-args
   "too many arguments")
+(define exception:zero-expression-sequence
+  "sequence of zero expressions")
 
 
 ;; (put 'pass-if-syntax-error 'scheme-indent-function 1)
@@ -148,12 +150,12 @@
 
 (with-test-prefix "begin"
 
-  (pass-if "legal (begin)"
+  (pass-if "valid (begin)"
     (eval '(begin (begin) #t) (interaction-environment)))
 
   (if (not (include-deprecated-features))
-      (pass-if-syntax-error "illegal (begin)"
-        exception:generic-syncase-error
+      (pass-if-syntax-error "invalid (begin)"
+        exception:zero-expression-sequence
         (eval '(begin (if #t (begin)) #t) (interaction-environment)))))
 
 (define-syntax matches?


hooks/post-receive
-- 
GNU Guile