ikarus/scheme/tests/tests-2.9-req.scm

17 lines
347 B
Scheme
Raw Normal View History

(add-tests-with-string-output "exit"
[(foreign-call "exit" 0) => ""]
)
(add-tests-with-string-output "S_error"
[(let ([error (lambda args
(foreign-call "ik_error" args))])
(error #f "died")
12) => ""]
[(let ([error (lambda args
(foreign-call "ik_error" args))])
(error 'car "died")
12) => ""]
)