Lines Matching refs:badrec
94 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;
166 unless (-s $file == length $badrec) {