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 |
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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))))) |