/[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.9 by dirk, Sat Nov 17 11:44:06 2001 UTC revision 1.10 by dirk, Wed Apr 23 19:04:00 2003 UTC
# Line 97  Line 97 
97    
98      (pass-if-exception "(lambda \"foo\" #f)"      (pass-if-exception "(lambda \"foo\" #f)"
99        exception:bad-formals        exception:bad-formals
100        (lambda "foo" #f))        (eval '(lambda "foo" #f)
101                (interaction-environment)))
102    
103      (pass-if-exception "(lambda (x 1) 2)"      (pass-if-exception "(lambda (x 1) 2)"
104        exception:bad-formals        exception:bad-formals
# Line 175  Line 176 
176    
177      (pass-if-exception "(let ((1 2)) 3)"      (pass-if-exception "(let ((1 2)) 3)"
178        exception:bad-var        exception:bad-var
179        (let ((1 2)) 3)))        (eval '(let ((1 2)) 3)
180                (interaction-environment))))
181    
182    (with-test-prefix "duplicate bindings"    (with-test-prefix "duplicate bindings"
183    
# Line 257  Line 259 
259    
260      (pass-if-exception "(let* x ())"      (pass-if-exception "(let* x ())"
261        exception:bad-bindings        exception:bad-bindings
262        (let* x ()))        (eval '(let* x ())
263                (interaction-environment)))
264    
265      (pass-if-exception "(let* x (y))"      (pass-if-exception "(let* x (y))"
266        exception:bad-bindings        exception:bad-bindings
267        (let* x (y)))        (eval '(let* x (y))
268                (interaction-environment)))
269    
270      (pass-if-exception "(let* ((1 2)) 3)"      (pass-if-exception "(let* ((1 2)) 3)"
271        exception:bad-var        exception:bad-var
272        (let* ((1 2)) 3)))        (eval '(let* ((1 2)) 3)
273                (interaction-environment))))
274    
275    (with-test-prefix "bad body"    (with-test-prefix "bad body"
276    
# Line 314  Line 319 
319    
320      (pass-if-exception "(letrec x ())"      (pass-if-exception "(letrec x ())"
321        exception:bad-bindings        exception:bad-bindings
322        (letrec x ()))        (eval '(letrec x ())
323                (interaction-environment)))
324    
325      (pass-if-exception "(letrec x (y))"      (pass-if-exception "(letrec x (y))"
326        exception:bad-bindings        exception:bad-bindings
327        (letrec x (y)))        (eval '(letrec x (y))
328                (interaction-environment)))
329    
330      (pass-if-exception "(letrec ((1 2)) 3)"      (pass-if-exception "(letrec ((1 2)) 3)"
331        exception:bad-var        exception:bad-var
332        (letrec ((1 2)) 3)))        (eval '(letrec ((1 2)) 3)
333                (interaction-environment))))
334    
335    (with-test-prefix "duplicate bindings"    (with-test-prefix "duplicate bindings"
336    
# Line 346  Line 354 
354    
355      (pass-if-exception "(if)"      (pass-if-exception "(if)"
356        exception:missing/extra-expr        exception:missing/extra-expr
357        (if))        (eval '(if)
358                (interaction-environment)))
359    
360      (pass-if-exception "(if 1 2 3 4)"      (pass-if-exception "(if 1 2 3 4)"
361        exception:missing/extra-expr        exception:missing/extra-expr
362        (if 1 2 3 4))))        (eval '(if 1 2 3 4)
363                (interaction-environment)))))
364    
365  (with-test-prefix "cond"  (with-test-prefix "cond"
366    
# Line 487  Line 497 
497    
498      (pass-if-exception "(set!)"      (pass-if-exception "(set!)"
499        exception:missing/extra-expr        exception:missing/extra-expr
500        (set!))        (eval '(set!)
501                (interaction-environment)))
502    
503      (pass-if-exception "(set! 1)"      (pass-if-exception "(set! 1)"
504        exception:missing/extra-expr        exception:missing/extra-expr
505        (set! 1))        (eval '(set! 1)
506                (interaction-environment)))
507    
508      (pass-if-exception "(set! 1 2 3)"      (pass-if-exception "(set! 1 2 3)"
509        exception:missing/extra-expr        exception:missing/extra-expr
510        (set! 1 2 3)))        (eval '(set! 1 2 3)
511                (interaction-environment))))
512    
513    (with-test-prefix "bad variable"    (with-test-prefix "bad variable"
514    
515      (pass-if-exception "(set! \"\" #t)"      (pass-if-exception "(set! \"\" #t)"
516        exception:bad-var        exception:bad-var
517        (set! "" #t))        (eval '(set! "" #t)
518                (interaction-environment)))
519    
520      (pass-if-exception "(set! 1 #t)"      (pass-if-exception "(set! 1 #t)"
521        exception:bad-var        exception:bad-var
522        (set! 1 #t))        (eval '(set! 1 #t)
523                (interaction-environment)))
524    
525      (pass-if-exception "(set! #t #f)"      (pass-if-exception "(set! #t #f)"
526        exception:bad-var        exception:bad-var
527        (set! #t #f))        (eval '(set! #t #f)
528                (interaction-environment)))
529    
530      (pass-if-exception "(set! #f #t)"      (pass-if-exception "(set! #f #t)"
531        exception:bad-var        exception:bad-var
532        (set! #f #t))        (eval '(set! #f #t)
533                (interaction-environment)))
534    
535      (pass-if-exception "(set! #\space #f)"      (pass-if-exception "(set! #\space #f)"
536        exception:bad-var        exception:bad-var
537        (set! #\space #f))))        (eval '(set! #\space #f)
538                (interaction-environment)))))
539    
540  (with-test-prefix "quote"  (with-test-prefix "quote"
541    
# Line 525  Line 543 
543    
544      (pass-if-exception "(quote)"      (pass-if-exception "(quote)"
545        exception:missing/extra-expr        exception:missing/extra-expr
546        (quote))        (eval '(quote)
547                (interaction-environment)))
548    
549      (pass-if-exception "(quote a b)"      (pass-if-exception "(quote a b)"
550        exception:missing/extra-expr        exception:missing/extra-expr
551        (quote a b))))        (eval '(quote a b)
552                (interaction-environment)))))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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