]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/math/ranges/ranges-tests.factor
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
[factor.git] / basis / math / ranges / ranges-tests.factor
index a65ac20504d873166b03ba54b30706b706b6357f..31257eb3641b9f9c7ff3d57e1f3faeed2224c9e0 100644 (file)
@@ -1,26 +1,26 @@
 USING: arrays kernel math math.ranges sequences sets tools.test ;
 IN: math.ranges.tests
 
-[ { } ] [ 1 1 (a,b) >array ] unit-test
-[ { } ] [ 1 1 (a,b] >array ] unit-test
-[ { } ] [ 1 1 [a,b) >array ] unit-test
-[ { 1 } ] [ 1 1 [a,b] >array ] unit-test
+{ { } } [ 1 1 (a,b) >array ] unit-test
+{ { } } [ 1 1 (a,b] >array ] unit-test
+{ { } } [ 1 1 [a,b) >array ] unit-test
+{ { 1 } } [ 1 1 [a,b] >array ] unit-test
 
-[ { }  ] [ 1 2 (a,b) >array ] unit-test
-[ { 2 } ] [ 1 2 (a,b] >array ] unit-test
-[ { 1 } ] [ 1 2 [a,b) >array ] unit-test
-[ { 1 2 } ] [ 1 2 [a,b] >array ] unit-test
+{ { }  } [ 1 2 (a,b) >array ] unit-test
+{ { 2 } } [ 1 2 (a,b] >array ] unit-test
+{ { 1 } } [ 1 2 [a,b) >array ] unit-test
+{ { 1 2 } } [ 1 2 [a,b] >array ] unit-test
 
-[ { } ] [ 2 1 (a,b) >array ] unit-test
-[ { 1 } ] [ 2 1 (a,b] >array ] unit-test
-[ { 2 } ] [ 2 1 [a,b) >array ] unit-test
-[ { 2 1 } ] [ 2 1 [a,b] >array ] unit-test
+{ { } } [ 2 1 (a,b) >array ] unit-test
+{ { 1 } } [ 2 1 (a,b] >array ] unit-test
+{ { 2 } } [ 2 1 [a,b) >array ] unit-test
+{ { 2 1 } } [ 2 1 [a,b] >array ] unit-test
 
-[ { 1 2 3 4 5 } ] [ 1 5 1 <range> >array ] unit-test
-[ { 5 4 3 2 1 } ] [ 5 1 -1 <range> >array ] unit-test
+{ { 1 2 3 4 5 } } [ 1 5 1 <range> >array ] unit-test
+{ { 5 4 3 2 1 } } [ 5 1 -1 <range> >array ] unit-test
 
-[ { 0 1/3 2/3 1 } ] [ 0 1 1/3 <range> >array ] unit-test
-[ { 0 1/3 2/3 1 } ] [ 1 0 -1/3 <range> >array reverse ] unit-test
+{ { 0 1/3 2/3 1 } } [ 0 1 1/3 <range> >array ] unit-test
+{ { 0 1/3 2/3 1 } } [ 1 0 -1/3 <range> >array reverse ] unit-test
 
 { 0 } [ 0 -1 .0001 <range> length ] unit-test
 { 0 } [ 0 -1 .5 <range> length ] unit-test
@@ -48,7 +48,7 @@ IN: math.ranges.tests
 { 0 } [ -2 0 -3 <range> length ] unit-test
 { 0 } [ -2 0 -4 <range> length ] unit-test
 
-[ 100 ] [
+{ 100 } [
     1 100 [a,b] [ 2^ [1,b] ] map members length
 ] unit-test