[cairo-commit] cairo-perl/t CairoSurface.t,1.20,1.21

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* t/CairoSurface.t: For now, skip tests that make cairo crash.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- CairoSurface.t	17 Mar 2007 16:13:32 -0000	1.20
+++ CairoSurface.t	10 May 2007 19:01:13 -0000	1.21
@@ -247,8 +247,9 @@
 
 
 	SKIP: {
+		# FIXME: Re-enable this once the bug is fixed upstream.
 		skip 'create_for_stream on ps surfaces', 4
-			unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0);
+			unless 0; # Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0);
 
 		$surf = Cairo::PsSurface->create_for_stream (sub {
 			my ($closure, $data) = @_;
@@ -274,14 +275,20 @@
 
 	unlink 'tmp.svg';
 
-	$surf = Cairo::SvgSurface->create_for_stream (sub {
-		my ($closure, $data) = @_;
-		is ($closure, 'blub');
-		like ($data, qr/xml/);
-		die 'write-error';
-	}, 'blub', IMG_WIDTH, IMG_HEIGHT);
-	isa_ok ($surf, 'Cairo::SvgSurface');
-	isa_ok ($surf, 'Cairo::Surface');
+	SKIP: {
+		# FIXME: Re-enable this once the bug is fixed upstream.
+		skip 'create_for_stream on svg surfaces', 4
+			unless 0;
+
+		$surf = Cairo::SvgSurface->create_for_stream (sub {
+			my ($closure, $data) = @_;
+			is ($closure, 'blub');
+			like ($data, qr/xml/);
+			die 'write-error';
+		}, 'blub', IMG_WIDTH, IMG_HEIGHT);
+		isa_ok ($surf, 'Cairo::SvgSurface');
+		isa_ok ($surf, 'Cairo::Surface');
+	}
 
 	my @versions = Cairo::SvgSurface::get_versions();
 	ok (scalar @versions > 0);