Searched refs:badrec (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/
H A D09_gen_rs.t94 my $badrec = "Malformed";
102 print $z eq "$badrec$:" ? "ok $N\n" :
103 "not ok $N \# got $z, expected $badrec\n";
106 check_contents($badrec, "next");
114 check_contents($badrec, "x", "y");
125 print $r[0] eq "$badrec$:" ? "ok $N\n"
126 : "not ok $N \# expected <$badrec>, got <$r[0]>\n";
140 check_contents($badrec);
149 $badrec = "world${RECSEP}hello";
164 print F $badrec;
[all...]
H A D08_ro.t40 my $badrec = "Malformed";
61 print F $badrec;
63 unless (-s $file == length $badrec) {

Completed in 23 milliseconds