Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/30

Lines Matching refs:check_contents
33 check_contents($data);          # nothing written yet
35 check_contents($data);          # nothing written yet
39 check_contents($data . "rec3$:rec4$:");          # now it's written
43 check_contents("${data}rec9$:rec4$:");
45 check_contents("${data}rec9$:rec8$:");
51 check_contents($data);          # nothing written yet
53 check_contents($data);          # nothing written yet
55 check_contents("record0$:rec1$:record2$:");
60 check_contents("record0$:rec1$:record2$:");
62 check_contents("record0$:rec1$:record2$:$:record4$:");
70 check_contents("record0$:rec1$:record2$:$:record4$:");
72 check_contents(join $:, "r0".."r2", "", "r4".."r6", "");
81 check_contents(join $:, "r0".."r2", "", "r4".."r6", "");
83 check_contents(join $:, "r0".."r2", "", "r4".."r6", "");
119 check_contents($data);
125 check_contents($data);
131 check_contents(join("$:", qw(recordA recordB recordC 
137 check_contents(join("$:", qw(recordA recordB recordC 
146 check_contents(join("$:", qw(recordA recordB recordC 
156 check_contents(join("$:", qw(recordA recordB recordC 
164 check_contents(join("$:", qw(recordA recordB recordC 
172 check_contents(join("$:", qw(recordA recordB recordC 
180 check_contents(join("$:", qw(recordA recordB recordC 
187 check_contents(join("$:", qw(recordA recordB recordC 
197 check_contents(join("$:", qw(recordA recordB recordC 
204 check_contents(join("$:", qw(recordA recordB recordC 
211 check_contents(join("$:", qw(recordF recordB recordC
219 check_contents(join("$:", qw(recordF recordB recordC
223 # (79) We can't use check_contents any more, because the object is dead
294 sub check_contents {