1N/Aprint "ok $N\n"; $N++;
1N/Aprint $o ?
"ok $N\n" :
"not ok $N\n";
1N/A# 12-20 same-length alterations 1N/A# 21-35 lengthening alterations 1N/A# 36-50 shortening alterations, including truncation 1N/A# (51-56) file with holes 1N/A# (57-59) zero out file 1N/A# (60-62) insert into the middle of an empty file 1N/A# (63-68) Test the ->autochomp() method 1N/A# See if that accidentally changed it 1N/A# (69) Does 'splice' work correctly with autochomp? 1N/A# (70-71) Didn't you forget that fetch may return an unchomped cached record? 1N/A# Actually no, you didn't---_fetch might return such a record, but 1N/A# the chomping is done by FETCH. 1N/A# my $open = open FH, "< $file"; 1N/A print "not ok $N\n# expected <$x>, got <$a>\n"; 1N/A ? "ok $N\n" : "not ok $N\n"; 1N/A print $_[0] ? "ok $N\n" : "not ok $N\n"; 1N/A } elsif ($a eq $x) { print "ok $N\n" } 1N/A die "expect() got ", scalar(@_), " args, should have been 1 or 2";