threads: update test

2011-12-14 13:45:53 -08:00 · 2011-12-14 13:45:53 -08:00 · 6661f8fe0c
parent 9d5e676b26
commit 6661f8fe0c
1 changed files with 3 additions and 3 deletions
--- a/basis/threads/threads-tests.factor
+++ b/basis/threads/threads-tests.factor
@ -68,12 +68,12 @@ yield
 ! The unit test asserts that the callstack is empty from the
 ! quotation passed to start-context-and-delete.

-[ { } ] [
+[ 3 ] [
    <promise> [
        '[
            _ [
-                callstack swap fulfill stop
+                [ callstack swap fulfill stop ] start-context-and-delete
            ] start-context-and-delete
        ] in-thread
-    ] [ ?promise callstack>array ] bi
+    ] [ ?promise callstack>array length ] bi
 ] unit-test