]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/persistent/deques/deques-tests.factor
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
[factor.git] / basis / persistent / deques / deques-tests.factor
index 96c7bd7ea2a2f3039232c8108b3cdfc5ca8d21e5..19922929d382f950ce485e35760b1287b9ecbfb8 100644 (file)
@@ -3,36 +3,36 @@
 USING: tools.test persistent.deques kernel math ;
 IN: persistent.deques.tests
 
-[ 3 2 1 t ]
+{ 3 2 1 t }
 [ { 1 2 3 } sequence>deque 3 [ pop-back ] times deque-empty? ] unit-test
 
-[ 1 2 3 t ]
+{ 1 2 3 t }
 [ { 1 2 3 } sequence>deque 3 [ pop-front ] times deque-empty? ] unit-test
 
-[ 1 3 2 t ]
+{ 1 3 2 t }
 [ { 1 2 3 } sequence>deque pop-front 2 [ pop-back ] times deque-empty? ]
 unit-test
 
-[ { 2 3 4 5 6 1 } ]
+{ { 2 3 4 5 6 1 } }
 [ { 1 2 3 4 5 6 } sequence>deque pop-front swap push-back deque>sequence ]
 unit-test
 
-[ 1 ] [ { 1 2 3 4 } sequence>deque peek-front ] unit-test
-[ 4 ] [ { 1 2 3 4 } sequence>deque peek-back ] unit-test
+{ 1 } [ { 1 2 3 4 } sequence>deque peek-front ] unit-test
+{ 4 } [ { 1 2 3 4 } sequence>deque peek-back ] unit-test
 
-[ 1 t ] [ <deque> 1 push-front pop-back deque-empty? ] unit-test
-[ 1 t ] [ <deque> 1 push-front pop-front deque-empty? ] unit-test
-[ 1 t ] [ <deque> 1 push-back pop-front deque-empty? ] unit-test
-[ 1 t ] [ <deque> 1 push-back pop-back deque-empty? ] unit-test
+{ 1 t } [ <deque> 1 push-front pop-back deque-empty? ] unit-test
+{ 1 t } [ <deque> 1 push-front pop-front deque-empty? ] unit-test
+{ 1 t } [ <deque> 1 push-back pop-front deque-empty? ] unit-test
+{ 1 t } [ <deque> 1 push-back pop-back deque-empty? ] unit-test
 
-[ 1 f ]
+{ 1 f }
 [ <deque> 1 push-front 2 push-front pop-back deque-empty? ] unit-test
 
-[ 1 f ]
+{ 1 f }
 [ <deque> 1 push-back 2 push-back pop-front deque-empty? ] unit-test
 
-[ 2 f ]
+{ 2 f }
 [ <deque> 1 push-back 2 push-back pop-back deque-empty? ] unit-test
 
-[ 2 f ]
+{ 2 f }
 [ <deque> 1 push-front 2 push-front pop-front deque-empty? ] unit-test