Searched refs:eq (Results 1 - 25 of 451) sorted by relevance

1234567891011>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DBasename.t22 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 Dsplice.t9 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 Dsubstr.t30 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 Drange.t12 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 Dunshift.t10 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 Dlist.t9 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 Dreverse.t10 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 Darray.t16 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 Dauto.t45 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 Ddelete.t15 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 Dexp.t10 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 Dsubst_wamp.t6 do ($^O eq 'MacOS' ? $file : "./$file");
H A Doct.t12 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 Dglob.t12 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 Dif.t10 if ($x eq $x) { print "ok 1\n"; } else { print "not ok 1\n";}
H A Dnum.t9 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 Dterm.t15 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 Drs.t21 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 Dif.t14 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 Dfunction.t28 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 DAbbrev.t24 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 Dpwent.t15 $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 Dclone.t12 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 Dinplace.t3 $^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 Dsubval.t38 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...]

Completed in 69 milliseconds

1234567891011>>