factor: trim using lists

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

diff --git a/basis/concurrency/locks/locks-tests.factor b/basis/concurrency/locks/locks-tests.factor
index 84573e7bd3ea0fe0fe315dfb9f7c7a751c07af0e..f9acb5486cf2e6e2ef8d78db4da95af8eb96fc6d 100644 (file)
--- a/basis/concurrency/locks/locks-tests.factor
+++ b/basis/concurrency/locks/locks-tests.factor
@@ -1,5 +1,5 @@
 USING: tools.test concurrency.locks concurrency.count-downs
-concurrency.messaging concurrency.mailboxes locals kernel
+concurrency.messaging concurrency.mailboxes kernel
 threads sequences calendar accessors ;
 IN: concurrency.locks.tests
 
@@ -54,10 +54,10 @@ IN: concurrency.locks.tests
     c await
     v ;
 
-[ V{ 1 3 2 4 } ] [ lock-test-0 ] unit-test
-[ V{ 1 2 3 4 } ] [ lock-test-1 ] unit-test
+{ V{ 1 3 2 4 } } [ lock-test-0 ] unit-test
+{ V{ 1 2 3 4 } } [ lock-test-1 ] unit-test
 
-[ 3 ] [
+{ 3 } [
     <reentrant-lock> dup [
         [
             3
@@ -65,17 +65,17 @@ IN: concurrency.locks.tests
     ] with-lock
 ] unit-test
 
-[ ] [ <rw-lock> drop ] unit-test
+{ } [ <rw-lock> drop ] unit-test
 
-[ ] [ <rw-lock> [ ] with-read-lock ] unit-test
+{ } [ <rw-lock> [ ] with-read-lock ] unit-test
 
-[ ] [ <rw-lock> dup [ [ ] with-read-lock ] with-read-lock ] unit-test
+{ } [ <rw-lock> dup [ [ ] with-read-lock ] with-read-lock ] unit-test
 
-[ ] [ <rw-lock> [ ] with-write-lock ] unit-test
+{ } [ <rw-lock> [ ] with-write-lock ] unit-test
 
-[ ] [ <rw-lock> dup [ [ ] with-write-lock ] with-write-lock ] unit-test
+{ } [ <rw-lock> dup [ [ ] with-write-lock ] with-write-lock ] unit-test
 
-[ ] [ <rw-lock> dup [ [ ] with-read-lock ] with-write-lock ] unit-test
+{ } [ <rw-lock> dup [ [ ] with-read-lock ] with-write-lock ] unit-test
 
 :: rw-lock-test-1 ( -- v )
     <rw-lock> :> l
@@ -124,7 +124,7 @@ IN: concurrency.locks.tests
     c'' await
     v ;
 
-[ V{ 1 2 3 4 5 6 } ] [ rw-lock-test-1 ] unit-test
+{ V{ 1 2 3 4 5 6 } } [ rw-lock-test-1 ] unit-test
 
 :: rw-lock-test-2 ( -- v )
     <rw-lock> :> l
@@ -153,7 +153,7 @@ IN: concurrency.locks.tests
     c' await
     v ;
 
-[ V{ 1 2 3 } ] [ rw-lock-test-2 ] unit-test
+{ V{ 1 2 3 } } [ rw-lock-test-2 ] unit-test
 
 ! Test lock timeouts
 :: lock-timeout-test ( -- v )
@@ -187,7 +187,7 @@ IN: concurrency.locks.tests
     ] with-write-lock
 ] must-fail
 
-[ ] [
+{ } [
     <rw-lock> dup [
         dup [
             1 seconds [ ] with-read-lock-timeout