factor: Retrying on the unit tests. Also normalize some syntax with FUNCTION:.

[factor.git] / basis / core-text / core-text-tests.factor

diff --git a/basis/core-text/core-text-tests.factor b/basis/core-text/core-text-tests.factor
index b6b54df7c3b567865a3926ce0c6d2a7a0967adfa..e694282faa58cd8e8c8e8b5a07bcbdcda3ca3c8b 100644 (file)
--- a/basis/core-text/core-text-tests.factor
+++ b/basis/core-text/core-text-tests.factor
@@ -9,9 +9,9 @@ IN: core-text.tests
 : test-font ( name -- font )
     [ >cf &CFRelease 0.0 f CTFontCreateWithName ] with-destructors ;
 
-[ ] [ "Helvetica" test-font CFRelease ] unit-test
+{ } [ "Helvetica" test-font CFRelease ] unit-test
 
-[ ] [
+{ } [
     [
         kCTFontAttributeName "Helvetica" test-font &CFRelease 2array 1array
         <CFDictionary> &CFRelease drop
@@ -30,8 +30,8 @@ IN: core-text.tests
         } cleave and and and
     ] with-destructors ;
 
-[ t ] [ "Hello world" "Helvetica" test-typographic-bounds ] unit-test
+{ t } [ "Hello world" "Helvetica" test-typographic-bounds ] unit-test
 
-[ t ] [ "Hello world" "Chicago" test-typographic-bounds ] unit-test
+{ t } [ "Hello world" "Chicago" test-typographic-bounds ] unit-test
 
-[ t ] [ "日本語" "Helvetica" test-typographic-bounds ] unit-test
+{ t } [ "日本語" "Helvetica" test-typographic-bounds ] unit-test