| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Handle/ |
| stdhandle.t | 18 print "$!\nnot " unless open($f,"+>afile") && open($f, "+<", "afile");
20 print "$!\nnot " unless binmode($f);
22 print "not " unless -f "afile";
24 print "not " unless print $f "SomeData\n";
26 print "not " unless tell($f) == 9;
28 print "not " unless printf $f "Some %d value\n",1234;
30 print "not " unless seek($f,0,0);
33 print "not " unless $b eq "SomeData\n";
38 print "'$b' not " unless $b eq 'Some';
40 print "not " unless getc($f) eq ' '
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Time/ |
| gmtime.t | 11 $hasgm = 1 unless $@ && $@ =~ /unimplemented/;
12 unless ($hasgm) { print "1..0 # Skip: no gmtime\n"; exit 0 }
17 unless (@gmtime) { print "1..0 # Skip: gmtime failed\n"; exit 0 }
28 print "not " unless $gmtime->sec == $gmtime[0];
31 print "not " unless $gmtime->min == $gmtime[1];
34 print "not " unless $gmtime->hour == $gmtime[2];
37 print "not " unless $gmtime->mday == $gmtime[3];
40 print "not " unless $gmtime->mon == $gmtime[4];
43 print "not " unless $gmtime->year == $gmtime[5];
46 print "not " unless $gmtime->wday == $gmtime[6]
[all...] |
| localtime.t | 11 $haslocal = 1 unless $@ && $@ =~ /unimplemented/;
12 unless ($haslocal) { print "1..0 # Skip: no localtime\n"; exit 0 }
17 unless (@localtime) { print "1..0 # Skip: localtime failed\n"; exit 0 }
28 print "not " unless $localtime->sec == $localtime[0];
31 print "not " unless $localtime->min == $localtime[1];
34 print "not " unless $localtime->hour == $localtime[2];
37 print "not " unless $localtime->mday == $localtime[3];
40 print "not " unless $localtime->mon == $localtime[4];
43 print "not " unless $localtime->year == $localtime[5];
46 print "not " unless $localtime->wday == $localtime[6]
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
| max.t | 4 unless (-d 'blib') {
21 print "not " unless defined &max;
24 print "not " unless max(1) == 1;
27 print "not " unless max(1,2) == 2;
30 print "not " unless max(2,1) == 2;
35 print "not " unless max(@a) == $b[-1];
|
| min.t | 4 unless (-d 'blib') {
21 print "not " unless defined &min;
24 print "not " unless min(9) == 9;
27 print "not " unless min(1,2) == 1;
30 print "not " unless min(2,1) == 1;
35 print "not " unless min(@a) == $b[0];
|
| readonly.t | 4 unless (-d 'blib') {
21 print "not " unless readonly(1);
29 print "not " unless $var == 2;
32 print "not " unless readonly("fred");
40 print "not " unless $var eq "fred";
48 print "not " unless readonly($$var);
|
| sum.t | 4 unless (-d 'blib') {
24 print "not " unless sum(9) == 9;
27 print "not " unless sum(1,2,3,4) == 10;
30 print "not " unless sum(-1) == -1;
35 print "not " unless sum($x,3) == 0;
38 print "not " unless sum(-3.5,3) == -0.5;
|
| dualvar.t | 4 unless (-d 'blib') {
27 eval <<'EOT' unless $skip;
34 print "not " unless $var == 2.2;
37 print "not " unless $var eq "string";
44 print "not " unless $var == 3.2;
47 print "not " unless $var ne "string";
50 print "not " unless $var2 == 2.2;
53 print "not " unless $var2 eq "string";
59 print "not " unless $var == $numstr;
63 print "not " unless $var == 1<<31
[all...] |
| openhan.t | 4 unless (-d 'blib') {
21 print "not " unless defined &openhandle;
25 print "not " unless openhandle($fh) == $fh;
28 print "not " unless fileno(openhandle(*STDERR)) == fileno(STDERR);
|
| maxstr.t | 4 unless (-d 'blib') {
21 print "not " unless defined &maxstr;
24 print "not " unless maxstr('a') eq 'a';
27 print "not " unless maxstr('a','b') eq 'b';
30 print "not " unless maxstr('B','A') eq 'B';
35 print "not " unless maxstr(@a) eq $b[-1];
|
| minstr.t | 4 unless (-d 'blib') {
21 print "not " unless defined &minstr;
24 print "not " unless minstr('a') eq 'a';
27 print "not " unless minstr('a','b') eq 'a';
30 print "not " unless minstr('B','A') eq 'A';
35 print "not " unless minstr(@a) eq $b[0];
|
| reduce.t | 4 unless (-d 'blib') {
24 print "not " unless 9 == reduce { $a / $b } 756,3,7,4;
27 print "not " unless 9 == reduce { $a / $b } 9;
31 print "not " unless min(@a) == reduce { $a < $b ? $a : $b } @a;
35 print "not " unless join("",@a) eq reduce { $a . $b } @a;
44 print "not " unless $sum == 6;
48 print "not " unless 10 == reduce { eval { die }; $a + $b } 0,1,2,3,4;
61 print "not " unless 6 == reduce \&add2, 1,2,3;
64 print "not " unless 6 == reduce { add2() } 1,2,3;
68 print "not " unless 6 == reduce { eval "$a + $b" } 1,2,3
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/ |
| netent.t | 11 $hasne = 1 unless $@ && $@ =~ /unimplemented|unsupported/i;
12 unless ($hasne) { print "1..0 # Skip: no getnetbyname\n"; exit 0 }
14 $hasne = 0 unless $Config{'i_netdb'} eq 'define';
15 unless ($hasne) { print "1..0 # Skip: no netdb.h\n"; exit 0 }
20 unless (@netent) { print "1..0 # Skip: no loopback net\n"; exit 0 }
31 print "not " unless $netent->name eq $netent[0];
|
| protoent.t | 11 $haspe = 1 unless $@ && $@ =~ /unimplemented|unsupported/i;
12 unless ($haspe) { print "1..0 # Skip: no getprotobyname\n"; exit 0 }
14 $haspe = 0 unless $Config{'i_netdb'} eq 'define';
15 unless ($haspe) { print "1..0 # Skip: no netdb.h\n"; exit 0 }
20 unless (@protoent) { print "1..0 # Skip: no tcp protocol\n"; exit 0 }
31 print "not " unless $protoent->name eq $protoent[0];
34 print "not " unless $protoent->proto == $protoent[2];
|
| servent.t | 11 $hasse = 1 unless $@ && $@ =~ /unimplemented|unsupported/i;
12 unless ($hasse) { print "1..0 # Skip: no getservbyname\n"; exit 0 }
14 $hasse = 0 unless $Config{'i_netdb'} eq 'define';
15 unless ($hasse) { print "1..0 # Skip: no netdb.h\n"; exit 0 }
20 unless (@servent) { print "1..0 # Skip: no echo service\n"; exit 0 }
31 print "not " unless $servent->name eq $servent[0];
34 print "not " unless $servent->port == $servent[2];
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/User/ |
| pwent.t | 11 $haspw = 1 unless $@ && $@ =~ /unimplemented/;
12 unless ($haspw) { print "1..0 # Skip: no getpwuid\n"; exit 0 }
15 $haspw = 0 unless ( $Config{'i_pwd'} eq 'define' || $^O eq 'VMS' );
16 unless ($haspw) { print "1..0 # Skip: no pwd.h\n"; exit 0 }
25 unless (@pwent) { print "1..0 # Skip: no uid $uid\n"; exit 0 }
38 print "not " unless ( $pwent->uid == $uid_expect
42 print "not " unless $pwent->uid == $uid_expect ;
46 print "not " unless $pwent->name eq $pwent[0];
51 unless not defined $pwent->passwd &&
54 print "not " unless $pwent->passwd eq $pwent[1]
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| SubstrHash.t | 23 print "not " unless $a{abc} == 123;
26 print "not " unless keys %a == 2;
31 print "not " unless $a{bcd} == 234;
34 print "not " unless (values %a)[0] == 234;
38 print "not " unless $@ =~ /Key "abcd" is not 3 characters long/;
42 print "not " unless $@ =~ /Value "1234" is not 3 characters long/;
46 print "not " unless $@ =~ /Key "abcd" is not 3 characters long/;
51 print "not " unless $a{cde} == 345;
55 print "not " unless $@ =~ /Table is full \(3 elements\)/;
60 print "not " unless keys %a == 0
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| length.t | 10 print "not " unless length("") == 0;
13 print "not " unless length("abc") == 3;
17 print "not " unless length() == 6;
25 print "not " unless length($a) == 1;
30 print "not " unless $a eq "\x41" && length($a) == 1;
38 print "not " unless length($a) == 1;
46 print "not " unless $a eq "\x8b\x73" && length($a) == 2;
50 print "not " unless $a eq "\xc3\xbf" && length($a) == 2;
59 print "not " unless length($a) == 1;
67 print "not " unless $a eq "\x8c\x41" && length($a) == 2
[all...] |
| 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 " unless not exists &P2::tmc && not defined &P2::tmc;
37 print "not " unless exists &{$ref->{A}[0]} && not defined &{$ref->{A}[0]};
40 print "not " unless exists &P1::tmc && not defined &P1::tmc;
43 print "not " unless $@;
|
| sysio.t | 21 print 'not ' unless ($@ =~ /^Negative length /);
25 print 'not ' unless ($x eq 'abc');
30 print 'not ' unless ($x eq 'abc');
34 print 'not ' unless ($x eq 'abc');
40 print 'not ' unless(sysread(I, $a, 3) == 3);
44 print 'not ' unless ($a eq '#!.');
48 print 'not ' unless(sysread(I, $a, 2, 5) == 2);
52 print 'not ' unless ($a eq "#!.\0\0/p");
56 print 'not ' unless(sysread(I, $a, 3, -2) == 3);
60 print 'not ' unless ($a eq "#!.\0\0erl")
[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;
|
| 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);
24 print "not " unless j(splice(@a, @a, 0, 12, 13)) eq "" && j(@a) eq j(0..13);
27 print "not " unless j(splice(@a, -@a, @a, 1, 2, 3)) eq j(0..13) && j(@a) eq j(1..3);
30 print "not " unless j(splice(@a, 1, -1, 7, 7)) eq "2" && j(@a) eq j(1,7,7,3);
33 print "not " unless j(splice(@a,-3,-2,2)) eq j(7) && j(@a) eq j(1,2,7,3);
37 print "not " unless j(splice(@a)) eq j(1,2,7,3) && j(@a) eq ''
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Digest/MD5/t/ |
| utf8.t | 22 print "not " unless $@ && $@ =~ /^(Big byte|Wide character)/;
30 print "not " unless md5_hex($str) eq $exp;
34 print "not " unless md5_hex("foo\xFF") eq $exp;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/ |
| Makefile.PL | 44 unless (defined $Config{usedl}) {
48 return '' unless $self->needs_linking();
57 return '' unless $self->needs_linking();
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/t/ |
| 00-load.t | 8 unless $ENV{PERL_CORE};
|
