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

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* t/CairoSurface.t: Mark the isa_ok test for PDF surfaces returned
	by create_similar() as TODO, since the returned surface's type is
	not reliable at this point.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- CairoSurface.t	14 Oct 2007 18:03:43 -0000	1.24
+++ CairoSurface.t	29 Dec 2007 13:58:25 -0000	1.25
@@ -187,11 +187,12 @@
 
 	# create_similar actually returns an image surface at the moment, but
 	# the compatibility layer has no way of knowing this and thus turns it
-	# into a pdf surface.
-	if (Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0)) {
+	# into a pdf surface.  Recently, it also started returning meta
+	# surfaces whose type is internal, so the bindings have no other choice
+	# but represent them as plain surfaces.  Thus, mark this TODO for now.
+	TODO: {
+		local $TODO = 'create_similar returns surfaces whose type is not predictable';
 		isa_ok ($surf, 'Cairo::ImageSurface');
-	} else {
-		isa_ok ($surf, 'Cairo::PdfSurface');
 	}
 
 	unlink 'tmp.pdf';