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

[Torsten Schoenfeld]

Committed by: tsch

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

Modified Files:
	CairoSurface.t 
Log Message:
	* t/CairoSurface.t: Use proper version checks to decide when to
	skip the create_for_stream tests.


Index: CairoSurface.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoSurface.t,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- CairoSurface.t	10 May 2007 19:01:13 -0000	1.21
+++ CairoSurface.t	27 May 2007 12:34:20 -0000	1.22
@@ -247,9 +247,12 @@
 
 
 	SKIP: {
-		# FIXME: Re-enable this once the bug is fixed upstream.
 		skip 'create_for_stream on ps surfaces', 4
-			unless 0; # Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0);
+			unless Cairo::VERSION >= Cairo::VERSION_ENCODE (1, 2, 0);
+
+		skip 'create_for_stream on ps surfaces', 4
+			if (Cairo::VERSION() >= Cairo::VERSION_ENCODE (1, 4, 0) &&
+			    Cairo::VERSION() < Cairo::VERSION_ENCODE (1, 4, 8));
 
 		$surf = Cairo::PsSurface->create_for_stream (sub {
 			my ($closure, $data) = @_;
@@ -276,9 +279,9 @@
 	unlink 'tmp.svg';
 
 	SKIP: {
-		# FIXME: Re-enable this once the bug is fixed upstream.
 		skip 'create_for_stream on svg surfaces', 4
-			unless 0;
+			if (Cairo::VERSION() >= Cairo::VERSION_ENCODE (1, 4, 0) &&
+			    Cairo::VERSION() < Cairo::VERSION_ENCODE (1, 4, 8));
 
 		$surf = Cairo::SvgSurface->create_for_stream (sub {
 			my ($closure, $data) = @_;