basis/cairo/cairo-tests.factor

   1 USING: cairo tools.test math.rectangles accessors ;
   2 IN: cairo.tests
   3
   4 [ { 10 20 } ] [
   5     { 10 20 } [
   6         { 0 1 } { 3 4 } <rect> fill-rect
   7     ] make-bitmap-image dim>>
   8 ] unit-test