[cairo-commit] cairo-perl/t Cairo.t,1.10,1.11

Torsten Schoenfeld commit at pdx.freedesktop.org
Thu Dec 28 10:53:14 PST 2006


Committed by: tsch

Update of /cvs/cairo/cairo-perl/t
In directory kemper:/tmp/cvs-serv27197/t

Modified Files:
	Cairo.t 
Log Message:
	* Cairo.xs, cairo-perl.h, t/Cairo.t: Wrap and test
	cairo_copy_clip_rectangles and cairo_clip_extents.


Index: Cairo.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/Cairo.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- Cairo.t	9 Nov 2006 19:43:43 -0000	1.10
+++ Cairo.t	28 Dec 2006 18:53:09 -0000	1.11
@@ -9,7 +9,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 60;
+use Test::More tests => 67;
 
 use constant {
 	IMG_WIDTH => 256,
@@ -158,6 +158,26 @@
 $cr->clip;
 $cr->clip_preserve;
 $cr->reset_clip;
+
+SKIP: {
+	skip 'new stuff', 7
+		unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 3, 0); # FIXME: 1.4
+
+	$cr->rectangle (0, 0, 128, 128);
+	$cr->clip;
+
+	my @extents = $cr->clip_extents;
+	is (@extents, 4);
+	is ($extents[0], 0);
+	is ($extents[1], 0);
+	is ($extents[2], 128);
+	is ($extents[3], 128);
+
+	my @list = $cr->copy_clip_rectangles;
+	is (@list, 1);
+	is_deeply ($list[0], { x => 0, y => 0, width => 128, height => 128 });
+}
+
 $cr->select_font_face ('Sans', 'normal', 'normal');
 $cr->set_font_size (12);
 



More information about the cairo-commit mailing list