| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| H A D | test-harness.t | 42 good => 1,
58 good => 0,
76 good => 1,
92 good => 0,
110 good => 1,
126 good => 1,
142 good => 1,
158 good => 1,
175 good => 0,
193 good
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| H A D | 01_gen.t | 91 my $good = 1; my $warn;
93 local $SIG{__WARN__} = sub { $good = 0; $warn = shift(); ctrlfix($warn)};
97 print $good ? "ok $N\n" : "not ok $N # $warn\n";
98 $N++; $good = 1;
100 $N++; $good = 1;
103 $N++; $good = 1;
105 print $good ? "ok $N\n" : "not ok $N # $warn\n";
106 $N++; $good = 1;
135 my $good = 1;
142 $good
[all...] |
| H A D | 08_ro.t | 44 my $good = 1;
46 local $SIG{__WARN__} = sub { $good = 0; ctrlfix($warn = shift); };
52 print $good ? "ok $N\n" : "not ok $N # $warn\n"; $good = 1; $N++;
54 print $good ? "ok $N\n" : "not ok $N # $warn\n"; $good = 1; $N++;
|
| H A D | 41_heap.t | 45 my $good = 1;
50 $good = 0;
53 print $good ? "ok $N\n" : "not ok $N\n";
179 my $good = 1;
185 $good = 0;
188 print $good ? "ok $N\n" : "not ok $N\n";
192 my $good = 1;
197 $good = 0;
200 print $good ? "ok $N\n" : "not ok $N\n";
|
| H A D | 25_gen_nocache.t | 107 my $good = 1;
114 $good = 0;
117 print $good ? "ok $N\n" : "not ok $N # $msg\n";
|
| H A D | 32_defer_misc.t | 135 my $good = 1;
136 $good &&= hash_equal($o->{cache}, $xcache, "true cache", "expected cache");
137 $good &&= hash_equal($o->{deferred}, $xdefer, "true defer", "expected defer");
138 print $good ? "ok $N\n" : "not ok $N\n";
147 my $good = 1;
153 $good = 0;
157 $good = 0;
166 $good = 0;
170 $good;
|
| H A D | 40_abs_cache.t | 38 my $good = 1;
45 $good = 0;
48 print $good ? "ok $N\n" : "not ok $N\n";
188 my $good = 1;
194 $good = 0;
197 print $good ? "ok $N\n" : "not ok $N\n";
202 my $good = 1;
207 $good = 0;
210 print $good ? "ok $N\n" : "not ok $N\n";
|
| H A D | 30_defer.t | 248 my $good = 1;
256 $good &&= hash_equal(\%cache, $xcache, "true cache", "expected cache");
257 $good &&= hash_equal($o->{deferred}, $xdefer, "true defer", "expected defer");
258 print $good ? "ok $N\n" : "not ok $N\n";
267 my $good = 1;
273 $good = 0;
277 $good = 0;
286 $good = 0;
290 $good;
|
| H A D | 16_handle.t | 133 my $good = 1;
139 $good = 0;
142 print $good ? "ok $N\n" : "not ok $N # $msg\n";
|
| H A D | 07_rv_splice.t | 191 my $good = 1;
192 $good = 0 unless @r == @x;
194 $good = 0 unless $r[$i] eq $x[$i];
196 print $good ? "ok $N\n" : "not ok $N \# was (@r); should be (@x)\n";
|
| H A D | 11_rv_splice_rs.t | 168 my $good = 1;
169 $good = 0 unless @r == @x;
171 $good = 0 unless $r[$i] eq $x[$i];
173 print $good ? "ok $N\n" : "not ok $N \# was (@r); should be (@x)\n";
|
| H A D | 23_rv_ac_splice.t | 168 my $good = 1;
169 $good = 0 unless @r == @x;
171 $good = 0 unless $r[$i] eq $x[$i];
173 print $good ? "ok $N\n" : "not ok $N \# was (@r); should be (@x)\n";
|
| H A D | 04_splice.t | 187 my $good = 1; my $warn;
189 local $SIG{__WARN__} = sub { $good = 0; $warn = shift(); ctrlfix($warn)};
193 print $good ? "ok $N\n" : "not ok $N # $warn\n";
194 $N++; $good = 1;
196 $N++; $good = 1;
199 $N++; $good = 1;
|
| H A D | 09_gen_rs.t | 197 my $good = 1;
202 $good = 0;
205 print $good ? "ok $N\n" : "not ok $N # fetch $msg\n";
|
| H A D | 22_autochomp.t | 121 my $good = 1;
128 $good = 0;
131 print $good ? "ok $N\n" : "not ok $N # $msg\n";
|
| /osnet-11/usr/src/lib/libcurses/screen/ |
| H A D | delay.c | 79 goto good;
98 good:
|
| H A D | chkinput.c | 134 goto good;
153 good:
|
| H A D | ttimeout.c | 69 goto good;
89 good:
|
| H A D | prefresh.c | 161 goto good;
186 good:
|
| /osnet-11/usr/src/lib/libc/port/fp/ |
| H A D | char_to_decimal.h | 52 * char *good = *ppc - 1;
149 good = cp;
152 good = cp - 1;
171 good = cp;
195 good = cp;
211 good = cp;
239 good = cp;
242 good = cp - 1;
263 good = (current == EOF)? cp + 3 - agree :
267 good
[all...] |
| H A D | string_decim.c | 42 char *good = cp - 1; /* last character accepted */ local
|
| H A D | func_decim.c | 43 char *good = cp; /* last character accepted */ local
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
| H A D | blessed.t | 101 my $good = 1;
103 do { $good = 0; last } unless ref $y->[4*$i] eq 'SHORT_NAME';
104 do { $good = 0; last } unless ref $y->[4*$i+1] eq 'SHORT_NAME_WITH_HOOK';
105 do { $good = 0; last } unless ref $y->[4*$i+2] eq $name;
106 do { $good = 0; last } unless ref $y->[4*$i+3] eq "${name}_WITH_HOOK";
108 ok 10, $good;
|
| /osnet-11/usr/src/lib/libc/port/i18n/ |
| H A D | wstod.c | 190 const wchar_t *good = cp - 1; /* last character accepted */ local
242 good = cp;
255 good = cp;
271 good = cp;
295 good = cp - 1;
313 good = (agree < 8)? cp + 2 - agree : cp - 1;
332 good = cp - 1;
348 good = cp;
413 /* advance good to the last accepted digit */
414 good
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | write.t | 83 'i' . 's', "time\n", $good, 'to'
91 $good = 'good';
106 now is the time for all good men to come to\n";
125 'i' . 's', "time\n", $good, 'to'
130 $good = 'good';
148 now is the time for all good men to come to\n";
166 'i' . 's', "time\n", $good, 'to'
173 $good
[all...] |