2009-01-21 20:34:42 -05:00
|
|
|
! Copyright (C) 2009 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2010-02-08 00:40:26 -05:00
|
|
|
USING: tools.test ui.text images fonts math arrays accessors kernel
|
|
|
|
|
sequences ;
|
2009-01-21 20:34:42 -05:00
|
|
|
IN: ui.text.tests
|
2009-03-06 17:21:06 -05:00
|
|
|
|
2009-04-02 14:05:26 -04:00
|
|
|
[ 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 ] [
|
|
|
|
|
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 font-metrics height>> zero? ] unit-test
|
2010-02-08 00:40:26 -05:00
|
|
|
|
|
|
|
|
[ t ] [ serif-font "Hello world" string>image [ image? ] [ pair? ] bi* and ] unit-test
|
