Home
last modified time | relevance | path

Searched refs:unless (Results 1 – 25 of 1451) sorted by relevance

12345678910>>...59

/openbsd/gnu/usr.bin/perl/t/comp/
H A Dproto.t83 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 Drequire.t108 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 Dcmdopt.t8 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 Dh2ph.pht5 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 Dpwent.t11 $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 Dgrent.t13 $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 Dlex.t355 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 Dio_sel.t29 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 Dio_poll.t19 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 Dprotoent.t11 $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 Dservent.t11 $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 Dnetent.t11 $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 Dencoding.t7 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 DComplex.t42 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 Dmb.t29 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 D01SelfLoader.t90 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 Dunicode.t13 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 Dmode.t38 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 Dpwent.t20 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 Dtest_bootstrap.t28 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 Dmod.t6 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 Deintr_print.t23 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 Dlooprest.t17 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 Dloopblock.t17 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 Drecurse.t36 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 …]

12345678910>>...59