[cairo-commit] cairo-perl/t CairoSurface.t,1.14,1.15

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* t/CairoSurface.t: Don't check the specific type of similar
	surfaces created from PS and PDF surfaces; it's not reliable.

	* xs/CairoSurface.xs: Cosmetical changes.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- CairoSurface.t	11 Aug 2006 18:51:46 -0000	1.14
+++ CairoSurface.t	24 Sep 2006 12:20:44 -0000	1.15
@@ -9,7 +9,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 60;
+use Test::More tests => 58;
 
 use constant {
 	IMG_WIDTH => 256,
@@ -134,7 +134,7 @@
 }
 
 SKIP: {
-	skip 'pdf surface', 8
+	skip 'pdf surface', 7
 		unless Cairo::HAS_PDF_SURFACE;
 
 	my $surf = Cairo::PdfSurface->create ('tmp.pdf', IMG_WIDTH, IMG_HEIGHT);
@@ -149,7 +149,6 @@
 	}
 
 	$surf = $surf->create_similar ('alpha', IMG_WIDTH, IMG_HEIGHT);
-	isa_ok ($surf, 'Cairo::ImageSurface');
 	isa_ok ($surf, 'Cairo::Surface');
 
 	unlink 'tmp.pdf';
@@ -165,7 +164,7 @@
 }
 
 SKIP: {
-	skip 'ps surface', 8
+	skip 'ps surface', 7
 		unless Cairo::HAS_PS_SURFACE;
 
 	my $surf = Cairo::PsSurface->create ('tmp.ps', IMG_WIDTH, IMG_HEIGHT);
@@ -184,7 +183,6 @@
 	}
 
 	$surf = $surf->create_similar ('alpha', IMG_WIDTH, IMG_HEIGHT);
-	isa_ok ($surf, 'Cairo::ImageSurface');
 	isa_ok ($surf, 'Cairo::Surface');
 
 	unlink 'tmp.ps';