/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
H A D | Basename.t | 22 if ($base eq 'draft' and $path eq '/virgil/aeneid/' and $type eq '.book7') { 28 print +(basename('/arma/virumque.cano') eq 'virumque.cano' ? 30 print +(dirname('/arma/virumque.cano') eq '/arma' ? '' : 'not '),"ok 5\n"; 31 print +(dirname('arma/') eq '.' ? '' : 'not '),"ok 6\n"; 32 print +(dirname('/') eq '/' ? '' : 'not '),"ok 7\n"; 36 print +(File::Basename::fileparse_set_fstype('VMS') eq 'unix' ? 41 if ($base eq 'draft' and $path eq 'virgi [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | splice.t | 9 print "not " unless j(splice(@a,@a,0,11,12)) eq "" && j(@a) eq j(1..12); 12 print "not " unless j(splice(@a,-1)) eq "12" && j(@a) eq j(1..11); 15 print "not " unless j(splice(@a,0,1)) eq "1" && j(@a) eq j(2..11); 18 print "not " unless j(splice(@a,0,0,0,1)) eq "" && j(@a) eq j(0..11); 21 print "not " unless j(splice(@a,5,1,5)) eq "5" && j(@a) eq [all...] |
H A D | substr.t | 30 ok 1, substr($a,0,3) eq 'abc'; # P=Q R S 31 ok 2, substr($a,3,3) eq 'def'; # P Q R S 32 ok 3, substr($a,6,999) eq 'xyz'; # P Q S R 37 ok 6, substr($a,0,-6) eq 'abc'; # P=Q R S 38 ok 7, substr($a,-3,1) eq 'x'; # P Q R S 42 ok 8, substr($a,1,3) eq 'abc' ; # P=Q R S 43 ok 9, substr($a,4,3) eq 'def' ; # P Q R S 44 ok 10, substr($a,7,999) eq 'xyz';# P Q S R 49 ok 13, substr($a,1,-6) eq 'abc' ;# P=Q R S 50 ok 14, substr($a,-3,1) eq ' [all...] |
H A D | range.t | 12 print join(':',1..5) eq '1:2:3:4:5' ? "ok 1\n" : "not ok 1\n"; 17 print join(':',@foo[$foo[0]..5]) eq '2:c:d:e:6' ? "ok 2\n" : "not ok 2\n"; 20 print join(':',@bar[1..5]) eq ':c:d:e:' ? "ok 3\n" : "not ok 3\n"; 23 print join(':',$a,@bcd[0..2],$e) eq 'a:b:c:d:e' ? "ok 4\n" : "not ok 4\n"; 38 print $x eq 'abcdefghijklmnopqrstuvwxyz' ? "ok 7\n" : "not ok 7 $x\n"; 44 print "not " unless join(",", @x) eq 53 print "not " unless join(",", @y) eq join(",", @x); 70 print "not " unless "@a" eq $a; 73 print "not " unless "@b" eq $b; 82 $bad = 1 unless $x eq ' [all...] |
H A D | unshift.t | 10 if (join(' ',@a) eq '0 1 2 3') {print "ok 1\n";} else {print "not ok 1\n";} 12 if (join(' ',@a) eq '3 2 1 0 1 2 3') {print "ok 2\n";} else {print "not ok 2\n";}
|
H A D | list.t | 9 if ($_ eq '1:2:3:4') {print "ok 2\n";} else {print "not ok 2\n";} 12 if ("$a;$b;$c;$d" eq '1;2;3;4') {print "ok 3\n";} else {print "not ok 3\n";} 15 if ("$a;$b;$c" eq '333;222;111') {print "ok 4\n";} else {print "not ok 4\n";} 18 if ("$a;$b;$c" eq '111;222;333') {print "ok 5\n";} else {print "not ok 5 $a;$b;$c\n";} 21 if ("$a;$b;$c" eq '222;111;333') {print "ok 6\n";} else {print "not ok 6\n";} 24 if ($a eq 1) {print "ok 7\n";} else {print "not ok 7\n";} 25 if ($b[1] eq 2) {print "ok 8\n";} else {print "not ok 8\n";} 26 if ($c{2} eq 3) {print "ok 9\n";} else {print "not ok 9\n";} 27 if ($d eq 4) {print "ok 10\n";} else {print "not ok 10\n";} 31 print "#11 $a;$b;$c;$d eq [all...] |
H A D | reverse.t | 10 print "not " unless reverse("abc") eq "cba"; 14 print "not " unless reverse() eq "raboof"; 21 print "not " unless $b[0] eq $a[1] && $b[1] eq $a[0]; 31 print "not " unless $a eq $c;
|
H A D | array.t | 16 if (join('',@ary) eq '12345') {print "ok 1\n";} else {print "not ok 1\n";} 21 if (join('',@ary) eq '1234') {print "ok 4\n";} else {print "not ok 4\n";} 25 if (join('',@ary) eq '12345') {print "ok 5\n";} else {print "not ok 5\n";} 30 if (join('',@ary) eq '1234') {print "ok 8\n";} else {print "not ok 8\n";} 32 if ($ary[5] eq '') {print "ok 9\n";} else {print "not ok 9\n";} 41 if ($r eq "-1") {print "ok 12\n";} else {print "not ok 12 $r\n";} 44 if ($r eq "0,0") {print "ok 13\n";} else {print "not ok 13 $r\n";} 47 if ($r eq "2,0,,2") {print "ok 14\n";} else {print "not ok 14 $r\n";} 52 if ($r eq "1,0,1") {print "ok 15\n";} else {print "not ok 15 $r\n";} 55 if ($r eq " [all...] |
H A D | auto.t | 45 if (++($foo = '99') eq '100') {print "ok 31\n";} else {print "not ok 31\n";} 46 if (++($foo = 'a0') eq 'a1') {print "ok 32\n";} else {print "not ok 32\n";} 47 if (++($foo = 'Az') eq 'Ba') {print "ok 33\n";} else {print "not ok 33\n";} 48 if (++($foo = 'zz') eq 'aaa') {print "ok 34\n";} else {print "not ok 34\n";} 49 if (++($foo = 'A99') eq 'B00') {print "ok 35\n";} else {print "not ok 35\n";} 51 if (++($foo = 'zi') eq 'zj') {print "ok 36\n";} else {print "not ok 36\n";} 52 if (++($foo = 'zr') eq 'zs') {print "ok 37\n";} else {print "not ok 37\n";}
|
H A D | delete.t | 15 if ($foo eq 'b') {print "ok 1\n";} else {print "not ok 1 $foo\n";} 17 if ($foo{1} eq 'a') {print "ok 3\n";} else {print "not ok 3\n";} 18 if ($foo{3} eq 'c') {print "ok 4\n";} else {print "not ok 4\n";} 19 if ($foo{4} eq 'd') {print "ok 5\n";} else {print "not ok 5\n";} 20 if ($foo{5} eq 'e') {print "ok 6\n";} else {print "not ok 6\n";} 25 if ($foo[0] eq 'd') {print "ok 8\n";} else {print "not ok 8 ", $foo[0], "\n";} 26 if ($foo[1] eq 'e') {print "ok 9\n";} else {print "not ok 9 ", $foo[1], "\n";} 29 if ($foo{1} eq 'a') {print "ok 12\n";} else {print "not ok 12\n";} 30 if ($foo{3} eq 'c') {print "ok 13\n";} else {print "not ok 13\n";} 33 if ($foo eq 'a [all...] |
H A D | exp.t | 10 if (substr($s,0,5) eq '1.414') {print "ok 1\n";} else {print "not ok 1\n";} 13 if (substr($s,0,7) eq '2.71828') {print "ok 2\n";} else {print "not ok 2\n";} 22 if (substr($s,0,5) eq '1.414') {print "ok 4\n";} else {print "not ok 4\n";} 25 if (substr($s,0,7) eq '2.71828') {print "ok 5\n";} else {print "not ok 5\n";}
|
H A D | subst_wamp.t | 6 do ($^O eq 'MacOS' ? $file : "./$file");
|
H A D | oct.t | 12 if ($act eq 'oct') { 14 } elsif ($act eq 'hex') { 20 if ($^O eq 'VMS' && length $string > 256) { 28 if ($act eq 'hex' or $string =~ /x/) { 89 print length eq 5 ? "ok" : "not ok", " 37\n"; 90 print $_ eq "\0"."_"."7"."_"."7" ? "ok" : "not ok", " 38\n"; 92 print $_ eq "\0" ? "ok" : "not ok", " 39\n"; 95 print "\157_" eq "?_" ? "ok" : "not ok", " 40\n"; 98 print "\077_" eq "?_" ? "ok" : "not ok", " 40\n"; 102 print length eq [all...] |
H A D | glob.t | 12 if ($^O eq 'MSWin32') { 16 elsif ($^O eq 'VMS') { 20 elsif ($^O eq 'MacOS') { 33 print $/ eq "\n" ? "ok 2\n" : "not ok 2\n"; 35 if ($^O eq 'MacOS') { 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 at all " if $/ eq "\0"; 48 print $/ eq "\ [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
H A D | if.t | 10 if ($x eq $x) { print "ok 1\n"; } else { print "not ok 1\n";}
|
H A D | num.t | 9 print $a eq "1" ? "ok 1\n" : "not ok 1 # $a\n"; 12 print $a eq "-1" ? "ok 2\n" : "not ok 2 # $a\n"; 15 print $a eq "1" ? "ok 3\n" : "not ok 3 # $a\n"; 18 print $a eq "-1" ? "ok 4\n" : "not ok 4 # $a\n"; 21 print $a eq "0.1" ? "ok 5\n" : "not ok 5 # $a\n"; 24 print $a eq "-0.1" ? "ok 6\n" : "not ok 6 # $a\n"; 27 print $a eq "0.1" ? "ok 7\n" : "not ok 7 # $a\n"; 30 print $a eq "-0.1" ? "ok 8\n" : "not ok 8 # $a\n"; 33 print $a eq "10.01" ? "ok 9\n" : "not ok 9 # $a\n"; 36 print $a eq "100 [all...] |
H A D | term.t | 15 if ($x eq chr(10)) { print "ok 1\n";} 16 elsif ($x eq chr(13)) { print "ok 1 # Mac OS\n"; } 17 elsif ($x eq chr(21)) { print "ok 1 # EBCDIC\n"; } 23 if ($x eq "hi there\n") {print "ok 2\n";} else {print "not ok 2\n";} 43 if ($^O eq 'MacOS') { 49 if (<try> eq '') {
|
H A D | rs.t | 21 if ($bar eq "1\n") {print "ok 1\n";} else {print "not ok 1\n";} 26 if ($bar eq "12\n") {print "ok 2\n";} else {print "not ok 2\n";} 31 if ($bar eq "123") {print "ok 3\n";} else {print "not ok 3\n";} 40 if ($bar eq "1234") {print "ok 4\n";} else {print "not ok 4\n";} 49 if ($bar eq "1234\n12345\n\n") {print "ok 5\n";} else {print "not ok 5\n";} 54 if ($bar eq "123456\n1234567\n") {print "ok 6\n";} else {print "not ok 6\n";} 70 if ($bar eq "12") {print "ok 7\n";} else {print "not ok 7\n";} 75 if ($bar eq "34") {print "ok 8\n";} else {print "not ok 8\n";} 81 if ($bar eq "56") {print "ok 9\n";} else {print "not ok 9\n";} 87 if ($bar eq "7 [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | if.t | 14 ok( eval "use if ($v_minus > \$]), strict => 'subs'; \${'f'} = 12" eq 12, 17 ok( eval "use if ($v_minus > \$]), strict => 'refs'; \${'f'} = 12" eq 12, 20 ok( eval "use if ($v_plus > \$]), strict => 'subs'; \${'f'} = 12" eq 12, 30 ok( eval "use if qw/ 1 if 1 strict subs /; \${'f'} = 12" eq 12,
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | function.t | 28 if ($^O eq 'VMS') { $CRLF = "\n"; } 46 test(2,request_method() eq 'GET',"CGI::request_method()"); 47 test(3,query_string() eq 'game=chess;game=checkers;weather=dull',"CGI::query_string()"); 49 test(5,join(' ',sort {$a cmp $b} param()) eq 'game weather',"CGI::param()"); 50 test(6,param('game') eq 'chess',"CGI::param()"); 51 test(7,param('weather') eq 'dull',"CGI::param()"); 52 test(8,join(' ',param('game')) eq 'chess checkers',"CGI::param()"); 54 test(10,param(-name=>'foo') eq 'bar','CGI::param() get'); 55 test(11,query_string() eq 'game=chess;game=checkers;weather=dull;foo=bar',"CGI::query_string() redux"); 56 test(12,http('love') eq 'tru [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | Abbrev.t | 24 print "not " unless $x{'list'} eq 'list' && 25 $x{'liste'} eq 'listen' && 26 $x{'listen'} eq 'listen'; 29 print "not " unless $x{'a'} eq 'abort' && 30 $x{'ab'} eq 'abort' && 31 $x{'abo'} eq 'abort' && 32 $x{'abor'} eq 'abort' && 33 $x{'abort'} eq 'abort'; 41 print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++; 45 print (($r eq [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/User/ |
H A D | pwent.t | 15 $haspw = 0 unless ( $Config{'i_pwd'} eq 'define' || $^O eq 'VMS' ); 23 if ( $^O eq 'VMS' ) { $uid = $< ; } 37 if ( $^O eq 'cygwin' ) { 46 print "not " unless $pwent->name eq $pwent[0]; 49 if ($^O eq 'os390') { 52 $pwent[1] eq '0'; # go figure 54 print "not " unless $pwent->passwd eq $pwent[1]; 66 print "not " unless $pwent->gecos eq $pwent[6]; 69 print "not " unless $pwent->dir eq [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/t/ |
H A D | clone.t | 12 print "not " unless $b->clone->hexdigest eq md5_hex("a"); 16 print "not " unless $a->hexdigest eq md5_hex("aa"); 19 print "not " unless $a->hexdigest eq md5_hex(""); 23 print "not " unless $b->clone->hexdigest eq md5_hex("ab"); 27 print "not " unless $b->clone->hexdigest eq md5_hex("abc"); 40 print "not " unless ref($b) eq "MD5" && $b->add("b")->hexdigest eq md5_hex("ab");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | inplace.t | 3 $^I = $^O eq 'VMS' ? '_bak' : '.bak'; 10 if ($^O eq 'MSWin32') { 16 elsif ($^O eq 'NetWare') { 22 elsif ($^O eq 'MacOS') { 28 elsif ($^O eq 'VMS') { 45 if (`$CAT .a .b .c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";} 46 if (`$CAT .a$^I .b$^I .c$^I` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/ |
H A D | subval.t | 38 if (&foo1(0) eq '0') {print "ok 1\n";} else {print "not ok 1 $foo\n";} 39 if (&foo1(1) eq 'true2') {print "ok 2\n";} else {print "not ok 2\n";} 40 if (&foo2(0) eq 'true3') {print "ok 3\n";} else {print "not ok 3\n";} 41 if (&foo2(1) eq 'true2') {print "ok 4\n";} else {print "not ok 4\n";} 43 if (&foo3(0) eq 'true2') {print "ok 5\n";} else {print "not ok 5\n";} 44 if (&foo3(1) eq '1') {print "ok 6\n";} else {print "not ok 6\n";} 45 if (&foo4(0) eq 'true2') {print "ok 7\n";} else {print "not ok 7\n";} 46 if (&foo4(1) eq 'true3') {print "ok 8\n";} else {print "not ok 8\n";} 48 if (&foo5(0) eq '0') {print "ok 9\n";} else {print "not ok 9\n";} 49 if (&foo5(1) eq 'true [all...] |