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

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

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

revision 1.2 by mvo, Mon May 6 18:52:01 2002 UTC revision 1.3 by dirk, Tue Oct 7 22:00:05 2003 UTC
# Line 20  Line 20 
20  ;; These tests are in a module so that the syntax transformer does not  ;; These tests are in a module so that the syntax transformer does not
21  ;; affect code outside of this file.  ;; affect code outside of this file.
22  ;;  ;;
23  (define-module (syncase-test))  (define-module (test-suite test-syncase)
24      :use-module (test-suite lib))
 (use-modules (test-suite lib))  
25    
26  (pass-if "(ice-9 syncase) loads"  (pass-if "(ice-9 syncase) loads"
27           (false-if-exception    (false-if-exception
28            (begin (eval '(use-syntax (ice-9 syncase)) (current-module))     (begin (eval '(use-syntax (ice-9 syncase)) (current-module))
29                   #t)))            #t)))
30    
31  (define-syntax plus  (define-syntax plus
32    (syntax-rules ()    (syntax-rules ()
33      ((plus x ...) (+ x ...))))      ((plus x ...) (+ x ...))))
34    
35  (pass-if "basic syncase macro"  (pass-if "basic syncase macro"
36           (= (plus 1 2 3) (+ 1 2 3)))    (= (plus 1 2 3) (+ 1 2 3)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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