factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / basis / sorting / slots / slots-tests.factor

diff --git a/basis/sorting/slots/slots-tests.factor b/basis/sorting/slots/slots-tests.factor
index 08fc0e921d4a44b6881b3dff93a5dc0201cb49c4..2b56d5dfe8e59fac6b78fee7a68becb52b8ecec2 100644 (file)
--- a/basis/sorting/slots/slots-tests.factor
+++ b/basis/sorting/slots/slots-tests.factor
@@ -8,7 +8,7 @@ TUPLE: sort-test a b c tuple2 ;
 
 TUPLE: tuple2 d ;
 
-[
+{
     {
         T{ sort-test { a 1 } { b 3 } { c 9 } }
         T{ sort-test { a 1 } { b 1 } { c 10 } }
@@ -16,7 +16,7 @@ TUPLE: tuple2 d ;
         T{ sort-test { a 2 } { b 5 } { c 2 } }
         T{ sort-test { a 2 } { b 5 } { c 3 } }
     }
-] [
+} [
     {
         T{ sort-test f 1 3 9 }
         T{ sort-test f 1 1 10 }
@@ -26,7 +26,7 @@ TUPLE: tuple2 d ;
     } { { a>> <=> } { b>> >=< } { c>> <=> } } sort-by
 ] unit-test
 
-[
+{
     {
         T{ sort-test { a 1 } { b 3 } { c 9 } }
         T{ sort-test { a 1 } { b 1 } { c 10 } }
@@ -34,7 +34,7 @@ TUPLE: tuple2 d ;
         T{ sort-test { a 2 } { b 5 } { c 2 } }
         T{ sort-test { a 2 } { b 5 } { c 3 } }
     }
-] [
+} [
     {
         T{ sort-test f 1 3 9 }
         T{ sort-test f 1 1 10 }
@@ -44,13 +44,13 @@ TUPLE: tuple2 d ;
     } { { a>> <=> } { b>> >=< } { c>> <=> } } sort-by
 ] unit-test
 
-[ { } ]
+{ { } }
 [ { } { { a>> <=> } { b>> >=< } { c>> <=> } } sort-by ] unit-test
 
-[ { } ]
+{ { } }
 [ { } { } sort-by ] unit-test
 
-[
+{
     {
         T{ sort-test { a 6 } { tuple2 T{ tuple2 { d 1 } } } }
         T{ sort-test { a 6 } { tuple2 T{ tuple2 { d 2 } } } }
@@ -59,7 +59,7 @@ TUPLE: tuple2 d ;
         T{ sort-test { a 6 } { tuple2 T{ tuple2 { d 3 } } } }
         T{ sort-test { a 5 } { tuple2 T{ tuple2 { d 4 } } } }
     }
-] [
+} [
     {
         T{ sort-test f 6 f f T{ tuple2 f 1 } }
         T{ sort-test f 5 f f T{ tuple2 f 4 } }
@@ -71,24 +71,24 @@ TUPLE: tuple2 d ;
 ] unit-test
 
 
-[ { "a" "b" "c" } ] [ { "b" "c" "a" } { <=> <=> } sort-by ] unit-test
-[ { "b" "c" "a" } ] [ { "b" "c" "a" } { } sort-by ] unit-test
+{ { "a" "b" "c" } } [ { "b" "c" "a" } { <=> <=> } sort-by ] unit-test
+{ { "b" "c" "a" } } [ { "b" "c" "a" } { } sort-by ] unit-test
 
 << "length-test" [ length ] define-sorting >>
 
-[ { { 1 } { 1 2 3 } { 1 3 2 } { 3 2 1 } } ]
+{ { { 1 } { 1 2 3 } { 1 3 2 } { 3 2 1 } } }
 [
     { { 3 2 1 } { 1 2 3 } { 1 3 2 } { 1 } }
     { length-test<=> <=> } sort-by
 ] unit-test
 
-[ { { { 0 } 1 } { { 1 } 2 } { { 1 } 1 } { { 3 1 } 2 } } ]
+{ { { { 0 } 1 } { { 1 } 2 } { { 1 } 1 } { { 3 1 } 2 } } }
 [
     { { { 3 1 } 2 } { { 1 } 2 } { { 0 } 1 } { { 1 } 1 } }
     { length-test<=> <=> } sort-keys-by
 ] unit-test
 
-[ { { 0 { 1 } } { 1 { 1 } } { 3 { 2 4 } } { 1 { 2 0 0 0 } } } ]
+{ { { 0 { 1 } } { 1 { 1 } } { 3 { 2 4 } } { 1 { 2 0 0 0 } } } }
 [
     { { 3 { 2 4 } } { 1 { 2 0 0 0 } } { 0 { 1 } } { 1 { 1 } } }
     { length-test<=> <=> } sort-values-by