49 lines
1.4 KiB
Factor
49 lines
1.4 KiB
Factor
USING: accessors io io.encodings.ascii io.files io.files.temp
|
|
io.launcher kernel make sequences system tools.test ;
|
|
IN: compiler.tests.callback-error
|
|
|
|
: callback-error-script ( -- path )
|
|
"callback-error-script" temp-file ;
|
|
|
|
: run-vm-with-script ( -- lines )
|
|
<process>
|
|
[ vm , callback-error-script , ] { } make >>command
|
|
+closed+ >>stdin
|
|
+stdout+ >>stderr
|
|
ascii <process-reader> stream-lines ;
|
|
|
|
[ ] [
|
|
"""USING: alien alien.c-types alien.syntax kernel ;
|
|
IN: scratchpad
|
|
|
|
: callback-death ( -- callback )
|
|
void { } cdecl [ "Error!" throw ] alien-callback ;
|
|
|
|
: callback-invoke ( callback -- )
|
|
void { } cdecl alien-indirect ;
|
|
|
|
callback-death callback-invoke"""
|
|
callback-error-script ascii set-file-contents
|
|
] unit-test
|
|
|
|
! Callback error from initial thread
|
|
[ t ] [ run-vm-with-script "\"Error!\"" swap member? ] unit-test
|
|
|
|
[ ] [
|
|
"""USING: alien alien.c-types alien.syntax kernel threads ;
|
|
IN: scratchpad
|
|
|
|
: callback-death ( -- callback )
|
|
void { } cdecl [ "Error!" throw ] alien-callback ;
|
|
|
|
: callback-invoke ( callback -- )
|
|
void { } cdecl alien-indirect ;
|
|
|
|
[ callback-death callback-invoke ] in-thread
|
|
stop"""
|
|
callback-error-script ascii set-file-contents
|
|
] unit-test
|
|
|
|
! Callback error from another thread
|
|
[ t ] [ run-vm-with-script "\"Error!\"" swap member? ] unit-test
|