]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/gadgets/grid-lines/grid-lines-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / basis / ui / gadgets / grid-lines / grid-lines-tests.factor
index 9baae3a15e59db0de3355e30b1674a710be7e8ac..457c13f2259b67ba8a26503715eb6947256b1b5c 100644 (file)
@@ -4,14 +4,14 @@ ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
 
 : 100x100 ( -- gadget ) <gadget> { 100 100 } >>dim ;
 
-{
+[
     {
         { { 0 0 } { 0 101 } }
         { { 0 0 } { 101 0 } }
         { { 0 100 } { 101 100 } }
         { { 100 0 } { 100 101 } }
     }
-} [
+] [
     100x100 1array
     1array
     <grid>
@@ -19,14 +19,14 @@ ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
     compute-grid-lines natural-sort
 ] unit-test
 
-{
+[
     {
         { { 5 5 } { 5 116 } }
         { { 5 5 } { 116 5 } }
         { { 5 115 } { 116 115 } }
         { { 115 5 } { 115 116 } }
     }
-} [
+] [
     100x100 1array
     1array
     <grid>
@@ -35,7 +35,7 @@ ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
     compute-grid-lines natural-sort
 ] unit-test
 
-{
+[
     {
         { { 0 0 } { 0 201 } }
         { { 0 0 } { 201 0 } }
@@ -44,7 +44,7 @@ ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
         { { 100 0 } { 100 201 } }
         { { 200 0 } { 200 201 } }
     }
-} [
+] [
     100x100 100x100 2array
     100x100 100x100 2array
     2array
@@ -53,14 +53,14 @@ ui.gadgets.grids.private accessors arrays ui.gadgets.grids sorting kernel ;
     compute-grid-lines natural-sort
 ] unit-test
 
-{
+[
     {
         { { 0 0 } { 0 3 } }
         { { 2 0 } { 2 3 } }
         { { 0 0 } { 3 0 } }
         { { 0 2 } { 3 2 } }
     }
-} [
+] [
     <gadget> { 1 1 } >>dim
     1array 1array <grid> { 1 1 } >>gap
     dup prefer