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

[factor.git] / basis / images / tessellation / tessellation-tests.factor

diff --git a/basis/images/tessellation/tessellation-tests.factor b/basis/images/tessellation/tessellation-tests.factor
index bfde13f4c44dd735656195dbbf09ba79c6b5525f..74b9d1b14646d46f64d02d406338ff706d20fba3 100644 (file)
--- a/basis/images/tessellation/tessellation-tests.factor
+++ b/basis/images/tessellation/tessellation-tests.factor
@@ -3,11 +3,11 @@ byte-arrays ;
 IN: images.tessellation
 
 ! Check an invariant we depend on
-[ t ] [
+{ t } [
     <image> B{ 1 2 3 } >>bitmap dup clone [ bitmap>> ] bi@ eq?
 ] unit-test
 
-[
+{
     {
         {
             T{ image f { 2 2 } L ubyte-components f f B{ 1 2 5 6 } }
@@ -18,7 +18,7 @@ IN: images.tessellation
             T{ image f { 2 2 } L ubyte-components f f B{ 11 12 15 16 } }
         }
     }
-] [
+} [
     <image>
         1 16 [a,b] >byte-array >>bitmap
         { 4 4 } >>dim
@@ -27,7 +27,7 @@ IN: images.tessellation
     { 2 2 } tesselate
 ] unit-test
 
-[
+{
     {
         {
             T{ image f { 2 2 } L ubyte-components f f B{ 1 2 4 5 } }
@@ -38,7 +38,7 @@ IN: images.tessellation
             T{ image f { 1 1 } L ubyte-components f f B{ 9 } }
         }
     }
-] [
+} [
     <image>
         1 9 [a,b] >byte-array >>bitmap
         { 3 3 } >>dim