| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| H A D | 06_fixrec.t | 35 ctrlfix($msg);
41 sub ctrlfix { subroutine
|
| H A D | 18_rs_fixrec.t | 35 ctrlfix($msg);
41 sub ctrlfix { subroutine
|
| H A D | 17_misc_meth.t | 113 ctrlfix(my $msg = "# expected <$x>, got <$a>");
128 ctrlfix(my $msg = "expected UNDEF, got <$a>");
132 ctrlfix(my $msg = "expected <$x>, got UNDEF");
136 ctrlfix(my $msg = "expected <$x>, got <$a>");
145 sub ctrlfix { subroutine
|
| H A D | 22_autochomp.t | 115 ctrlfix($a, $x);
127 ctrlfix($msg);
146 ctrlfix(my $msg = "expected UNDEF, got <$a>");
150 ctrlfix(my $msg = "expected <$x>, got UNDEF");
154 ctrlfix(my $msg = "expected <$x>, got <$a>");
163 sub ctrlfix { subroutine
|
| H A D | 25_gen_nocache.t | 101 ctrlfix($a, $x);
113 ctrlfix($msg);
125 sub ctrlfix { subroutine
|
| H A D | 01_gen.t | 93 local $SIG{__WARN__} = sub { $good = 0; $warn = shift(); ctrlfix($warn)};
129 ctrlfix($a, $x);
141 ctrlfix($msg);
153 sub ctrlfix { subroutine
|
| H A D | 13_size_rs.t | 76 ctrlfix(my $msg = "# expected <$x>, got <$a>");
83 sub ctrlfix { subroutine
|
| H A D | 32_defer_misc.t | 152 print ctrlfix("# Key $k is in $ha but not $hb"), "\n";
155 print ctrlfix("# Key $k is <$a->{$k}> in $ha but <$b->{$k}> in $hb"), "\n";
165 print ctrlfix("# Key $k is in $hb but not $ha"), "\n";
190 my $msg = ctrlfix("# expected <$x>, got <$a>");
203 ctrlfix(my $msg = "expected UNDEF, got <$a>");
207 ctrlfix(my $msg = "expected <$x>, got UNDEF");
211 ctrlfix(my $msg = "expected <$x>, got <$a>");
220 sub ctrlfix { subroutine
|
| H A D | 16_handle.t | 127 ctrlfix(my $msg = "# expected <$x>, got <$a>");
138 ctrlfix($msg);
147 sub ctrlfix { subroutine
|
| H A D | 05_size.t | 107 ctrlfix($a, $x);
117 sub ctrlfix { subroutine
|
| H A D | 08_ro.t | 46 local $SIG{__WARN__} = sub { $good = 0; ctrlfix($warn = shift); };
74 sub ctrlfix { subroutine
|
| H A D | 33_defer_vs.t | 107 my $msg = ctrlfix("# expected <$x>, got <$a>");
113 sub ctrlfix { subroutine
|
| H A D | 09_gen_rs.t | 191 ctrlfix($msg);
201 ctrlfix($msg);
210 sub ctrlfix { subroutine
|
| H A D | 30_defer.t | 233 my $msg = ctrlfix("expected <$x>, got <$z>");
272 print ctrlfix("# Key $k is in $ha but not $hb"), "\n";
275 print ctrlfix("# Key $k is <$a->{$k}> in $ha but <$b->{$k}> in $hb"), "\n";
285 print ctrlfix("# Key $k is in $hb but not $ha"), "\n";
310 my $msg = ctrlfix("# expected <$x>, got <$a>");
316 sub ctrlfix { subroutine
|
| H A D | 15_pushpop.t | 117 ctrlfix(my $msg = "# expected <$x>, got <$a>");
123 sub ctrlfix { subroutine
|
| H A D | 31_autodefer.t | 164 ctrlfix(my $msg = "# expected <$x>, got <$a>");
170 sub ctrlfix { subroutine
|
| H A D | 10_splice_rs.t | 197 ctrlfix(my $msg = "# expected <$x>, got <$a>");
203 sub ctrlfix { subroutine
|
| H A D | 04_splice.t | 189 local $SIG{__WARN__} = sub { $good = 0; $warn = shift(); ctrlfix($warn)};
245 ctrlfix($a, $x);
252 sub ctrlfix { subroutine
|
| H A D | 26_twrite.t | 323 ctrlfix($a, $x);
335 ctrlfix($msg);
347 sub ctrlfix { subroutine
|
| H A D | 29_downcopy.t | 328 ctrlfix($a, $x);
340 ctrlfix($msg);
352 sub ctrlfix { subroutine
|
| H A D | 29a_upcopy.t | 175 ctrlfix($a, $x);
187 ctrlfix($msg);
199 sub ctrlfix { subroutine
|
| H A D | 19_cache.t | 186 sub ctrlfix { subroutine
|
| H A D | 20_cache_full.t | 214 sub ctrlfix { subroutine
|
| H A D | 27_iwrite.t | 225 sub ctrlfix { subroutine
|
| H A D | 28_mtwrite.t | 285 sub ctrlfix { subroutine
|