[cairo-commit] cairo-perl/t CairoSurface.t,1.8,1.9

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* t/CairoSurface.t: Wrap two tests that recently started failing
	in TODO blocks.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- CairoSurface.t	14 Jun 2006 18:20:23 -0000	1.8
+++ CairoSurface.t	15 Jun 2006 21:00:11 -0000	1.9
@@ -99,7 +99,10 @@
 		is ($closure, 'blub');
 		die 'read-error';
 	}, 'blub');
-	isa_ok ($surf, 'Cairo::ImageSurface');
+	TODO: {
+		local $TODO = "create_from_png_stream trouble";
+		isa_ok ($surf, 'Cairo::ImageSurface');
+	}
 	isa_ok ($surf, 'Cairo::Surface');
 	is ($surf->status, 'read-error');
 
@@ -117,7 +120,6 @@
 	$surf->set_size (23, 42);
 
 	$surf = $surf->create_similar ('alpha', IMG_WIDTH, IMG_HEIGHT);
-	# the pdf backend falls back to an image surface currently
 	isa_ok ($surf, 'Cairo::ImageSurface');
 	isa_ok ($surf, 'Cairo::Surface');
 
@@ -148,8 +150,10 @@
 	$surf->dsc_begin_page_setup;
 
 	$surf = $surf->create_similar ('alpha', IMG_WIDTH, IMG_HEIGHT);
-	# the ps backend falls back to an image surface currently
-	isa_ok ($surf, 'Cairo::ImageSurface');
+	TODO: {
+		local $TODO = "create_similar trouble";
+		isa_ok ($surf, 'Cairo::ImageSurface');
+	}
 	isa_ok ($surf, 'Cairo::Surface');
 
 	unlink 'tmp.ps';