[cairo-commit] cairo-perl/t Cairo.t,1.18,1.19

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	Cairo.t 
Log Message:
	* Cairo.xs
	* t/Cairo.t: Wrap cairo_path_extents.


Index: Cairo.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/Cairo.t,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- Cairo.t	18 Oct 2007 16:32:49 -0000	1.18
+++ Cairo.t	10 Feb 2008 18:37:19 -0000	1.19
@@ -10,7 +10,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 68;
+use Test::More tests => 72;
 
 unless (eval 'use Test::Number::Delta; 1;') {
 	my $reason = 'Test::Number::Delta not available';
@@ -139,6 +139,16 @@
 $cr->rectangle (0.0, 1.1, 2.2, 3.3);
 $cr->close_path;
 
+SKIP: {
+	skip 'new stuff', 4
+		unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 5, 8);
+
+	my ($x1, $y1, $x2, $y2) = $cr->path_extents;
+	foreach ($x1, $y1, $x2, $y2) {
+		ok (defined $_);
+	}
+}
+
 $cr->paint;
 $cr->paint_with_alpha (0.5);
 $cr->mask ($pat);