Home
last modified time | relevance | path

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

12345678910>>...57

/openbsd-src/gnu/usr.bin/perl/t/comp/
H A Dproto.t53 print "not " unless 0 == no_proto();
56 print "not " unless 1 == no_proto(5);
59 print "not " unless 4 == &no_proto;
62 print "not " unless 1 == no_proto +6;
65 print "not " unless 4 == no_proto(@_);
80 print "not " unless 0 == no_args();
83 print "not " unless 0 == no_args;
86 print "not " unless 5 == no_args +5;
89 print "not " unless 4 == &no_args;
92 print "not " unless 2 == &no_args(1,2);
[all …]
H A Drequire.t89 print "# $@\nnot " unless $@ =~ /^\QPerl v10.0.2 required\E/;
100 print "# $@\nnot " unless $@ =~ /^\QPerl v10.200.0 required\E/;
105 print "# $@\nnot " unless $@ =~ /^\QPerl v10.0.20 required\E/;
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}";
119 unless v1.20.300.4000.50000.600000 eq "\x{1}\x{14}\x{12c}\x{fa0}\x{c350}\x{927c0}";
139 print "# $@\nnot " unless $@ =~ /did not return a true/;
149 print "not " unless -e $flag_file;
154 print "not " unless -e $flag_file xor $expected_compile;
[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-src/gnu/usr.bin/perl/t/lib/
H A Dh2ph.pht8 }' unless defined(&SQUARE);
9 unless(defined(&ERROR)) {
13 }' unless defined(&ERROR);
20 }' unless defined(&NOT_DEFINED_HERE);
21 unless(defined(&_H2PH_H_)) {
22 eval 'sub _H2PH_H_ () {1;}' unless defined(&_H2PH_H_);
28 }' unless defined(&MAX);
29 eval 'sub NOTTRUE () {0;}' unless defined(&NOTTRUE);
35 }' unless defined(&MIN);
42 eval 'sub EVERYTHING_IS_OK () {1;}' unless define
[all...]
/openbsd-src/gnu/usr.bin/perl/lib/User/
H A Dpwent.t11 $haspw = 1 unless $@ && $@ =~ /unimplemented/;
12 unless ($haspw) { print "1..0 # Skip: no getpwuid\n"; exit 0 }
15 $haspw = 0 unless ( $Config{'i_pwd'} eq 'define' || $^O eq 'VMS' );
16 unless ($haspw) { print "1..0 # Skip: no pwd.h\n"; exit 0 }
26 unless (@pwent) { print "1..0 # Skip: no uid $uid\n"; exit 0 }
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];
[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-src/gnu/usr.bin/perl/t/base/
H A Dlex.t149 print "not " unless index ($@, 'Can\'t use global $^X in "my"') > -1;
154 print "not " unless index ($@, 'Can\'t use global $^XYZ in "my"') > -1;
193 print "not " unless $^Q eq 'Someother';
195 print "not " unless $ {^Quixote} eq 'Someother 2';
197 print "not " unless $ {^M} eq 'Someother 3';
208 print "# $p:$f:$l vs /$where/\nnot " unless "$p:$f:$l" =~ /$where/;
290 print "not " unless($a[~~2] == 3);
346 print "not " unless qr/(?{<<END})/ eq '(?^:(?{<<END}))';
355 print "not " unless /foo/;
366 print 'not ' unless $_ eq "b\0";
[all …]
/openbsd-src/gnu/usr.bin/perl/dist/IO/t/
H A Dio_sel.t18 print "not " unless $sel->count == 4 && @handles == 4;
29 print "not " unless $sel->count == 2;
34 print "not " unless $sel->count == 0 && !defined($sel->bits);
38 print "not " unless $sel->count == 0 && !defined($sel->bits);
42 print "not " unless $sel->count == 0 && !defined($sel->bits);
54 print "not " unless @a == 0;
61 print "not " unless @a == 1;
70 print "not " unless @a == 3;
75 print "not " unless @$r == 0 && @$w == 1 && @$e == 0;
105 print "not " unless $sel->count == 7;
[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-src/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-src/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;
51 print "not " unless ord(substr($c, 1, 1)) == 0x100;
54 print "not " unless ord(chr(0xdf)) == 0x3af; # spooky
57 print "not " unless ord(pack("C", 0xdf)) == 0x3af;
62 print "not " unless unpack("C", pack("C", 0xdf)) == 0xdf;
66 print "not " unless unpac
[all...]
/openbsd-src/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;
99 print 'not ' unless (abs($z) - 3 * sqrt(2)) < $eps and
112 print 'not ' unless (arg($z) + 3 / 4 * pi) < $eps and
149 print 'not ' unless (\$@ =~ /Division by zero/);
164 print 'not ' unless (\$@ =~ /Logarithm of zero/);
208 print 'not ' unless (\$@ =~ /root rank must be/);
220 print "not " unless Math::Complex->display_format eq 'cartesian';
233 print "not " unless \$j->display_format eq 'polar';
240 print "not " unless "\$j" eq "[1,2pi/3]";
[all …]
/openbsd-src/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-src/gnu/usr.bin/perl/dist/SelfLoader/t/
H A D01SelfLoader.t87 print "not " unless $foo->foo eq 'foo'; # selfloaded first time
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';
127 print "not " unless $foo->bazmarkhianish($1) eq 'foo';
130 print "not " unless $foo->bazmarkhianish($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';
[all …]
/openbsd-src/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-src/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-src/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>;
71 next unless -x $dscl;
72 next unless open my $fh, '-|', "$dscl . -readall /Users @{[keys %want]} 2>/dev/null";
89 unless (defined $value) {
178 next unless @n;
203 skip("Found no password entries", 1) unless $n;
234 last unless defined $pw;
244 last unless define
[all...]
/openbsd-src/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-src/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-src/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-src/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-src/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';
48 die "STORABLE_thaw #3" unless @$a == 2 && $a->[0] eq 'a' && $a->[1] == 1;
50 die "STORABLE_thaw #4" unless Storable::is_retrieving;
69 die "STORABLE_thaw #1" unless $obj eq $self;
70 die "STORABLE_thaw #2" unless ref $a eq 'ARRAY' || @$a != 2;
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';
[all …]

12345678910>>...57