bldc/tests/test_spawn_trap_2.lisp

13 lines
199 B
Common Lisp
Raw Normal View History

(define t1 (lambda (x)
(+ x 100 'apa)))
(spawn-trap t1 50)
(check (eq (recv ((exit-error (? tid) (? e)) e)
((exit-ok (? tid) (? r)) r))
type_error))