/trunk/Examples/test-suite/chicken/testsuite.ss

 1(define (lookup-ext-tag tag)
 2  (cond
 3    ((equal? tag '(quote swig-contract-assertion-failed))
 4      '( ((exn type) #f)) )
 5    (#t '())))
 6
 7(define-macro (expect-throw tag-form form)
 8  `(if (condition-case (begin ,form #t)
 9         ,@(lookup-ext-tag tag-form)
10         ((exn) (print "The form threw a different error than expected: " ',form) (exit 1))
11         (var () (print "The form did not error as expected: " ',form) (exit 1)))
12   (begin (print "The form returned normally when it was expected to throw an error: " ',form) (exit 1))))