| /mirbsd/src/gnu/usr.bin/perl/lib/Test/Harness/t/ |
| 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 => 0, [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/lib/Tie/File/t/ |
| 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 = 0; [all …]
|
| 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;
|
| 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";
|
| 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++;
|
| 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";
|
| 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;
|
| 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;
|
| 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";
|
| 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";
|
| 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";
|
| D | 25_gen_nocache.t | 107 my $good = 1; 114 $good = 0; 117 print $good ? "ok $N\n" : "not ok $N # $msg\n";
|
| D | 16_handle.t | 133 my $good = 1; 139 $good = 0; 142 print $good ? "ok $N\n" : "not ok $N # $msg\n";
|
| D | 22_autochomp.t | 121 my $good = 1; 128 $good = 0; 131 print $good ? "ok $N\n" : "not ok $N # $msg\n";
|
| D | 29a_upcopy.t | 181 my $good = 1; 188 $good = 0; 191 print $good ? "ok $N\n" : "not ok $N # $msg\n";
|
| D | 09_gen_rs.t | 197 my $good = 1; 202 $good = 0; 205 print $good ? "ok $N\n" : "not ok $N # fetch $msg\n";
|
| D | 29_downcopy.t | 334 my $good = 1; 341 $good = 0; 344 print $good ? "ok $N\n" : "not ok $N # $msg\n";
|
| /mirbsd/src/gnu/usr.bin/perl/lib/Tie/ |
| D | File.pm | 1294 my $good = 1; 1300 $good = 0; 1303 $good = 0; 1307 $good = 0; 1312 $good = 0; 1316 $good = 0; 1333 $good = 0; 1336 $good = 0; 1340 $good = 0; 1344 $good = 0; [all …]
|
| /mirbsd/src/usr.sbin/httpd/src/main/ |
| D | util.c | 1213 int good = 0, addspace = 0, in_qpair = 0, in_qstr = 0, in_com = 0; in ap_find_list_item() local 1226 good = 1; /* until proven otherwise for this item */ in ap_find_list_item() 1240 if (good) in ap_find_list_item() 1241 good = (*pos++ == *ptr); in ap_find_list_item() 1247 good = good && (*pos++ == ' '); in ap_find_list_item() 1248 good = good && (*pos++ == *ptr); in ap_find_list_item() 1254 good = good && (*pos++ == ' '); in ap_find_list_item() 1255 good = good && (*pos++ == *ptr); in ap_find_list_item() 1261 good = good && (*pos++ == ' '); in ap_find_list_item() 1262 good = good && (*pos++ == *ptr); in ap_find_list_item() [all …]
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Storable/t/ |
| 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;
|
| /mirbsd/src/usr.sbin/ntpd/ |
| D | client.c | 280 p->reply[p->shift].good = 1; in client_dispatch() 331 int i, best = 0, good = 0; in client_update() local 340 for (i = 0; good == 0 && i < OFFSET_ARRAY_SIZE; i++) in client_update() 341 if (p->reply[i].good) { in client_update() 342 good++; in client_update() 347 if (p->reply[i].good) { in client_update() 348 good++; in client_update() 354 log_info("client_update, %d good, best = %3dms delay", good, in client_update() 357 if (good < OFFSET_ARRAY_SIZE) in client_update() 364 p->reply[i].good = 0; in client_update()
|
| D | ntp.c | 458 p->update.good ? "good" : "bad ", in priv_adjtime() 471 p->update.good ? "" : "not "); in priv_adjtime() 475 if (!p->update.good) in priv_adjtime() 526 peers[i]->update.good = peer_weight; in priv_adjtime() 531 if (peers[i]->update.good) in priv_adjtime() 533 ((double)(peers[i]->update.good) / weight_cnt); in priv_adjtime() 544 peers[i]->update.good, in priv_adjtime() 597 p->update.good = 0; in priv_adjtime()
|
| /mirbsd/src/gnu/usr.bin/perl/t/op/ |
| D | write.t | 83 'i' . 's', "time\n", $good, 'to' 91 $good = 'good'; 125 'i' . 's', "time\n", $good, 'to' 130 $good = 'good'; 166 'i' . 's', "time\n", $good, 'to' 173 $good = 'good';
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/ |
| D | soak | 55 my(@good, @bad, $total); 73 push @good, [$perl, $mm]; 88 print "\nPassed with ", scalar @good, " of $total versions/configurations.\n\n";
|
| /mirbsd/src/gnu/usr.bin/perl/lib/Test/ |
| D | Harness.pm | 329 good => 0, 415 $tot{good}++; 570 $pct = sprintf("%.2f", $tot->{good} / $tot->{tests} * 100); 828 my $good = $max - $failed - $skipped; 829 my $skipmsg = " (less $skipped skipped test$ender: $good okay, "; 831 my $goodper = sprintf("%.2f",100*($good/$max));
|