]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/lists/lazy/lazy-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / basis / lists / lazy / lazy-tests.factor
index fbdbeec24ac3353d1b7fb6722f4cf8bb57dbf022..924c6f3fbe7fca747f47d83fe51ca059c6d8e649 100644 (file)
@@ -4,31 +4,31 @@ USING: destructors io io.encodings.utf8 io.files kernel lists
 lists.lazy math sequences tools.test ;
 IN: lists.lazy.tests
 
-{ { 1 2 3 4 } } [
+[ { 1 2 3 4 } ] [
   { 1 2 3 4 } >list list>array
 ] unit-test
 
-{ { { 1 4 } { 1 5 } { 2 4 } { 2 5 } { 3 4 } { 3 5 } } } [
+[ { { 1 4 } { 1 5 } { 2 4 } { 2 5 } { 3 4 } { 3 5 } } ] [
   { 1 2 3 } >list { 4 5 } >list 2list lcartesian-product* list>array
 ] unit-test
 
-{ { { 1 4 } { 1 5 } { 2 4 } { 2 5 } { 3 4 } { 3 5 } } } [
+[ { { 1 4 } { 1 5 } { 2 4 } { 2 5 } { 3 4 } { 3 5 } } ] [
   { 1 2 3 } >list { 4 5 } >list lcartesian-product list>array
 ] unit-test
 
-{ { 5 6 6 7 7 8 } } [
+[ { 5 6 6 7 7 8 } ] [
   { 1 2 3 } >list { 4 5 } >list 2list [ first2 + ] lcomp list>array
 ] unit-test
 
-{ { 5 6 7 8 } } [
+[ { 5 6 7 8 } ] [
   { 1 2 3 } >list { 4 5 } >list 2list { [ first odd? ] } [ first2 + ] lcomp* list>array
 ] unit-test
 
-{ { 4 5 6 } } [
+[ { 4 5 6 } ] [
     3 { 1 2 3 } >list [ + ] with lazy-map list>array
 ] unit-test
 
-{ { 1 2 4 8 16 } } [
+[ { 1 2 4 8 16 } ] [
   5 1 [ 2 * ] lfrom-by ltake list>array
 ] unit-test
 
@@ -39,14 +39,14 @@ IN: lists.lazy.tests
 [ [ drop ] leach ] must-infer
 [ lnth ] must-infer
 
-{ { 1 2 3 } } [ { 1 2 3 4 5 } >list [ 2 > ] luntil list>array ] unit-test
+[ { 1 2 3 } ] [ { 1 2 3 4 5 } >list [ 2 > ] luntil list>array ] unit-test
 
-{ } [
+[ ] [
     "resource:license.txt" utf8 <file-reader> [
         llines list>array drop
     ] with-disposal
 ] unit-test
-{ } [
+[ ] [
     "resource:license.txt" utf8 <file-reader> [
         lcontents list>array drop
     ] with-disposal