factor: trim using lists

[factor.git] / basis / concurrency / flags / flags-tests.factor

diff --git a/basis/concurrency/flags/flags-tests.factor b/basis/concurrency/flags/flags-tests.factor
index 4ea2105b35ecc987e6ece6e332ddbc9402d8b8b4..ecb64002124ef34cfff612076b846c62f2cd26db 100644 (file)
--- a/basis/concurrency/flags/flags-tests.factor
+++ b/basis/concurrency/flags/flags-tests.factor
@@ -1,5 +1,5 @@
 USING: tools.test concurrency.flags concurrency.combinators
-kernel threads locals accessors calendar ;
+kernel threads accessors calendar ;
 IN: concurrency.flags.tests
 
 :: flag-test-1 ( -- val )
@@ -8,7 +8,7 @@ IN: concurrency.flags.tests
     f lower-flag
     f value>> ;
 
-[ f ] [ flag-test-1 ] unit-test
+{ f } [ flag-test-1 ] unit-test
 
 :: flag-test-2 ( -- ? )
     <flag> :> f
@@ -16,14 +16,14 @@ IN: concurrency.flags.tests
     f lower-flag
     f value>> ;
 
-[ f ] [ flag-test-2 ] unit-test
+{ f } [ flag-test-2 ] unit-test
 
 :: flag-test-3 ( -- val )
     <flag> :> f
     f raise-flag
     f value>> ;
 
-[ t ] [ flag-test-3 ] unit-test
+{ t } [ flag-test-3 ] unit-test
 
 :: flag-test-4 ( -- val )
     <flag> :> f
@@ -31,7 +31,7 @@ IN: concurrency.flags.tests
     f wait-for-flag
     f value>> ;
 
-[ t ] [ flag-test-4 ] unit-test
+{ t } [ flag-test-4 ] unit-test
 
 :: flag-test-5 ( -- val )
     <flag> :> f
@@ -39,9 +39,9 @@ IN: concurrency.flags.tests
     f wait-for-flag
     f value>> ;
 
-[ t ] [ flag-test-5 ] unit-test
+{ t } [ flag-test-5 ] unit-test
 
-[ ] [
+{ } [
     { 1 2 } <flag>
     [ [ 1 seconds sleep raise-flag ] curry "Flag test" spawn drop ]
     [ [ wait-for-flag drop ] curry parallel-each ] bi