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

[Torsten Schoenfeld]

Committed by: tsch

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

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


Index: Cairo.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/Cairo.t,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- Cairo.t	10 Feb 2008 18:37:19 -0000	1.19
+++ Cairo.t	24 Feb 2008 14:03:08 -0000	1.20
@@ -10,7 +10,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 72;
+use Test::More tests => 73;
 
 unless (eval 'use Test::Number::Delta; 1;') {
 	my $reason = 'Test::Number::Delta not available';
@@ -256,6 +256,13 @@
 
 isa_ok ($cr->get_source, 'Cairo::Pattern');
 
+SKIP: {
+	skip 'new stuff', 1
+		unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 5, 10); # FIXME: 1.6
+
+	ok ($cr->has_current_point);
+}
+
 my @pnt = $cr->get_current_point;
 is (@pnt, 2);