ikarus/lib/tests-2.9-req.scm

17 lines
347 B
Scheme
Raw Normal View History

2006-11-23 19:33:45 -05:00
(add-tests-with-string-output "exit"
[(foreign-call "exit" 0) => ""]
)
(add-tests-with-string-output "S_error"
[(let ([error (lambda args
2006-11-23 19:38:26 -05:00
(foreign-call "ik_error" args))])
2006-11-23 19:33:45 -05:00
(error #f "died")
12) => ""]
2006-11-23 19:38:26 -05:00
2006-11-23 19:33:45 -05:00
[(let ([error (lambda args
2006-11-23 19:38:26 -05:00
(foreign-call "ik_error" args))])
2006-11-23 19:33:45 -05:00
(error 'car "died")
12) => ""]
)