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";
}
}
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'";
}
}
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";
}
}
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";
}
}