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

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* t/CairoSurface.t: Cairo::PsSurface->create can under certain
	conditions apparently return a surface that is not a PS surface.
	Handle this gracefully.  (RT #33871)


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- CairoSurface.t	10 Feb 2008 18:36:33 -0000	1.30
+++ CairoSurface.t	1 Jun 2008 14:37:12 -0000	1.31
@@ -229,6 +229,10 @@
 		unless Cairo::HAS_PS_SURFACE;
 
 	my $surf = Cairo::PsSurface->create ('tmp.ps', IMG_WIDTH, IMG_HEIGHT);
+
+	skip 'create returned no ps surface', 15
+		unless defined $surf && $surf->isa ('Cairo::PsSurface');
+
 	isa_ok ($surf, 'Cairo::PsSurface');
 	isa_ok ($surf, 'Cairo::Surface');