[cairo-commit] cairo-perl/t CairoSurface.t,1.29,1.30

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* CairoSurface.xs
	* t/CairoSurface.t: Wrap cairo_format_stride_for_width.  Adapt to
	API changes: cairo_surface_copy_page and cairo_surface_show_page
	don't return cairo_status_t anymore.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- CairoSurface.t	7 Jan 2008 17:45:54 -0000	1.29
+++ CairoSurface.t	10 Feb 2008 18:36:33 -0000	1.30
@@ -12,7 +12,7 @@
 
 use Config; # for byteorder
 
-use Test::More tests => 73;
+use Test::More tests => 72;
 
 use constant IMG_WIDTH => 256;
 use constant IMG_HEIGHT => 256;
@@ -106,13 +106,17 @@
 $surf->flush;
 
 SKIP: {
-	skip 'new stuff', 2
-		unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 5, 2); # FIXME: 1.6
+	skip 'new stuff', 1
+		unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 5, 8); # FIXME: 1.6
 
-	is ($surf->copy_page, 'success');
-	is ($surf->show_page, 'success');
+	$surf->copy_page;
+	$surf->show_page;
+
+	like (Cairo::Format::stride_for_width ('argb32', 23), qr/\A\d+\z/);
 }
 
+# --------------------------------------------------------------------------- #
+
 sub clear {
 	if (Cairo::VERSION() < Cairo::VERSION_ENCODE (1, 2, 0)) {
 		my $cr = Cairo::Context->create ($surf);