Unit tests for Pango and Cairo

basis/cairo/cairo-tests.factor

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

basis/pango/layouts/layouts-tests.factor

@@ -4,10 +4,8 @@ sequences combinators.short-circuit math destructors ;
 
 [ t ] [
     [
-        "OH, HAI"
         <font> "Helvetica" >>name 12 >>size
-        dummy-cairo
+        "OH, HAI"
-        <layout> &g_object_unref
+        cached-layout ink-rect>> dim>>
-        layout-dim
+    ] with-destructors [ 0 > ] all?
-    ] with-destructors [ { [ integer? ] [ 0 > ] } 1&& ] all?
 ] unit-test