From: Ævar Arnfjörð Bjarmason <avar@users.mediawiki.org>
Date: Tue, 17 Jul 2007 03:46:28 +0000 (+0000)
Subject: ok 0 => msg ==> fail(msg) ; ok 1 => msg ==> pass(msg)
X-Git-Tag: 1.31.0-rc.0~52057
X-Git-Url: http://git.cyclocoop.org/data/Fool?a=commitdiff_plain;h=f85f60343f716b1740e9f4922d84ef28ac185e65;p=lhc%2Fweb%2Fwiklou.git

ok 0 => msg ==> fail(msg) ; ok 1 => msg ==> pass(msg)
---

diff --git a/t/maint/bom.t b/t/maint/bom.t
index 19d74e3b08..4c50c1f433 100644
--- a/t/maint/bom.t
+++ b/t/maint/bom.t
@@ -32,8 +32,8 @@ plan tests => scalar @files ;
 for my $file (@files) {
 	my $content = slurp $file ;
 	if( $content =~ /$bomchar/ ) {
-		ok 0 => "$file got a Byte Order Mark";
+		fail "$file got a Byte Order Mark";
 	} else {
-		ok 1 => "$file BOM less";
+		pass "$file BOM less";
 	}
 }
diff --git a/t/maint/eol-style.t b/t/maint/eol-style.t
index d877a264f5..2e281dc457 100644
--- a/t/maint/eol-style.t
+++ b/t/maint/eol-style.t
@@ -26,10 +26,10 @@ for my $file (@files) {
 	waitpid $pid, 0;
 
 	if ( $? != 0 ) {
-		ok 1 => "svn propget failed, $file probably not under version control";
+		pass "svn propget failed, $file probably not under version control";
 	} elsif ( $res eq 'native' ) {
-		ok 1 => "$file svn:eol-style is 'native'";
+		pass "$file svn:eol-style is 'native'";
 	} else {
-		ok 0 => "$file svn:eol-style is '$res', should be 'native'";
+		fail "$file svn:eol-style is '$res', should be 'native'";
 	}
 }
diff --git a/t/maint/php-tag.t b/t/maint/php-tag.t
index 80b870b7cf..5093ca7f6f 100644
--- a/t/maint/php-tag.t
+++ b/t/maint/php-tag.t
@@ -17,11 +17,11 @@ plan tests => scalar @files;
 for my $file (@files) {
 	my $cont = slurp $file;
 	if ( $cont =~ m<<\?php .* \?>>xs ) {
-		ok 1 => "$file has <?php ?>";
+		pass "$file has <?php ?>";
 	} elsif ( $cont =~ m<<\? .* \?>>xs ) {
-		ok 0 => "$file does not use <? ?>";
+		fail "$file does not use <? ?>";
 	} else {
-		ok 1 => "$file has neither <?php ?> nor <? ?>, check it";
+		pass "$file has neither <?php ?> nor <? ?>, check it";
 	}
 }
 
diff --git a/t/maint/unix-newlines.t b/t/maint/unix-newlines.t
index 91a24ad77a..8a85a3d1e6 100644
--- a/t/maint/unix-newlines.t
+++ b/t/maint/unix-newlines.t
@@ -18,9 +18,9 @@ plan tests => scalar @files;
 for my $file (@files) {
 	my $cont = slurp $file;
 	if ( $cont and $cont =~ $CRLF ) {
-		ok 0 => "$file contains windows newlines";
+		pass "$file contains windows newlines";
 	} else {
-		ok 1 => "$file is made of unix newlines and win";
+		fail "$file is made of unix newlines and win";
 	}
 }