[cairo-commit] cairo-perl/t CairoSurface.t,1.25,1.26

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* CairoSurface.xs
	* t/CairoSurface.t: Wrap cairo_surface_copy_page and
	cairo_surface_show_page.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- CairoSurface.t	29 Dec 2007 13:58:25 -0000	1.25
+++ CairoSurface.t	7 Jan 2008 17:13:33 -0000	1.26
@@ -12,7 +12,7 @@
 
 use Config; # for byteorder
 
-use Test::More tests => 64;
+use Test::More tests => 66;
 
 use constant IMG_WIDTH => 256;
 use constant IMG_HEIGHT => 256;
@@ -105,6 +105,14 @@
 $surf->mark_dirty_rectangle (10, 10, 10, 10);
 $surf->flush;
 
+SKIP: {
+	skip 'new stuff', 2
+		unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 5, 2); # FIXME: 1.6
+
+	is ($surf->copy_page, 'success');
+	is ($surf->show_page, 'success');
+}
+
 sub clear {
 	if (Cairo::VERSION() < Cairo::VERSION_ENCODE (1, 2, 0)) {
 		my $cr = Cairo::Context->create ($surf);