1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: tools.test ui.text fonts math accessors kernel sequences ;
6 [ t ] [ 0 sans-serif-font "aaa" offset>x zero? ] unit-test
7 [ t ] [ 1 sans-serif-font "aaa" offset>x 0.0 > ] unit-test
8 [ t ] [ 3 sans-serif-font "aaa" offset>x 0.0 > ] unit-test
9 [ t ] [ 1 monospace-font "a" offset>x 0.0 > ] unit-test
10 [ 0 ] [ 0 sans-serif-font "aaa" x>offset ] unit-test
11 [ 3 ] [ 100 sans-serif-font "aaa" x>offset ] unit-test
12 [ 0 ] [ 0 sans-serif-font "" x>offset ] unit-test
15 sans-serif-font "aaa" line-metrics
16 [ [ ascent>> ] [ descent>> ] bi + ] [ height>> ] bi =
19 [ f ] [ sans-serif-font "\0a" text-dim first zero? ] unit-test
20 [ t ] [ sans-serif-font "" text-dim first zero? ] unit-test
22 [ f ] [ sans-serif-font font-metrics height>> zero? ] unit-test