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

diff --git a/t/maint/bom.t b/t/maint/bom.t
index 19d74e3..4c50c1f 100644 (file)
--- 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 d877a26..2e281dc 100644 (file)
--- 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 80b870b..5093ca7 100644 (file)
--- 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 91a24ad..8a85a3d 100644 (file)
--- 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";
        }
 }