| Index: trunk/phase3/t/maint/bom.t |
| — | — | @@ -32,8 +32,8 @@ |
| 33 | 33 | for my $file (@files) { |
| 34 | 34 | my $content = slurp $file ; |
| 35 | 35 | if( $content =~ /$bomchar/ ) { |
| 36 | | - ok 0 => "$file got a Byte Order Mark"; |
| | 36 | + fail "$file got a Byte Order Mark"; |
| 37 | 37 | } else { |
| 38 | | - ok 1 => "$file BOM less"; |
| | 38 | + pass "$file BOM less"; |
| 39 | 39 | } |
| 40 | 40 | } |
| Index: trunk/phase3/t/maint/eol-style.t |
| — | — | @@ -26,10 +26,10 @@ |
| 27 | 27 | waitpid $pid, 0; |
| 28 | 28 | |
| 29 | 29 | if ( $? != 0 ) { |
| 30 | | - ok 1 => "svn propget failed, $file probably not under version control"; |
| | 30 | + pass "svn propget failed, $file probably not under version control"; |
| 31 | 31 | } elsif ( $res eq 'native' ) { |
| 32 | | - ok 1 => "$file svn:eol-style is 'native'"; |
| | 32 | + pass "$file svn:eol-style is 'native'"; |
| 33 | 33 | } else { |
| 34 | | - ok 0 => "$file svn:eol-style is '$res', should be 'native'"; |
| | 34 | + fail "$file svn:eol-style is '$res', should be 'native'"; |
| 35 | 35 | } |
| 36 | 36 | } |
| Index: trunk/phase3/t/maint/php-tag.t |
| — | — | @@ -17,11 +17,11 @@ |
| 18 | 18 | for my $file (@files) { |
| 19 | 19 | my $cont = slurp $file; |
| 20 | 20 | if ( $cont =~ m<<\?php .* \?>>xs ) { |
| 21 | | - ok 1 => "$file has <?php ?>"; |
| | 21 | + pass "$file has <?php ?>"; |
| 22 | 22 | } elsif ( $cont =~ m<<\? .* \?>>xs ) { |
| 23 | | - ok 0 => "$file does not use <? ?>"; |
| | 23 | + fail "$file does not use <? ?>"; |
| 24 | 24 | } else { |
| 25 | | - ok 1 => "$file has neither <?php ?> nor <? ?>, check it"; |
| | 25 | + pass "$file has neither <?php ?> nor <? ?>, check it"; |
| 26 | 26 | } |
| 27 | 27 | } |
| 28 | 28 | |
| Index: trunk/phase3/t/maint/unix-newlines.t |
| — | — | @@ -18,9 +18,9 @@ |
| 19 | 19 | for my $file (@files) { |
| 20 | 20 | my $cont = slurp $file; |
| 21 | 21 | if ( $cont and $cont =~ $CRLF ) { |
| 22 | | - ok 0 => "$file contains windows newlines"; |
| | 22 | + pass "$file contains windows newlines"; |
| 23 | 23 | } else { |
| 24 | | - ok 1 => "$file is made of unix newlines and win"; |
| | 24 | + fail "$file is made of unix newlines and win"; |
| 25 | 25 | } |
| 26 | 26 | } |
| 27 | 27 | |
| Property changes on: . |
| ___________________________________________________________________ |
| Modified: svk:merge |
| 28 | 28 | - 27bc04cf-33ed-4153-9a14-f265503a8842:/local/mediawiki:61199 |
| 7cf7ea9e-0fb0-4aec-bfeb-b705e7e456c6:/local/mediawiki:61660 |
| 29 | 29 | + 27bc04cf-33ed-4153-9a14-f265503a8842:/local/mediawiki:61202 |
| 7cf7ea9e-0fb0-4aec-bfeb-b705e7e456c6:/local/mediawiki:61660 |