/openbsd/gnu/usr.bin/perl/t/comp/ |
H A D | proto.t | 83 print "not " unless 0 == no_args; 96 print "not " unless $@; 123 print "not " unless $@; 127 print "not " unless $@; 168 print "not " unless $@; 212 print "not " unless $@; 256 print "not " unless $@; 260 print "not " unless $@; 293 print "not " unless $@; 327 print "not " unless $@; [all …]
|
H A D | require.t | 108 print "not " unless 5.5.1 gt v5.5; 112 print "not " unless v5.5.640 eq "\x{5}\x{5}\x{280}"; 115 print "not " unless v7.15 eq "\x{7}\x{f}"; 139 print "# $@\nnot " unless $@ =~ /did not return a true/; 149 print "not " unless -e $flag_file; 156 print "not " unless exists $INC{'bleah.pm'}; 168 print "not " unless exists $INC{'bleah.pm'}; 174 print "# $@\nnot " unless $@ =~ /Compilation failed/i; 176 print "not " unless -e $flag_file; 178 print "not " unless exists $INC{'bleah.pm'}; [all …]
|
H A D | cmdopt.t | 8 unless (0) { print "ok 2\n";} else { print "not ok 2\n";} 11 unless (1) { print "not ok 4\n";} else { print "ok 4\n";} 13 unless (!1) { print "ok 5\n";} else { print "not ok 5\n";} 16 unless (!0) { print "not ok 7\n";} else { print "ok 7\n";} 38 unless ($x) { print "not ok 18\n";} else { print "ok 18\n";} 42 unless ($x) { print "ok 20\n";} else { print "not ok 20\n";}
|
/openbsd/gnu/usr.bin/perl/t/lib/ |
H A D | h2ph.pht | 5 unless(defined(&SQUARE)) { 11 unless(defined(&ERROR)) { 15 }' unless defined(&ERROR); 17 unless(defined(&_H2PH_H_)) { 24 }' unless defined(&MAX); 31 }' unless defined(&MIN); 63 eval("sub sun () { 0; }") unless defined(&sun); 64 eval("sub mon () { 1; }") unless defined(&mon); 65 eval("sub tue () { 2; }") unless defined(&tue); 66 eval("sub wed () { 3; }") unless defined(&wed); [all …]
|
/openbsd/gnu/usr.bin/perl/lib/User/ |
H A D | pwent.t | 11 $haspw = 1 unless $@ && $@ =~ /unimplemented/; 39 print "not " unless ( $pwent->uid == $uid_expect 43 print "not " unless $pwent->uid == $uid_expect ; 47 print "not " unless $pwent->name eq $pwent[0]; 52 unless not defined $pwent->passwd && 55 print "not " unless $pwent->passwd eq $pwent[1]; 59 print "not " unless $pwent->uid == $pwent[2]; 62 print "not " unless $pwent->gid == $pwent[3]; 67 print "not " unless $pwent->gecos eq $pwent[6]; 70 print "not " unless $pwent->dir eq $pwent[7]; [all …]
|
H A D | grent.t | 13 $hasgr = 1 unless $@ && $@ =~ /unimplemented/; 14 unless ($hasgr) { plan skip_all => "no getgrgid"; } 16 $hasgr = 0 unless $Config{'i_grp'} eq 'define'; 17 unless ($hasgr) { plan skip_all => "no grp.h"; } 23 unless (@grent) { plan skip_all => "no gid 0"; }
|
/openbsd/gnu/usr.bin/perl/t/base/ |
H A D | lex.t | 355 print "not " unless /foo/; 366 print 'not ' unless $_ eq "b\0"; 375 print "not " unless $@; 384 print "not " unless $@; 454 print "not " unless $_ eq 'b'; 461 print "not " unless $_ eq 'b'; 468 print "not " unless $_ eq 'b'; 471 print "not " unless (time 480 print "not " unless 495 print "not "unless $_ == 42; [all …]
|
/openbsd/gnu/usr.bin/perl/dist/IO/t/ |
H A D | io_sel.t | 29 print "not " unless $sel->count == 2; 54 print "not " unless @a == 0; 61 print "not " unless @a == 1; 70 print "not " unless @a == 3; 105 print "not " unless $sel->count == 7; 122 print "not " unless $w == 0 ; 129 print "not " unless $w == 1 ; 142 print "not " unless $sel->count == 2; 145 print "not " unless $sel->remove($fh) == 1; 147 print "not " unless $sel->count == 1; [all …]
|
H A D | io_poll.t | 19 unless $poll->mask($stdout) == POLLOUT; 25 unless $poll->mask($dupout) == POLLPRI; 36 unless $poll->events($stdout) == POLLOUT; 46 unless @h == 2; 54 unless @h == 1; 86 print "not " unless $diff >= 2;
|
/openbsd/gnu/usr.bin/perl/lib/Net/ |
H A D | protoent.t | 11 $haspe = 1 unless $@ && $@ =~ /unimplemented|unsupported/i; 12 unless ($haspe) { print "1..0 # Skip: no getprotobyname\n"; exit 0 } 14 $haspe = 0 unless $Config{'i_netdb'} eq 'define'; 15 unless ($haspe) { print "1..0 # Skip: no netdb.h\n"; exit 0 } 20 unless (@protoent) { print "1..0 # Skip: no tcp protocol\n"; exit 0 } 31 print "not " unless $protoent->name eq $protoent[0]; 34 print "not " unless $protoent->proto == $protoent[2];
|
H A D | servent.t | 11 $hasse = 1 unless $@ && $@ =~ /unimplemented|unsupported/i; 12 unless ($hasse) { print "1..0 # Skip: no getservbyname\n"; exit 0 } 14 $hasse = 0 unless $Config{'i_netdb'} eq 'define'; 15 unless ($hasse) { print "1..0 # Skip: no netdb.h\n"; exit 0 } 20 unless (@servent) { print "1..0 # Skip: no echo service\n"; exit 0 } 31 print "not " unless $servent->name eq $servent[0]; 34 print "not " unless $servent->port == $servent[2];
|
H A D | netent.t | 11 $hasne = 1 unless $@ && $@ =~ /unimplemented|unsupported/i; 12 unless ($hasne) { print "1..0 # Skip: no getnetbyname\n"; exit 0 } 14 $hasne = 0 unless $Config{'i_netdb'} eq 'define'; 15 unless ($hasne) { print "1..0 # Skip: no netdb.h\n"; exit 0 } 20 unless (@netent) { print "1..0 # Skip: no loopback net\n"; exit 0 } 31 print "not " unless $netent->name eq $netent[0];
|
/openbsd/gnu/usr.bin/perl/cpan/Encode/t/ |
H A D | encoding.t | 7 unless (find PerlIO::Layer 'perlio') { 35 print "not " unless ord($a) == 0x3af; 38 print "not " unless ord($b) == 0x100; 45 print "not " unless ord($c) == 0x3af; 48 print "not " unless length($c) == 2; 84 print "not " unless ord($c) == 0x3af; 95 print "not " unless "\xDF" =~ /\x{3AF}/; 98 print "not " unless "\x{3AF}" =~ /\xDF/; 101 print "not " unless "\xDF" =~ /\xDF/; 143 print "not " unless alleq($byte, $U); [all …]
|
/openbsd/gnu/usr.bin/perl/dist/Math-Complex/t/ |
H A D | Complex.t | 42 print "not " unless "$a" eq "3" && "$b" eq "1"; 89 print 'not ' unless Re($z) == 2 and Im($z) == 3; 149 print 'not ' unless (\$@ =~ /Division by zero/); 164 print 'not ' unless (\$@ =~ /Logarithm of zero/); 208 print 'not ' unless (\$@ =~ /root rank must be/); 240 print "not " unless "\$j" eq "[1,2pi/3]"; 346 print "not " unless \$z == cplx(0,3); 354 print "not " unless \$z == cplxe(2,3); 362 print "not " unless \$z == cplx(2,3); 370 print "not " unless \$z == cplxe(2,3*\$pi/8); [all …]
|
/openbsd/gnu/usr.bin/perl/ext/POSIX/t/ |
H A D | mb.t | 29 skip("mblen() not present", 7) unless $Config{d_mblen}; 35 unless locales_enabled('LC_CTYPE'); 37 skip("no utf8 locale available", 4) unless $utf8_locale; 77 skip("mbtowc() not present", 5) unless $Config{d_mbtowc} || $Config{d_mbrtowc}; 85 unless locales_enabled('LC_CTYPE'); 87 skip("no utf8 locale available", 3) unless $utf8_locale; 122 skip("wctomb() not present", 2) unless $Config{d_wctomb} || $Config{d_wcrtomb}; 128 unless locales_enabled('LC_CTYPE'); 130 skip("no utf8 locale available", 1) unless $utf8_locale;
|
/openbsd/gnu/usr.bin/perl/dist/SelfLoader/t/ |
H A D | 01SelfLoader.t | 90 print "not " unless $foo->foo eq 'foo'; # regular call 118 print "not " unless $1 eq 'foo'; 121 print "not " unless $foo->bar($1) eq 'foo'; 124 print "not " unless $foo->bar($1) eq 'foo'; 134 print "not " unless sheep::bleat() eq 'baa'; 143 print "not " unless $bar->b() eq 'b Baz'; 147 print "not " unless $bar->c() eq 'c Baz'; 156 print "not " unless $bar->a() eq 'a Bar'; 159 print "not " unless $bar->b() eq 'b Bar'; 162 print "not " unless $bar->c() eq 'c Baz'; [all …]
|
/openbsd/gnu/usr.bin/perl/cpan/Digest-SHA/t/ |
H A D | unicode.t | 13 unless ($skip) { 14 print "not " unless sha1_hex($empty_unicode."abc") eq 19 unless ($skip) { 20 print "not " unless sha1_hex($ok_unicode) eq 25 unless ($skip) { 27 print "not " unless $@ =~ /Wide character/;
|
/openbsd/gnu/usr.bin/perl/ext/Fcntl/t/ |
H A D | mode.t | 38 skip 'No S_IFCHR', 1 unless defined eval {S_IFCHR}; 47 skip 'No S_IFLNK', 1 unless defined eval {S_IFLNK}; 51 skip 'No S_IFSOCK', 1 unless defined eval {S_IFSOCK}; 55 skip 'No S_IFBLK', 1 unless defined eval {S_IFBLK}; 59 skip 'No S_IFFIFO', 1 unless defined eval {S_IFFIFO}; 63 skip 'No S_IFWHT', 1 unless defined eval {S_IFWHT}; 67 skip 'No S_ENFMT', 1 unless defined eval {S_ENFMT};
|
/openbsd/gnu/usr.bin/perl/t/op/ |
H A D | pwent.t | 20 next unless -x $prog; 21 next unless open PW, '-|', "$prog $args 2>/dev/null"; 22 next unless defined <PW>; 76 next unless -x $dscl; 77 next unless open my $fh, '-|', "$dscl . -readall /Users @{[keys %want]} 2>/dev/null"; 94 unless (defined $value) { 183 next unless @n; 208 skip("Found no password entries", 1) unless $n; 239 last unless defined $pw; 249 last unless defined $pw;
|
/openbsd/gnu/usr.bin/perl/t/porting/ |
H A D | test_bootstrap.t | 28 next unless $file =~ s!^t/!!; 31 next unless $file =~ m!\.t$!; 44 ) unless ($file =~ m|porting/test_bootstrap\.t|); 45 next unless $file =~ m!^base/! or $file =~ m!^comp!; 55 unless $file eq 'comp/use.t'; 58 unless $file eq 'comp/require.t'
|
/openbsd/gnu/usr.bin/perl/t/cmd/ |
H A D | mod.t | 6 print "not ok 1\n" unless 1; 8 print "ok 2\n" unless 0; 45 print "not " unless (-(-$x) < 0) == ($x < 0); 49 print "not ok 11\n" unless $x < 0; 51 print "ok 12\n" unless $x > 0;
|
/openbsd/gnu/usr.bin/perl/t/io/ |
H A D | eintr_print.t | 23 unless ($^O =~ /^(linux|android|.*bsd|darwin|solaris)$/); 25 unless Time::HiRes::d_ualarm(); 27 unless Time::HiRes::d_usleep(); 29 unless eval { pipe my $in, my $out; 1; }; 67 die "EOF" unless $n; 87 die "print failed [ $! ]" unless print($out $full_sample);
|
/openbsd/gnu/usr.bin/perl/ext/XS-APItest/t/ |
H A D | looprest.t | 17 last unless length($t) < 5; 31 last unless length($t) < 5; 44 last unless length($t) < 5; 56 last unless length($t) < 5; 77 last unless length($t) < 7; 94 last unless length($t) < 5; 108 last unless length($t) < 5;
|
H A D | loopblock.t | 17 last unless length($t) < 5; 32 last unless length($t) < 5; 46 last unless length($t) < 5; 59 last unless length($t) < 5; 81 last unless length($t) < 7; 99 last unless length($t) < 5; 114 last unless length($t) < 5;
|
/openbsd/gnu/usr.bin/perl/dist/Storable/t/ |
H A D | recurse.t | 36 die "STORABLE_freeze" unless Storable::is_storing; 44 die "STORABLE_thaw #1" unless $obj eq $self; 47 die "STORABLE_thaw #2" unless ref $a eq 'ARRAY'; 50 die "STORABLE_thaw #4" unless Storable::is_retrieving; 69 die "STORABLE_thaw #1" unless $obj eq $self; 97 die "STORABLE_thaw #1" unless $obj eq $self; 98 die "STORABLE_thaw #2" unless ref $a eq 'ARRAY'; 99 die "STORABLE_thaw #3" unless ref $r eq 'HASH'; 100 die "STORABLE_thaw #4" unless $a->[1] == $r->{ext}; 126 die "STORABLE_thaw #1" unless $obj eq $self; [all …]
|