]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/text/text-tests.factor
Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...
[factor.git] / basis / ui / text / text-tests.factor
index bb0219eb02e267948bb9620d149f948567746b15..d365168ba1f50f9adb4ef30c32bdd45b3b4961f2 100644 (file)
@@ -4,22 +4,22 @@ USING: tools.test ui.text images fonts math arrays accessors kernel
 sequences ;
 IN: ui.text.tests
 
-{ t } [ 0 sans-serif-font "aaa" offset>x zero? ] unit-test
-{ t } [ 1 sans-serif-font "aaa" offset>x 0.0 > ] unit-test
-{ t } [ 3 sans-serif-font "aaa" offset>x 0.0 > ] unit-test
-{ t } [ 1 monospace-font "a" offset>x 0.0 > ] unit-test
-{ 0 } [ 0 sans-serif-font "aaa" x>offset ] unit-test
-{ 3 } [ 100 sans-serif-font "aaa" x>offset ] unit-test
-{ 0 } [ 0 sans-serif-font "" x>offset ] unit-test
+[ t ] [ 0 sans-serif-font "aaa" offset>x zero? ] unit-test
+[ t ] [ 1 sans-serif-font "aaa" offset>x 0.0 > ] unit-test
+[ t ] [ 3 sans-serif-font "aaa" offset>x 0.0 > ] unit-test
+[ t ] [ 1 monospace-font "a" offset>x 0.0 > ] unit-test
+[ 0 ] [ 0 sans-serif-font "aaa" x>offset ] unit-test
+[ 3 ] [ 100 sans-serif-font "aaa" x>offset ] unit-test
+[ 0 ] [ 0 sans-serif-font "" x>offset ] unit-test
 
-{ t } [
+[ t ] [
     sans-serif-font "aaa" line-metrics
     [ [ ascent>> ] [ descent>> ] bi + ] [ height>> ] bi =
 ] unit-test
 
-{ f } [ sans-serif-font "\0a" text-dim first zero? ] unit-test
-{ t } [ sans-serif-font "" text-dim first zero? ] unit-test
+[ f ] [ sans-serif-font "\0a" text-dim first zero? ] unit-test
+[ t ] [ sans-serif-font "" text-dim first zero? ] unit-test
 
-{ f } [ sans-serif-font font-metrics height>> zero? ] unit-test
+[ f ] [ sans-serif-font font-metrics height>> zero? ] unit-test
 
-{ t } [ serif-font "Hello world" string>image [ image? ] [ pair? ] bi* and ] unit-test
+[ t ] [ serif-font "Hello world" string>image [ image? ] [ pair? ] bi* and ] unit-test