/[guile]/guile/guile-core/test-suite/tests/syntax.test
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by dirk, Sat Oct 11 00:57:25 2003 UTC revision 1.17 by dirk, Sat Oct 11 01:52:25 2003 UTC
# Line 509  Line 509 
509    
510  (with-test-prefix "case"  (with-test-prefix "case"
511    
512      (pass-if "clause with empty labels list"
513        (case 1 (() #f) (else #t)))
514    
515    (with-test-prefix "case is hygienic"    (with-test-prefix "case is hygienic"
516    
517      (pass-if-exception "bound 'else is handled correctly"      (pass-if-exception "bound 'else is handled correctly"
# Line 558  Line 561 
561        (eval '(case 1 ("foo" "bar"))        (eval '(case 1 ("foo" "bar"))
562              (interaction-environment)))              (interaction-environment)))
563    
     ;; According to R5RS, the following one is syntactically correct.  
     ;; (pass-if-exception "(case 1 (() \"bar\"))"  
     ;;   exception:bad/missing-clauses  
     ;;   (case 1 (() "bar")))  
   
564      (pass-if-exception "(case 1 ((2) \"bar\") . \"foo\")"      (pass-if-exception "(case 1 ((2) \"bar\") . \"foo\")"
565        exception:bad-expression        exception:bad-expression
566        (eval '(case 1 ((2) "bar") . "foo")        (eval '(case 1 ((2) "bar") . "foo")

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26