Searched refs:not (Results 1 - 25 of 208) sorted by relevance

123456789

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dcolon.t21 print "not " unless $ok;
31 not eval "ABC:: eq ABC||" and
32 not eval "ABC::: >= 0");
36 not eval "LABEL:: eq LABEL||" and
37 not eval "LABEL::: >= 0");
41 not eval "XYZZY:: eq XYZZY||" and
42 not eval "XYZZY::: >= 0");
45 not eval "m::zyx" and
47 not eval "m::: >= 0");
50 not eva
[all...]
H A Dterm.t9 if ($x eq '\n') {print "ok 1\n";} else {print "not ok 1\n";}
13 unless (index($x,'\\\\')>0) {print "ok 2\n";} else {print "not ok 2\n";}
15 if (length('\\\\') == 2) {print "ok 3\n";} else {print "not ok 3\n";}
19 if (length("\\n") == 2) {print "ok 4\n";} else {print "not ok 4\n";}
20 if (length("\\\n") == 2) {print "ok 5\n";} else {print "not ok 5\n";}
21 if (length("$one\\n") == 3) {print "ok 6\n";} else {print "not ok 6\n";}
22 if (length("$one\\\n") == 3) {print "ok 7\n";} else {print "not ok 7\n";}
23 if (length("\\n$one") == 3) {print "ok 8\n";} else {print "not ok 8\n";}
24 if (length("\\\n$one") == 3) {print "ok 9\n";} else {print "not ok 9\n";}
25 if (length("\\${one}") == 2) {print "ok 10\n";} else {print "not o
[all...]
H A Dbproto.t20 print "not " unless $@ =~ /^Too many arguments/;
26 print "not " if $@;
41 grep(not($bar), $bar);
42 grep(not($bar, $bar), $bar);
43 grep((not $bar, $bar, $bar), $bar);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dswitcha.t11 not ok
12 not ok 3
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dexists_sub.t22 print "not " unless exists &t1 && not defined &t1;
24 print "not " unless exists &t2 && not defined &t2;
26 print "not " unless exists &t3 && not defined &t3;
28 print "not " unless exists &t4 && not defined &t4;
30 print "not " unless exists &t5 && defined &t5;
33 print "not " unles
[all...]
H A Dmkdir.t17 print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
18 print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
20 print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
21 print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
22 print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
23 print ($! =~ /cannot find|such|exist|not found|not a directory/i ? "ok 7\n" : "# $!\nnot ok 7\n");
24 print (mkdir('blurfl') ? "ok 8\n" : "not ok 8\n");
25 print (rmdir('blurfl') ? "ok 9\n" : "not ok 9\n");
31 print (mkdir('blurfl///') ? "ok 10\n" : "not o
[all...]
H A Dglob.t30 print "not ok 1\t(",join(' ', sort keys %files),"\n";
33 print $/ eq "\n" ? "ok 2\n" : "not ok 2\n";
37 $not = "not " unless $_ eq shift @ops;
38 $not = "not at all " if $/ eq "\0";
42 $not = "not " unless $_ eq shift @ops;
43 $not = "not a
[all...]
H A Dregmesg.t31 '/(?<= .*)/' => 'Variable length lookbehind not implemented in regex; marked by {#} in m/(?<= .*){#}/',
33 '/(?<= x{1000})/' => 'Lookbehind longer than 255 not implemented in regex; marked by {#} in m/(?<= x{1000}){#}/',
35 '/(?@)/' => 'Sequence (?@...) not implemented in regex; marked by {#} in m/(?@{#})/',
37 '/(?{ 1/' => 'Sequence (?{...}) not terminated or not {}-balanced in regex; marked by {#} in m/(?{{#} 1/',
39 '/(?(1x))/' => 'Switch condition not recognized in regex; marked by {#} in m/(?(1x{#}))/',
47 '/(?;x/' => 'Sequence (?;...) not recognized in regex; marked by {#} in m/(?;{#}x/',
48 '/(?<;x/' => 'Sequence (?<;...) not recognized in regex; marked by {#} in m/(?<;{#}x/',
106 # utf8 is a noop on EBCDIC platforms, it is not fatal
121 # skip the utf8 test on EBCDIC since they do not di
[all...]
H A Dpwent.t16 elsif (not -f "/etc/passwd" ) { # Play safe.
20 if (not defined $where) { # Try NIS.
32 if (not defined $where) { # Try NetInfo.
44 if (not defined $where) { # Try local.
52 if (not defined $where) { # Try NIS+
125 # Do not compare passwords: think shadow passwords.
142 # The failure of op/pwent test is not necessarily serious.
154 print "not ";
155 $not = 1;
157 $not
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dvars.t24 my $e = !(grep /^Name "X::x" used only once: possible typo/, @warns) && 'not ';
26 $e = !(grep /^Name "main::x" used only once: possible typo/, @warns) && 'not ';
28 $e = !(grep /^Name "main::y" used only once: possible typo/, @warns) && 'not ';
30 $e = !(grep /^Name "main::z" used only once: possible typo/, @warns) && 'not ';
32 ($e, @warns) = @warns != 4 && 'not ';
38 $e = ! $main::{p} && 'not ';
40 $e = ! *q{ARRAY} && 'not ';
42 $e = ! *r{HASH} && 'not ';
44 $e = ! $main::{s} && 'not ';
46 $e = ! *t{CODE} && 'not ';
[all...]
H A Ddiagnostics.t20 'base'->import(qw(I::do::not::exist));
23 like( $@, qr/^Base class package "I::do::not::exist" is empty/);
H A Dif.t23 ok( (not defined eval "use if ($v_plus > \$]), strict => 'refs'; \${'f'} = 12"
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/
H A DMemoize.t27 ok(not exists $hash{'strict.pm'});
32 ok(not exists $hash{'strict.pm'});
33 ok(not defined $hash{fake_file3});
34 ok(not defined $hash{known_to_exist});
35 ok(not exists $hash{known_to_exist});
36 ok(not exists $hash{'strict.pm'});
41 ok(not exists $hash{'strict.pm'});
49 ok(not exists $hash{fake_file2});
50 ok(not exists $hash{fake_file1});
51 ok(not exist
[all...]
/osnet-11/usr/src/lib/libxcurses/src/tabs/
H A DMakefile6 # (the "License"). You may not use this file except in compliance
71 @echo this tabs is not currently used by Solaris
/osnet-11/usr/src/lib/libxcurses/src/terminfo/
H A DMakefile6 # (the "License"). You may not use this file except in compliance
32 @echo these terminfo entries are not currently used by Solaris
/osnet-11/usr/src/lib/libxcurses/src/tput/
H A DMakefile6 # (the "License"). You may not use this file except in compliance
70 @echo this tput is not currently used by Solaris
/osnet-11/usr/src/lib/libxcurses/src/tic/
H A DMakefile6 # (the "License"). You may not use this file except in compliance
77 @echo this tic and untic is not currently used by Solaris
/osnet-11/usr/src/lib/libc/port/gen/
H A Derrlist6 * You may not use this file except in compliance with the License.
78 38 Level 2 not synchronized
82 42 Protocol driver not attached
88 48 Operation not supported
93 53 Cryptographic key not available
99 59 Lock is not recoverable
104 64 Machine is not on the network
105 65 Package not installed
113 73 Facility is not active
118 80 Name not uniqu
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dfail-more.t29 $ok .= "not " unless $test;
100 not ok 1 - failing
101 not ok 2 - foo is bar?
102 not ok 3 - undef is empty string?
103 not ok 4 - undef is 0?
104 not ok 5 - empty string is 0?
105 not ok 6 - foo isnt foo?
106 not ok 7 - foo isn't foo?
107 not ok 8 - is foo like that
108 not o
[all...]
H A Dextra.t20 $ok .= "not " unless $test;
51 not ok 2 - Bar
54 not ok 5 - Sar
H A Dfail.t29 $ok .= "not " unless $test;
57 not ok 4 - oh no!
58 not ok 5 - damnit
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A Dhttp.t13 # http() without arguments should not cause warnings
20 # Capitalization and the use of hyphens versus underscores are not significant.
38 push @expect, 'HTTPS' if not exists $ENV{HTTPS};
39 push @expect, 'HTTPS_KEYSIZE' if not exists $ENV{HTTPS_KEYSIZE};
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCheckTree.t70 && $warnings[0] =~ /lib is not a plain file/
101 && $warnings[0] =~ /lib is not a plain file/
102 && $warnings[1] =~ /t\/TEST is not a directory/
138 && $warnings[0] =~ /Spec is not a plain file/
139 && $warnings[1] =~ /INSTALL is not a directory/
163 if ( $@ && $@ =~ /lib is not a plain file/
164 && not defined $num_warnings )
187 && not defined $num_warnings )
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Dwritemakefile_args.t49 WARNING: MAN3PODS takes a hash reference not a string/number.
63 WARNING: AUTHOR takes a string/number not a code reference.
68 # our verification did not take this into account.
101 like( $warnings, qr{^WARNING: LIBS takes a array reference or string/number not a hash reference}m );
111 like( $warnings, qr{^WARNING: WIBBLE is not a known parameter.\n}m );
112 like( $warnings, qr{^WARNING: wump is not a known parameter.\n}m );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/
H A DParseWords.t14 print "not " if $words[0] ne 'foo';
16 print "not " if $words[1] ne 'bar quiz';
18 print "not " if $words[2] ne 'zoo';
27 print "not " unless join(";", @words) eq qq(foo;"bar:foo";zoo zoo;);
33 print "not " unless join(";", @words) eq qq(4; ;3; ;2; ;1; ;0);
41 print "not " unless $result eq 'aaaa"bbbbb"|cc\\ cc|\\\\\\"dddd" eee\\\\\\"ffff"|"gg"';
46 print "not " unless $result eq 'aaaabbbbb|cc cc|\\"dddd eee\\"ffff|gg';
52 print "not " unless $result eq 'aaaabbbbb|cc cc|\\"dddd eee\\\\\\"ffff|gg';
57 print "not " unless (@lists == 3 && @{$lists[0]} == 3 && @{$lists[1]} == 3 && @{$lists[2]} == 3);
64 print "not " i
[all...]

Completed in 97 milliseconds

123456789