/openbsd-current/gnu/usr.bin/perl/cpan/Encode/t/ |
H A D | rt.pl | 47 my ($name, $nchar, $nrt, $nok) = rttest($ucm); 48 $nok += 0; 49 ok($nok == 0, "$ucm => $name ($nchar, $nrt, $nok)"); 54 my ($name, $nchar, $nrt, $nok); 69 decode($name, $enc) eq $uni or $nok++; 70 encode($name, $uni) eq $enc or $nok++; 73 return($name, $nchar, $nrt, $nok);
|
/openbsd-current/gnu/usr.bin/perl/Porting/ |
H A D | cmpVERSION.pl | 237 print "1..1\nok 1 - No difference found\n" if $tap; 268 my $nok = "not ok $count - in $pm_file version was $orig_pm_version, now unparsable\n"; 269 print $nok if $tap; 270 print STDERR "# $nok\n"; 290 my $nok = "not ok $count - $pm_file version $pm_version\n"; 291 print $nok; 292 print STDERR "# $nok"; 309 my $nok = "not ok $count - in $dist $file_count $msg modified but no versions were bumped\n"; 312 print $nok if $tap; 313 print STDERR "# $nok\ [all...] |
H A D | leakfinder.pl | 88 eval { $proto->can($method) } || push @nok, $method;
|
H A D | test-dist-modules.pl | 1074 my @nok = (); 1078 eval { $proto->can($method) } || push @nok, $method; 1085 _ok( !@nok, _where(), $name );
|
/openbsd-current/gnu/usr.bin/perl/t/opbasic/ |
H A D | cmp.t | 63 sub nok ($$$$$$$$) { 99 nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '<'); 110 nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '=='); 121 nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '>'); 132 nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '>='); 144 nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '!='); 155 nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '<='); 166 nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '<=> transposed'); 180 nok ($ok, $i3, 'cmp', $j3, $cmp, $i, $j, 'lt'); 190 nok ( [all...] |
/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | numconvert.t | 118 my $nok; 129 $nok = 0; 241 $nok++, 250 ok($nok == 0);
|
H A D | my.t | 114 my %fonts = qw(nok 35); 117 is( $fonts{nok}, 35, 'Supposed to be copy-on-write via force_normal after a THINKFIRST check.' );
|
/openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/ |
H A D | Command.pm | 214 my $nok = 0; 216 $nok ||= !File::Copy::move($src,$dst); 218 return !$nok; 244 my $nok = 0; 246 $nok ||= !File::Copy::copy($src,$dst); 252 return $nok;
|
/openbsd-current/gnu/usr.bin/perl/Cross/ |
H A D | Makefile-cross-SH | 1195 # If you want to report test failures, use "make nok" instead. 1197 .PHONY: ok okfile oknack okfilenack nok nokfile noknack nokfilenack 1211 nok: utilities 1212 $(LDLIBPTH) ./perl -Ilib utils/perlbug -nok -s '(UNINSTALLED)' 1215 $(LDLIBPTH) ./perl -Ilib utils/perlbug -nok -s '(UNINSTALLED)' -F perl.nok 1218 $(LDLIBPTH) ./perl -Ilib utils/perlbug -nok -s '(UNINSTALLED)' -A 1221 $(LDLIBPTH) ./perl -Ilib utils/perlbug -nok -s '(UNINSTALLED)' -F perl.nok -A
|
/openbsd-current/gnu/usr.bin/perl/ |
H A D | Makefile.SH | 1691 # If you want to report test failures, use "make nok" instead. 1693 .PHONY: ok okfile oknack okfilenack nok nokfile noknack nokfilenack 1707 nok: utilities 1708 $(RUN_PERL) utils/perlbug -nok -s '(UNINSTALLED)' 1711 $(RUN_PERL) utils/perlbug -nok -s '(UNINSTALLED)' -F perl.nok 1714 $(RUN_PERL) utils/perlbug -nok -s '(UNINSTALLED)' -A 1717 $(RUN_PERL) utils/perlbug -nok -s '(UNINSTALLED)' -F perl.nok -A
|
H A D | sv.c | 1992 bool nok = FALSE; local 1996 nok = TRUE; 2002 nok = TRUE; 2007 /* Purposefully no true nok here, since we don't want to blow 2010 if (nok) {
|
/openbsd-current/gnu/usr.bin/perl/t/ |
H A D | test.pl | 1574 my @nok = (); 1578 eval { $proto->can($method) } || push @nok, $method; 1585 _ok( !@nok, _where(), $name );
|
/openbsd-current/gnu/usr.bin/perl/utils/ |
H A D | perlbug.PL | 290 "perlbug -ok" and "perlbug -nok" do not report on Perl versions which 971 $0 [-v] [-r returnaddress] [-ok | -okay | -nok | -nokay] 1000 if there were *any* problems at all, use -nok. 1002 -nok Report unsuccessful build on this system to perl porters 1005 -nokay As -nok but allow report from old builds. 1289 S<[ B<-ok> | B<-okay> | B<-nok> | B<-nokay> ]> 1514 =item B<-nok> 1527 As B<-nok> except it will report on older systems.
|
/openbsd-current/gnu/usr.bin/perl/win32/ |
H A D | Makefile | 1417 # If you want to report test failures, use "nmake nok" instead. 1424 nok: utils 1425 $(PERLEXE) ..\utils\perlbug -nok -s "(UNINSTALLED)" 1428 $(PERLEXE) ..\utils\perlbug -nok -s "(UNINSTALLED)" -F perl.nok
|
H A D | GNUmakefile | 1904 # If you want to report test failures, use "gmake nok" instead. 1911 nok: utils $(PERLEXE) $(PERLDLL) Extensions_nonxs Extensions 1912 $(PERLEXE) ..\utils\perlbug -nok -s "(UNINSTALLED)" 1915 $(PERLEXE) ..\utils\perlbug -nok -s "(UNINSTALLED)" -F perl.nok
|
/openbsd-current/gnu/usr.bin/perl/lib/ |
H A D | charnames.t | 387 my $nok = grep { /"VERTICAL TABULATION" is deprecated/ } @WARN; 388 ok(! $nok,
|
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test/ |
H A D | More.pm | 582 my @nok = (); 584 $tb->_try( sub { $proto->can($method) } ) or push @nok, $method; 590 my $ok = $tb->ok( !@nok, $name ); 592 $tb->diag( map " $class->can('$_') failed\n", @nok );
|