home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
perl
/
os2perl
/
tests.dif
< prev
next >
Wrap
Text File
|
1991-06-16
|
19KB
|
606 lines
diff -cbBwr perl-4.010/t/base/term.t perl4010/t/base/term.t
*** perl-4.010/t/base/term.t Wed Mar 20 08:47:14 1991
--- perl4010/t/base/term.t Sun Jun 16 20:39:50 1991
***************
*** 29,35 ****
# check <> pseudoliteral
! open(try, "/dev/null") || (die "Can't open /dev/null.");
if (<try> eq '') {
print "ok 5\n";
}
--- 29,35 ----
# check <> pseudoliteral
! open(try, "nul") || (die "Can't open /dev/null.");
if (<try> eq '') {
print "ok 5\n";
}
diff -cbBwr perl-4.010/t/cmd/while.t perl4010/t/cmd/while.t
*** perl-4.010/t/cmd/while.t Wed Mar 20 08:46:28 1991
--- perl4010/t/cmd/while.t Sun Jun 16 20:52:36 1991
***************
*** 90,96 ****
if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
! `/bin/rm -f Cmd.while.tmp`;
#$x = 0;
#while (1) {
--- 90,97 ----
if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
! close(fh);
! `del Cmd.while.tmp`;
#$x = 0;
#while (1) {
diff -cbBwr perl-4.010/t/comp/cpp.t perl4010/t/comp/cpp.t
*** perl-4.010/t/comp/cpp.t Wed Mar 20 08:48:44 1991
--- perl4010/t/comp/cpp.t Sun Jun 16 20:54:00 1991
***************
*** 32,39 ****
print TRY '#define OK "ok 3\n"' . "\n";
close TRY;
! $pwd=`pwd`;
$pwd =~ s/\n//;
! $x = `./perl -P Comp.cpp.tmp`;
print $x;
unlink "Comp.cpp.tmp", "Comp.cpp.inc";
--- 32,39 ----
print TRY '#define OK "ok 3\n"' . "\n";
close TRY;
! $pwd=`cd`;
$pwd =~ s/\n//;
! $x = `perl -P Comp.cpp.tmp`;
print $x;
unlink "Comp.cpp.tmp", "Comp.cpp.inc";
diff -cbBwr perl-4.010/t/comp/script.t perl4010/t/comp/script.t
*** perl-4.010/t/comp/script.t Wed Mar 20 08:48:50 1991
--- perl4010/t/comp/script.t Sun Jun 16 21:05:02 1991
***************
*** 4,10 ****
print "1..3\n";
! $x = `./perl -e 'print "ok\n";'`;
if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";}
--- 4,10 ----
print "1..3\n";
! $x = `perl -e "print \\\"ok\\n\\\";"`;
if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";}
***************
*** 12,23 ****
print try 'print "ok\n";'; print try "\n";
close try;
! $x = `./perl Comp.script`;
if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";}
! $x = `./perl <Comp.script`;
if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}
! `/bin/rm -f Comp.script`;
--- 12,23 ----
print try 'print "ok\n";'; print try "\n";
close try;
! $x = `perl Comp.script`;
if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";}
! $x = `perl <Comp.script`;
if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}
! `del Comp.script`;
diff -cbBwr perl-4.010/t/io/argv.t perl4010/t/io/argv.t
*** perl-4.010/t/io/argv.t Wed Mar 20 08:48:38 1991
--- perl4010/t/io/argv.t Sun Jun 16 21:14:14 1991
***************
*** 8,26 ****
print try "a line\n";
close try;
! $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io.argv.tmp Io.argv.tmp`;
if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
! $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io.argv.tmp -`;
if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
! $x = `echo foo|./perl -e 'while (<>) {print $_;}'`;
if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
! @ARGV = ('Io.argv.tmp', 'Io.argv.tmp', '/dev/null', 'Io.argv.tmp');
while (<>) {
$y .= $. . $_;
if (eof()) {
--- 8,26 ----
print try "a line\n";
close try;
! $x = `perl -e "while (<>) {print \$.,\$_;}" Io.argv.tmp Io.argv.tmp`;
if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
! $x = `echo foo | perl -e "while (<>) {print $_;}" Io.argv.tmp -`;
if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
! $x = `echo foo | perl -e "while (<>) {print $_;}"`;
if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
! @ARGV = ('Io.argv.tmp', 'Io.argv.tmp', 'nul', 'Io.argv.tmp');
while (<>) {
$y .= $. . $_;
if (eof()) {
***************
*** 33,36 ****
else
{print "not ok 5\n";}
! `/bin/rm -f Io.argv.tmp`;
--- 33,36 ----
else
{print "not ok 5\n";}
! `del Io.argv.tmp`;
diff -cbBwr perl-4.010/t/io/pipe.t perl4010/t/io/pipe.t
*** perl-4.010/t/io/pipe.t Wed Mar 20 08:48:38 1991
--- perl4010/t/io/pipe.t Sun Jun 16 21:25:14 1991
***************
*** 5,11 ****
$| = 1;
print "1..8\n";
! open(PIPE, "|-") || (exec 'tr', '[A-Z]', '[a-z]');
print PIPE "OK 1\n";
print PIPE "ok 2\n";
close PIPE;
--- 5,11 ----
$| = 1;
print "1..8\n";
! open(PIPE, "|-") || (exec 'tr.exe', '[A-Z]', '[a-z]');
print PIPE "OK 1\n";
print PIPE "ok 2\n";
close PIPE;
***************
*** 18,24 ****
}
else {
print STDOUT "not ok 3\n";
! exec 'echo', 'not ok 4';
}
pipe(READER,WRITER) || die "Can't open pipe";
--- 18,24 ----
}
else {
print STDOUT "not ok 3\n";
! exec 'perlglob', 'not ok 4';
}
pipe(READER,WRITER) || die "Can't open pipe";
diff -cbBwr perl-4.010/t/op/exec.t perl4010/t/op/exec.t
*** perl-4.010/t/op/exec.t Wed Mar 20 08:48:46 1991
--- perl4010/t/op/exec.t Sun Jun 16 21:39:32 1991
***************
*** 7,21 ****
print "not ok 1\n" if system "echo ok \\1"; # shell interpreted
print "not ok 2\n" if system "echo ok 2"; # split and directly called
! print "not ok 3\n" if system "echo", "ok", "3"; # directly called
! if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
! if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
print "ok 5\n";
! if ((system "lskdfj") == 255 << 8) {print "ok 6\n";} else {print "not ok 6\n";}
unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
! exec "echo","ok","8";
--- 7,21 ----
print "not ok 1\n" if system "echo ok \\1"; # shell interpreted
print "not ok 2\n" if system "echo ok 2"; # split and directly called
! print "not ok 3\n" if system "perlglob", "ok", "3", "\n"; # directly called
! if (system "expr 1 >nul") {print "not ok 4\n";} else {print "ok 4\n";}
! if ((system "sh -c \"exit 1\"") != 1) { print "not "; }
print "ok 5\n";
! if ((system "lskdfj") == 1) {print "ok 6\n";} else {print "not ok 6\n";}
unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
! exec "perlglob","ok","8";
diff -cbBwr perl-4.010/t/op/glob.t perl4010/t/op/glob.t
*** perl-4.010/t/op/glob.t Wed Mar 20 08:48:54 1991
--- perl4010/t/op/glob.t Sun Jun 16 21:43:26 1991
***************
*** 7,13 ****
@ops = <op/*>;
$list = join(' ',@ops);
! chop($otherway = `echo op/*`);
print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
--- 7,13 ----
@ops = <op/*>;
$list = join(' ',@ops);
! chop($otherway = `perlglob op/*`);
print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
diff -cbBwr perl-4.010/t/op/goto.t perl4010/t/op/goto.t
*** perl-4.010/t/op/goto.t Wed Mar 20 08:48:46 1991
--- perl4010/t/op/goto.t Sun Jun 16 21:50:54 1991
***************
*** 29,34 ****
print "#2\t:$foo: == 4\n";
if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
! $x = `./perl -e 'goto foo;' 2>&1`;
print "#3\t/label/ in :$x";
if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
--- 29,34 ----
print "#2\t:$foo: == 4\n";
if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
! $x = `perl -e "goto foo;" 2>&1`;
print "#3\t/label/ in :$x";
if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
diff -cbBwr perl-4.010/t/op/magic.t perl4010/t/op/magic.t
*** perl-4.010/t/op/magic.t Wed Mar 20 08:48:36 1991
--- perl4010/t/op/magic.t Sun Jun 16 21:56:14 1991
***************
*** 7,13 ****
print "1..5\n";
eval '$ENV{"foo"} = "hi there";'; # check that ENV is inited inside eval
! if (`echo \$foo` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
unlink 'ajslkdfpqjsjfk';
$! = 0;
--- 7,13 ----
print "1..5\n";
eval '$ENV{"foo"} = "hi there";'; # check that ENV is inited inside eval
! if (`echo %foo%` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
unlink 'ajslkdfpqjsjfk';
$! = 0;
***************
*** 17,30 ****
# the next tests are embedded inside system simply because sh spits out
# a newline onto stderr when a child process kills itself with SIGINT.
! system './perl',
'-e', '$| = 1; # command buffering',
! '-e', '$SIG{"INT"} = "ok3"; kill 2,$$;',
! '-e', '$SIG{"INT"} = "IGNORE"; kill 2,$$; print "ok 4\n";',
! '-e', '$SIG{"INT"} = "DEFAULT"; kill 2,$$; print "not ok\n";',
! '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "INT"; }';
@val1 = @ENV{keys(%ENV)}; # can we slice ENV?
@val2 = values(%ENV);
--- 17,30 ----
# the next tests are embedded inside system simply because sh spits out
# a newline onto stderr when a child process kills itself with SIGINT.
! system 'perl',
'-e', '$| = 1; # command buffering',
! '-e', '$SIG{"TERM"} = "ok3"; kill 0,$$;',
! '-e', '$SIG{"TERM"} = "IGNORE"; kill 0,$$; print "ok 4\n";',
! '-e', '$SIG{"TERM"} = "DEFAULT"; kill 0,$$; print "not ok\n";',
! '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "TERM"; }';
@val1 = @ENV{keys(%ENV)}; # can we slice ENV?
@val2 = values(%ENV);
diff -cbBwr perl-4.010/t/op/mkdir.t perl4010/t/op/mkdir.t
*** perl-4.010/t/op/mkdir.t Wed Mar 20 08:48:54 1991
--- perl4010/t/op/mkdir.t Sun Jun 16 22:00:06 1991
***************
*** 4,14 ****
print "1..7\n";
! `rm -rf blurfl`;
print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
! print ($! =~ /exist/ ? "ok 3\n" : "not ok 3\n");
print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
--- 4,14 ----
print "1..7\n";
! `rm -r blurfl`;
print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
! print ($! =~ /denied/ ? "ok 3\n" : "not ok 3\n");
print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
diff -cbBwr perl-4.010/t/op/split.t perl4010/t/op/split.t
*** perl-4.010/t/op/split.t Wed Mar 20 08:48:24 1991
--- perl4010/t/op/split.t Sun Jun 16 22:04:02 1991
***************
*** 47,53 ****
print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
# Does assignment to a list imply split to one more field than that?
! $foo = `./perl -D1024 -e '(\$a,\$b) = split;' 2>&1`;
print $foo =~ /DEBUGGING/ || $foo =~ /num\(3\)/ ? "ok 11\n" : "not ok 11\n";
# Can we say how many fields to split to when assigning to a list?
--- 47,53 ----
print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
# Does assignment to a list imply split to one more field than that?
! $foo = `perl -D1024 -e "(\$a,\$b) = split;" 2>&1`;
print $foo =~ /DEBUGGING/ || $foo =~ /num\(3\)/ ? "ok 11\n" : "not ok 11\n";
# Can we say how many fields to split to when assigning to a list?
diff -cbBwr perl-4.010/t/op/stat.t perl4010/t/op/stat.t
*** perl-4.010/t/op/stat.t Tue Jun 11 23:35:54 1991
--- perl4010/t/op/stat.t Sun Jun 16 22:13:08 1991
***************
*** 4,12 ****
print "1..56\n";
! chop($cwd = `pwd`);
! $DEV = `ls -l /dev`;
unlink "Op.stat.tmp";
open(foo, ">Op.stat.tmp");
--- 4,12 ----
print "1..56\n";
! chop($cwd = `cd`);
! $DEV = `ls -l`;
unlink "Op.stat.tmp";
open(foo, ">Op.stat.tmp");
***************
*** 21,27 ****
sleep 2;
! `rm -f Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp`;
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat('Op.stat.tmp');
--- 21,27 ----
sleep 2;
! `del Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp 2>nul`;
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat('Op.stat.tmp');
***************
*** 35,41 ****
}
print "#4 :$mtime: != :$ctime:\n";
! `cp /dev/null Op.stat.tmp`;
if (-z 'Op.stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
--- 35,41 ----
}
print "#4 :$mtime: != :$ctime:\n";
! `cp nul Op.stat.tmp`;
if (-z 'Op.stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
***************
*** 70,77 ****
if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
! if (`ls -l perl` =~ /^l.*->/) {
! if (-l 'perl') {print "ok 25\n";} else {print "not ok 25\n";}
}
else {
print "ok 25\n";
--- 70,77 ----
if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
! if (`ls -l perl.exe` =~ /^l.*->/) {
! if (-l 'perl.exe') {print "ok 25\n";} else {print "not ok 25\n";}
}
else {
print "ok 25\n";
***************
*** 80,86 ****
if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
! `rm -f Op.stat.tmp Op.stat.tmp2`;
if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
if ($DEV !~ /\nc.* (\S+)\n/)
--- 80,86 ----
if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
! `del Op.stat.tmp Op.stat.tmp2 2>nul`;
if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
if ($DEV !~ /\nc.* (\S+)\n/)
***************
*** 110,116 ****
$cnt = $uid = 0;
die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
! chdir '/usr/bin' || die "Can't cd to /usr/bin";
while (defined($_ = <*>)) {
$cnt++;
$uid++ if -u;
--- 110,116 ----
$cnt = $uid = 0;
die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
! chdir '../os2' || die "Can't cd to ../os2";
while (defined($_ = <*>)) {
$cnt++;
$uid++ if -u;
***************
*** 121,135 ****
# I suppose this is going to fail somewhere...
if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
! unless (open(tty,"/dev/tty")) {
! print STDERR "Can't open /dev/tty--run t/TEST outside of make.\n";
}
if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
close(tty);
if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
! open(null,"/dev/null");
! if (! -t null || -e '/xenix') {print "ok 39\n";} else {print "not ok 39\n";}
close(null);
if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
--- 121,135 ----
# I suppose this is going to fail somewhere...
if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
! unless (open(tty,"con")) {
! print STDERR "Can't open con--run t/TEST outside of make.\n";
}
if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
close(tty);
if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
! open(null,"nul");
! if (! -t null || -e 'c:/os2krnl') {print "ok 39\n";} else {print "not ok 39\n";}
close(null);
if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
***************
*** 138,145 ****
if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
! if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";}
! if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";}
open(foo,'op/stat.t');
if (-T foo) {print "ok 45\n";} else {print "not ok 45\n";}
--- 138,145 ----
if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
! if (-B 'perl.exe') {print "ok 43\n";} else {print "not ok 43\n";}
! if (! -T 'perl.exe') {print "ok 44\n";} else {print "not ok 44\n";}
open(foo,'op/stat.t');
if (-T foo) {print "ok 45\n";} else {print "not ok 45\n";}
***************
*** 160,164 ****
if (! -B foo) {print "ok 54\n";} else {print "not ok 54\n";}
close(foo);
! if (-T '/dev/null') {print "ok 55\n";} else {print "not ok 55\n";}
! if (-B '/dev/null') {print "ok 56\n";} else {print "not ok 56\n";}
--- 160,164 ----
if (! -B foo) {print "ok 54\n";} else {print "not ok 54\n";}
close(foo);
! if (-T 'nul') {print "ok 55\n";} else {print "not ok 55\n";}
! if (-B 'nul') {print "ok 56\n";} else {print "not ok 56\n";}
diff -cbBwr perl-4.010/t/TEST perl4010/t/TEST
*** perl-4.010/t/TEST Tue Jun 11 23:32:06 1991
--- perl4010/t/TEST Sun Jun 16 20:47:38 1991
***************
*** 16,22 ****
if ($ARGV[0] eq '') {
@ARGV = split(/[ \n]/,
! `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`);
}
open(CONFIG,"../config.sh");
--- 16,22 ----
if ($ARGV[0] eq '') {
@ARGV = split(/[ \n]/,
! `ls base/*.t comp/*.t cmd/*.t io/*.t op/*.t lib/*.t`);
}
open(CONFIG,"../config.sh");
***************
*** 35,41 ****
chop($te);
print "$te" . '.' x (15 - length($te));
if ($sharpbang) {
! open(results,"./$test|") || (print "can't run.\n");
} else {
open(script,"$test") || die "Can't run $test.\n";
$_ = <script>;
--- 35,41 ----
chop($te);
print "$te" . '.' x (15 - length($te));
if ($sharpbang) {
! open(results,"$test|") || (print "can't run.\n");
} else {
open(script,"$test") || die "Can't run $test.\n";
$_ = <script>;
***************
*** 45,51 ****
} else {
$switch = '';
}
! open(results,"./perl$switch $test|") || (print "can't run.\n");
}
$ok = 0;
$next = 0;
--- 45,51 ----
} else {
$switch = '';
}
! open(results,"perl$switch $test|") || (print "can't run.\n");
}
$ok = 0;
$next = 0;