[cairo-commit] cairo-perl/t CairoSurface.t,1.23.2.1,1.23.2.2

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
      Tag: stable-1-04
	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.23.2.1
retrieving revision 1.23.2.2
diff -u -d -r1.23.2.1 -r1.23.2.2
--- CairoSurface.t	20 Nov 2007 20:01:08 -0000	1.23.2.1
+++ CairoSurface.t	29 Dec 2007 14:04:13 -0000	1.23.2.2
@@ -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';