basis/pango/layouts/layouts-tests.factor

   1 IN: pango.layouts.tests
   2 USING: pango.layouts tools.test glib fonts accessors
   3 sequences combinators.short-circuit math destructors ;
   4
   5 [ t ] [
   6     [
   7         <font> "Helvetica" >>name 12 >>size
   8         "OH, HAI"
   9         cached-layout ink-rect>> dim>>
  10     ] with-destructors [ 0 > ] all?
  11 ] unit-test