[cairo-commit] cairo-perl/t Cairo.t, 1.17, 1.18 CairoPattern.t, 1.10, 1.11

Torsten Schoenfeld commit at pdx.freedesktop.org
Thu Oct 18 09:32:51 PDT 2007


Committed by: tsch

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

Modified Files:
	Cairo.t CairoPattern.t 
Log Message:
	* t/Cairo.t
	* t/CairoPattern.t: When Test::Number::Delta is not available,
	skip the relevant tests instead of faking passes.  (Suggested by
	Aristotle Pagaltzis)


Index: Cairo.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/Cairo.t,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- Cairo.t	14 Oct 2007 18:03:43 -0000	1.17
+++ Cairo.t	18 Oct 2007 16:32:49 -0000	1.18
@@ -13,9 +13,8 @@
 use Test::More tests => 68;
 
 unless (eval 'use Test::Number::Delta; 1;') {
-	*delta_ok = sub {
-        	ok(1, 'Fake delta_ok');
-	}
+	my $reason = 'Test::Number::Delta not available';
+	*delta_ok = sub { SKIP: { skip $reason, 1 } };
 }
 
 use constant IMG_WIDTH => 256;

Index: CairoPattern.t
===================================================================
RCS file: /cvs/cairo/cairo-perl/t/CairoPattern.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- CairoPattern.t	14 Oct 2007 18:03:43 -0000	1.10
+++ CairoPattern.t	18 Oct 2007 16:32:49 -0000	1.11
@@ -13,9 +13,8 @@
 use Test::More tests => 25;
 
 unless (eval 'use Test::Number::Delta; 1;') {
-	*delta_ok = sub {
-		ok(1, 'Fake delta_ok');
-	}
+	my $reason = 'Test::Number::Delta not available';
+	*delta_ok = sub { SKIP: { skip $reason, 1 } };
 }
 
 use constant IMG_WIDTH => 256;



More information about the cairo-commit mailing list