| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| 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 'virgil:[aeneid]' and $type eq '.book7')
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| 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 j(0..11)
[all...] |
| 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 'x' ; # P Q R
[all...] |
| 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 'a:b:c:d:e'
[all...] |
| 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";}
|
| 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 1;2;3;4\n"
[all...] |
| 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;
|
| 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 "-1") {print "ok 16\n";} else {print "not ok 16 $r\n";
[all...] |
| 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";}
|
| 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 'ac' || $foo eq 'ca') {print "ok 14\n";} else {print "not ok 14\n";
[all...] |
| 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";}
|
| subst_wamp.t | 6 do ($^O eq 'MacOS' ? $file : "./$file");
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Term/ANSIColor/ |
| test.pl | 26 if (color ('blue on_green', 'bold') eq "\e[34;42;1m") {
33 if (colored ("testing", 'blue', 'bold') eq "\e[34;1mtesting\e[0m") {
40 if (BLUE BOLD "testing" eq "\e[34m\e[1mtesting") {
48 if (BLUE BOLD "testing" eq "\e[34m\e[1mtesting\e[0m\e[0m") {
57 eq "\e[1mtest\e[0m\n\n\e[1mtest\e[0m") {
67 eq "\e[1mtest\ntest\r\e[0m\r\n\r\n") {
76 eq "\e[1;42mtest\e[0m\n\n\e[1;42mtest\e[0m") {
85 if (join ('|', @names) eq 'bold|on_green|clear') {
104 if (GREEN 'testing' eq 'testing') {
112 if (DARK "testing" eq "\e[2mtesting\e[0m")
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| 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,
|
| validate.pl | 66 $tmp eq 'r' && ($mess = "$file is not readable by uid $>.");
67 $tmp eq 'w' && ($mess = "$file is not writable by uid $>.");
68 $tmp eq 'x' && ($mess = "$file is not executable by uid $>.");
69 $tmp eq 'o' && ($mess = "$file is not owned by uid $>.");
70 $tmp eq 'R' && ($mess = "$file is not readable by you.");
71 $tmp eq 'W' && ($mess = "$file is not writable by you.");
72 $tmp eq 'X' && ($mess = "$file is not executable by you.");
73 $tmp eq 'O' && ($mess = "$file is not owned by you.");
74 $tmp eq 'e' && ($mess = "$file does not exist.");
75 $tmp eq 'z' && ($mess = "$file does not have zero size.")
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
| if.t | 10 if ($x eq $x) { print "ok 1\n"; } else { print "not ok 1\n";}
|
| 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 "1000" ? "ok 10\n" : "not ok 10 # $a\n"
[all...] |
| 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 '') {
|
| /onnv/onnv-gate/usr/src/cmd/sh/ |
| test.c | 52 if (eq(com[0],"["))
54 if (!eq(com[--ac], "]"))
88 if (eq(p2, "-o"))
91 /* if (!eq(p2, ")"))
107 if ((p2 != 0) && eq(p2, "-a"))
116 if (eq(nxtarg(0), "!"))
131 if (eq(a, "("))
134 if (!eq(nxtarg(0), ")"))
140 if ((p2 == 0) || (!eq(p2, "=") && !eq(p2, "!="))
[all...] |
| /onnv/onnv-gate/usr/src/cmd/fm/fmd/common/ |
| fmd_eventq.c | 41 fmd_eventq_t *eq = fmd_zalloc(sizeof (fmd_eventq_t), FMD_SLEEP); local
43 (void) pthread_mutex_init(&eq->eq_lock, NULL);
44 (void) pthread_cond_init(&eq->eq_cv, NULL);
46 eq->eq_mod = mp;
47 eq->eq_stats = stats;
48 eq->eq_stats_lock = stats_lock;
49 eq->eq_limit = limit;
50 eq->eq_sgid = fmd_dispq_getgid(fmd.d_disp, eq);
52 return (eq);
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
| function.t | 34 if ($^O eq 'VMS') { $CRLF = "\n"; }
57 test(2,request_method() eq 'GET',"CGI::request_method()");
58 test(3,query_string() eq 'game=chess;game=checkers;weather=dull',"CGI::query_string()");
60 test(5,join(' ',sort {$a cmp $b} param()) eq 'game weather',"CGI::param()");
61 test(6,param('game') eq 'chess',"CGI::param()");
62 test(7,param('weather') eq 'dull',"CGI::param()");
63 test(8,join(' ',param('game')) eq 'chess checkers',"CGI::param()");
65 test(10,param(-name=>'foo') eq 'bar','CGI::param() get');
66 test(11,query_string() eq 'game=chess;game=checkers;weather=dull;foo=bar',"CGI::query_string() redux");
67 test(12,http('love') eq 'true',"CGI::http()")
[all...] |
| html.t | 24 if ($^O eq 'VMS') {
40 test(2,h1() eq '<h1 />',"single tag");
41 test(3,h1('fred') eq '<h1>fred</h1>',"open/close tag");
42 test(4,h1('fred','agnes','maura') eq '<h1>fred agnes maura</h1>',"open/close tag multiple");
43 test(5,h1({-align=>'CENTER'},'fred') eq '<h1 align="CENTER">fred</h1>',"open/close tag with attribute");
44 test(6,h1({-align=>undef},'fred') eq '<h1 align>fred</h1>',"open/close tag with orphan attribute");
45 test(7,h1({-align=>'CENTER'},['fred','agnes']) eq
50 test(8,h1('fred','agnes','maura') eq '<h1>fred-agnes-maura</h1>',"open/close tag \$\" interpolation");
52 test(9,header() eq "Content-Type: text/html; charset=ISO-8859-1${CRLF}${CRLF}","header()");
53 test(10,header(-type=>'image/gif') eq "Content-Type: image/gif${CRLF}${CRLF}","header()")
[all...] |
| request.t | 37 test(3,$q->request_method eq 'GET',"CGI::request_method()");
38 test(4,$q->query_string eq 'game=chess;game=checkers;weather=dull',"CGI::query_string()");
40 test(6,join(' ',sort $q->param()) eq 'game weather',"CGI::param()");
41 test(7,$q->param('game') eq 'chess',"CGI::param()");
42 test(8,$q->param('weather') eq 'dull',"CGI::param()");
43 test(9,join(' ',$q->param('game')) eq 'chess checkers',"CGI::param()");
45 test(11,$q->param(-name=>'foo') eq 'bar','CGI::param() get');
46 test(12,$q->query_string eq 'game=chess;game=checkers;weather=dull;foo=bar',"CGI::query_string() redux");
47 test(13,$q->http('love') eq 'true',"CGI::http()");
48 test(14,$q->script_name eq '/cgi-bin/foo.cgi',"CGI::script_name()")
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| 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 $s)?"ok $test\n":"not ok $test\n"); $test++
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/User/ |
| 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 $pwent[7]
[all...] |
