From 97491bf1b3f0f7388e9f92722c0fbb023258933d Mon Sep 17 00:00:00 2001 From: slava Date: Tue, 5 Dec 2006 21:34:46 +0000 Subject: [PATCH] Add failing callback unit test --- core/compiler/test/callbacks.factor | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/core/compiler/test/callbacks.factor b/core/compiler/test/callbacks.factor index 280f204108..8eed90e5da 100644 --- a/core/compiler/test/callbacks.factor +++ b/core/compiler/test/callbacks.factor @@ -132,3 +132,18 @@ END-STRUCT : callback_test_8 "int" { "foo" } "cdecl" alien-indirect ; [ 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