]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/traverse/traverse-tests.factor
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
[factor.git] / basis / ui / traverse / traverse-tests.factor
index 4d2072db1c70e6448f6bedded25ec3f258fa4145..b1ff99c08b6acaa8a840fe01275b3fbd73bea979 100644 (file)
@@ -18,47 +18,47 @@ M: object (flatten-tree) , ;
 : gadgets-in-range ( frompath topath gadget -- seq )
     gadget-subtree flatten-tree ;
 
-[ { "a" "b" "c" "d" } ] [
+{ { "a" "b" "c" "d" } } [
     { 0 } { } { "a" "b" "c" "d" } gadgets-in-range
 ] unit-test
 
-[ { "a" "b" } ] [
+{ { "a" "b" } } [
     { } { 1 } { "a" "b" "c" "d" } gadgets-in-range
 ] unit-test
 
-[ { "a" } ] [
+{ { "a" } } [
     { 0 } { 0 } { "a" "b" "c" "d" } gadgets-in-range
 ] unit-test
 
-[ { "a" "b" "c" } ] [
+{ { "a" "b" "c" } } [
     { 0 } { 2 } { "a" "b" "c" "d" } gadgets-in-range
 ] unit-test
 
-[ { "a" "b" "c" "d" } ] [
+{ { "a" "b" "c" "d" } } [
     { 0 } { 3 } { "a" "b" "c" "d" } gadgets-in-range
 ] unit-test
 
-[ { "a" "b" "c" "d" } ] [
+{ { "a" "b" "c" "d" } } [
     { 0 0 } { 0 3 } { { "a" "b" "c" "d" } } gadgets-in-range
 ] unit-test
 
-[ { "b" "c" "d" "e" } ] [
+{ { "b" "c" "d" "e" } } [
     { 0 1 } { 1 } { { "a" "b" "c" "d" } "e" } gadgets-in-range
 ] unit-test
 
-[ { "b" "c" "d" "e" "f" } ] [
+{ { "b" "c" "d" "e" "f" } } [
     { 0 1 } { 1 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } } gadgets-in-range
 ] unit-test
 
-[ { "b" "c" "d" { "e" "f" "g" } "h" "i" } ] [
+{ { "b" "c" "d" { "e" "f" "g" } "h" "i" } } [
     { 0 1 } { 2 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } { "h" "i" } } gadgets-in-range
 ] unit-test
 
-[ { "b" "c" "d" { "e" "f" "g" } "h" } ] [
+{ { "b" "c" "d" { "e" "f" "g" } "h" } } [
     { 0 1 } { 2 0 0 } { { "a" "b" "c" "d" } { "e" "f" "g" } { { "h" "i" } "j" } } gadgets-in-range
 ] unit-test
 
-[ { "b" "c" "d" { "e" "f" "g" } "h" "i" } ] [
+{ { "b" "c" "d" { "e" "f" "g" } "h" "i" } } [
     { 0 1 } { 2 0 1 } { { "a" "b" "c" "d" } { "e" "f" "g" } { { "h" "i" } "j" } } gadgets-in-range
 ] unit-test