(import (scheme base)
(scheme write)
(srfi 64))
(test-begin "SRFi-64")
(test-error (begin (error "Test should pass")))
(display "And the program should continue")
(newline)
(test-end "SRFi-64")
Should report 1 passed test, insted it errors and stops.