/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...] |