steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add failing callback unit test

darcs
slava 2006-12-05 21:34:46 +00:00
parent 8206f35597
commit 97491bf1b3
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
core/compiler/test/callbacks.factor
View File

@ -132,3 +132,18 @@ END-STRUCT
: callback_test_8 "int" { "foo" } "cdecl" alien-indirect ; : callback_test_8 "int" { "foo" } "cdecl" alien-indirect ;
[ 5 ] [ 10 2 make-foo callback-14 callback_test_8 ] unit-test [ 5 ] [ 10 2 make-foo callback-14 callback_test_8 ] unit-test
! Callback scheduling issue
: callback_test_9 "int" { } "cdecl" alien-indirect ;
: callback-16
"int" { } [
yield 2
] alien-callback ;
: callback-15
"int" { } [
[ callback-16 callback_test_9 ] in-thread 3
] alien-callback ;
[ 3 ] [ callback-15 callback_test_9 ] unit-test