guile/guile-core/test-suite/tests syntax.test

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/03/03 09:29:09

Modified files:
        guile-core/test-suite/tests: syntax.test 

Log message:
        * tests/syntax.test ("duplicate formals"): New category, move
        appropriate tests here.  Expect them to pass.
        ("empty parentheses"): Expect to pass, bug has been fixed.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/test-suite/tests/syntax.test.diff?r1=1.1&r2=1.2

Patches:
Index: guile/guile-core/test-suite/tests/syntax.test
diff -u guile/guile-core/test-suite/tests/syntax.test:1.1 
guile/guile-core/test-suite/tests/syntax.test:1.2
--- guile/guile-core/test-suite/tests/syntax.test:1.1   Thu Mar  1 17:38:01 2001
+++ guile/guile-core/test-suite/tests/syntax.test       Sat Mar  3 09:29:09 2001
@@ -24,6 +24,8 @@
   (cons 'misc-error "^bad body"))
 (define exception:bad-formals
   (cons 'misc-error "^bad formals"))
+(define exception:duplicate-formals
+  (cons 'misc-error "^duplicate formals"))
 (define exception:bad-var
   (cons 'misc-error "^bad variable"))
 (define exception:bad/missing-clauses
@@ -41,7 +43,9 @@
     ;; is a legitimate expression.  In Scheme, combinations must
     ;; have at least one subexpression, so () is not a syntactically
     ;; valid expression.
-    (expect-fail-exception "empty parentheses \"()\""
+
+    ;; Fixed on 2001-3-3
+    (pass-if-exception "empty parentheses \"()\""
       exception:missing/extra-expr
       ())))
 
@@ -63,14 +67,18 @@
 
     (pass-if-exception "(lambda (\"a\" x) 2)"
       exception:bad-formals
-      (lambda ("a" x) 2))
+      (lambda ("a" x) 2)))
 
-    (expect-fail-exception "(lambda (x x) 1)"
-      exception:bad-formals
+  (with-test-prefix "duplicate formals"
+
+    ;; Fixed on 2001-3-3
+    (pass-if-exception "(lambda (x x) 1)"
+      exception:duplicate-formals
       (lambda (x x) 1))
 
-    (expect-fail-exception "(lambda (x x x) 1)"
-      exception:bad-formals
+    ;; Fixed on 2001-3-3
+    (pass-if-exception "(lambda (x x x) 1)"
+      exception:duplicate-formals
       (lambda (x x x) 1))))
 
 (with-test-prefix "let"