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         "OH, HAI"
   8         <font> "Helvetica" >>name 12 >>size
   9         dummy-cairo
  10         <layout> &g_object_unref
  11         layout-dim
  12     ] with-destructors [ { [ integer? ] [ 0 > ] } 1&& ] all?
  13 ] unit-test