basis/ui/text/text-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test ui.text images fonts math arrays accessors kernel
   4 sequences ;
   5 IN: ui.text.tests
   6
   7 { t } [ 0 sans-serif-font "aaa" offset>x zero? ] unit-test
   8 { t } [ 1 sans-serif-font "aaa" offset>x 0.0 > ] unit-test
   9 { t } [ 3 sans-serif-font "aaa" offset>x 0.0 > ] unit-test
  10 { t } [ 1 monospace-font "a" offset>x 0.0 > ] unit-test
  11 { 0 } [ 0 sans-serif-font "aaa" x>offset ] unit-test
  12 { 3 } [ 100 sans-serif-font "aaa" x>offset ] unit-test
  13 { 0 } [ 0 sans-serif-font "" x>offset ] unit-test
  14
  15 { t } [
  16     sans-serif-font "aaa" line-metrics
  17     [ [ ascent>> ] [ descent>> ] bi + ] [ height>> ] bi =
  18 ] unit-test
  19
  20 { f } [ sans-serif-font "\0a" text-dim first zero? ] unit-test
  21 { t } [ sans-serif-font "" text-dim first zero? ] unit-test
  22
  23 { f } [ sans-serif-font font-metrics height>> zero? ] unit-test
  24
  25 { t } [ serif-font "Hello world" string>image [ image? ] [ pair? ] bi* and ] unit-test