/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | colon.t | 21 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 D | term.t | 9 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 D | bproto.t | 20 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 D | switcha.t | 11 not ok 12 not ok 3
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | exists_sub.t | 22 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 D | mkdir.t | 17 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 D | glob.t | 30 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 D | regmesg.t | 31 '/(?<= .*)/' => '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 D | pwent.t | 16 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 D | vars.t | 24 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 D | diagnostics.t | 20 'base'->import(qw(I::do::not::exist)); 23 like( $@, qr/^Base class package "I::do::not::exist" is empty/);
|
H A D | if.t | 23 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 D | Memoize.t | 27 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 D | Makefile | 6 # (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 D | Makefile | 6 # (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 D | Makefile | 6 # (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 D | Makefile | 6 # (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 D | errlist | 6 * 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 D | fail-more.t | 29 $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 D | extra.t | 20 $ok .= "not " unless $test; 51 not ok 2 - Bar 54 not ok 5 - Sar
|
H A D | fail.t | 29 $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 D | http.t | 13 # 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 D | CheckTree.t | 70 && $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 D | writemakefile_args.t | 49 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 D | ParseWords.t | 14 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...] |