home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / perl / os2perl / tests.dif < prev    next >
Text File  |  1991-06-16  |  19KB  |  606 lines
  1. diff -cbBwr perl-4.010/t/base/term.t perl4010/t/base/term.t
  2. *** perl-4.010/t/base/term.t    Wed Mar 20 08:47:14 1991
  3. --- perl4010/t/base/term.t    Sun Jun 16 20:39:50 1991
  4. ***************
  5. *** 29,35 ****
  6.   
  7.   # check <> pseudoliteral
  8.   
  9. ! open(try, "/dev/null") || (die "Can't open /dev/null.");
  10.   if (<try> eq '') {
  11.       print "ok 5\n";
  12.   }
  13. --- 29,35 ----
  14.   
  15.   # check <> pseudoliteral
  16.   
  17. ! open(try, "nul") || (die "Can't open /dev/null.");
  18.   if (<try> eq '') {
  19.       print "ok 5\n";
  20.   }
  21. diff -cbBwr perl-4.010/t/cmd/while.t perl4010/t/cmd/while.t
  22. *** perl-4.010/t/cmd/while.t    Wed Mar 20 08:46:28 1991
  23. --- perl4010/t/cmd/while.t    Sun Jun 16 20:52:36 1991
  24. ***************
  25. *** 90,96 ****
  26.   if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
  27.   if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
  28.   
  29. ! `/bin/rm -f Cmd.while.tmp`;
  30.   
  31.   #$x = 0;
  32.   #while (1) {
  33. --- 90,97 ----
  34.   if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
  35.   if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
  36.   
  37. ! close(fh);
  38. ! `del Cmd.while.tmp`;
  39.   
  40.   #$x = 0;
  41.   #while (1) {
  42. diff -cbBwr perl-4.010/t/comp/cpp.t perl4010/t/comp/cpp.t
  43. *** perl-4.010/t/comp/cpp.t    Wed Mar 20 08:48:44 1991
  44. --- perl4010/t/comp/cpp.t    Sun Jun 16 20:54:00 1991
  45. ***************
  46. *** 32,39 ****
  47.   print TRY '#define OK "ok 3\n"' . "\n";
  48.   close TRY;
  49.   
  50. ! $pwd=`pwd`;
  51.   $pwd =~ s/\n//;
  52. ! $x = `./perl -P Comp.cpp.tmp`;
  53.   print $x;
  54.   unlink "Comp.cpp.tmp", "Comp.cpp.inc";
  55. --- 32,39 ----
  56.   print TRY '#define OK "ok 3\n"' . "\n";
  57.   close TRY;
  58.   
  59. ! $pwd=`cd`;
  60.   $pwd =~ s/\n//;
  61. ! $x = `perl -P Comp.cpp.tmp`;
  62.   print $x;
  63.   unlink "Comp.cpp.tmp", "Comp.cpp.inc";
  64. diff -cbBwr perl-4.010/t/comp/script.t perl4010/t/comp/script.t
  65. *** perl-4.010/t/comp/script.t    Wed Mar 20 08:48:50 1991
  66. --- perl4010/t/comp/script.t    Sun Jun 16 21:05:02 1991
  67. ***************
  68. *** 4,10 ****
  69.   
  70.   print "1..3\n";
  71.   
  72. ! $x = `./perl -e 'print "ok\n";'`;
  73.   
  74.   if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";}
  75.   
  76. --- 4,10 ----
  77.   
  78.   print "1..3\n";
  79.   
  80. ! $x = `perl -e "print \\\"ok\\n\\\";"`;
  81.   
  82.   if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";}
  83.   
  84. ***************
  85. *** 12,23 ****
  86.   print try 'print "ok\n";'; print try "\n";
  87.   close try;
  88.   
  89. ! $x = `./perl Comp.script`;
  90.   
  91.   if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";}
  92.   
  93. ! $x = `./perl <Comp.script`;
  94.   
  95.   if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}
  96.   
  97. ! `/bin/rm -f Comp.script`;
  98. --- 12,23 ----
  99.   print try 'print "ok\n";'; print try "\n";
  100.   close try;
  101.   
  102. ! $x = `perl Comp.script`;
  103.   
  104.   if ($x eq "ok\n") {print "ok 2\n";} else {print "not ok 2\n";}
  105.   
  106. ! $x = `perl <Comp.script`;
  107.   
  108.   if ($x eq "ok\n") {print "ok 3\n";} else {print "not ok 3\n";}
  109.   
  110. ! `del Comp.script`;
  111. diff -cbBwr perl-4.010/t/io/argv.t perl4010/t/io/argv.t
  112. *** perl-4.010/t/io/argv.t    Wed Mar 20 08:48:38 1991
  113. --- perl4010/t/io/argv.t    Sun Jun 16 21:14:14 1991
  114. ***************
  115. *** 8,26 ****
  116.   print try "a line\n";
  117.   close try;
  118.   
  119. ! $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io.argv.tmp Io.argv.tmp`;
  120.   
  121.   if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
  122.   
  123. ! $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io.argv.tmp -`;
  124.   
  125.   if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  126.   
  127. ! $x = `echo foo|./perl -e 'while (<>) {print $_;}'`;
  128.   
  129.   if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
  130.   
  131. ! @ARGV = ('Io.argv.tmp', 'Io.argv.tmp', '/dev/null', 'Io.argv.tmp');
  132.   while (<>) {
  133.       $y .= $. . $_;
  134.       if (eof()) {
  135. --- 8,26 ----
  136.   print try "a line\n";
  137.   close try;
  138.   
  139. ! $x = `perl -e "while (<>) {print \$.,\$_;}" Io.argv.tmp Io.argv.tmp`;
  140.   
  141.   if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
  142.   
  143. ! $x = `echo foo | perl -e "while (<>) {print $_;}" Io.argv.tmp -`;
  144.   
  145.   if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  146.   
  147. ! $x = `echo foo | perl -e "while (<>) {print $_;}"`;
  148.   
  149.   if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
  150.   
  151. ! @ARGV = ('Io.argv.tmp', 'Io.argv.tmp', 'nul', 'Io.argv.tmp');
  152.   while (<>) {
  153.       $y .= $. . $_;
  154.       if (eof()) {
  155. ***************
  156. *** 33,36 ****
  157.   else
  158.       {print "not ok 5\n";}
  159.   
  160. ! `/bin/rm -f Io.argv.tmp`;
  161. --- 33,36 ----
  162.   else
  163.       {print "not ok 5\n";}
  164.   
  165. ! `del Io.argv.tmp`;
  166. diff -cbBwr perl-4.010/t/io/pipe.t perl4010/t/io/pipe.t
  167. *** perl-4.010/t/io/pipe.t    Wed Mar 20 08:48:38 1991
  168. --- perl4010/t/io/pipe.t    Sun Jun 16 21:25:14 1991
  169. ***************
  170. *** 5,11 ****
  171.   $| = 1;
  172.   print "1..8\n";
  173.   
  174. ! open(PIPE, "|-") || (exec 'tr', '[A-Z]', '[a-z]');
  175.   print PIPE "OK 1\n";
  176.   print PIPE "ok 2\n";
  177.   close PIPE;
  178. --- 5,11 ----
  179.   $| = 1;
  180.   print "1..8\n";
  181.   
  182. ! open(PIPE, "|-") || (exec 'tr.exe', '[A-Z]', '[a-z]');
  183.   print PIPE "OK 1\n";
  184.   print PIPE "ok 2\n";
  185.   close PIPE;
  186. ***************
  187. *** 18,24 ****
  188.   }
  189.   else {
  190.       print STDOUT "not ok 3\n";
  191. !     exec 'echo', 'not ok 4';
  192.   }
  193.   
  194.   pipe(READER,WRITER) || die "Can't open pipe";
  195. --- 18,24 ----
  196.   }
  197.   else {
  198.       print STDOUT "not ok 3\n";
  199. !     exec 'perlglob', 'not ok 4';
  200.   }
  201.   
  202.   pipe(READER,WRITER) || die "Can't open pipe";
  203. diff -cbBwr perl-4.010/t/op/exec.t perl4010/t/op/exec.t
  204. *** perl-4.010/t/op/exec.t    Wed Mar 20 08:48:46 1991
  205. --- perl4010/t/op/exec.t    Sun Jun 16 21:39:32 1991
  206. ***************
  207. *** 7,21 ****
  208.   
  209.   print "not ok 1\n" if system "echo ok \\1";    # shell interpreted
  210.   print "not ok 2\n" if system "echo ok 2";    # split and directly called
  211. ! print "not ok 3\n" if system "echo", "ok", "3"; # directly called
  212.   
  213. ! if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
  214.   
  215. ! if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
  216.   print "ok 5\n";
  217.   
  218. ! if ((system "lskdfj") == 255 << 8) {print "ok 6\n";} else {print "not ok 6\n";}
  219.   
  220.   unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
  221.   
  222. ! exec "echo","ok","8";
  223. --- 7,21 ----
  224.   
  225.   print "not ok 1\n" if system "echo ok \\1";    # shell interpreted
  226.   print "not ok 2\n" if system "echo ok 2";    # split and directly called
  227. ! print "not ok 3\n" if system "perlglob", "ok", "3", "\n"; # directly called
  228.   
  229. ! if (system "expr 1 >nul") {print "not ok 4\n";} else {print "ok 4\n";}
  230.   
  231. ! if ((system "sh -c \"exit 1\"") != 1) { print "not "; }
  232.   print "ok 5\n";
  233.   
  234. ! if ((system "lskdfj") == 1) {print "ok 6\n";} else {print "not ok 6\n";}
  235.   
  236.   unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
  237.   
  238. ! exec "perlglob","ok","8";
  239. diff -cbBwr perl-4.010/t/op/glob.t perl4010/t/op/glob.t
  240. *** perl-4.010/t/op/glob.t    Wed Mar 20 08:48:54 1991
  241. --- perl4010/t/op/glob.t    Sun Jun 16 21:43:26 1991
  242. ***************
  243. *** 7,13 ****
  244.   @ops = <op/*>;
  245.   $list = join(' ',@ops);
  246.   
  247. ! chop($otherway = `echo op/*`);
  248.   
  249.   print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
  250.   
  251. --- 7,13 ----
  252.   @ops = <op/*>;
  253.   $list = join(' ',@ops);
  254.   
  255. ! chop($otherway = `perlglob op/*`);
  256.   
  257.   print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
  258.   
  259. diff -cbBwr perl-4.010/t/op/goto.t perl4010/t/op/goto.t
  260. *** perl-4.010/t/op/goto.t    Wed Mar 20 08:48:46 1991
  261. --- perl4010/t/op/goto.t    Sun Jun 16 21:50:54 1991
  262. ***************
  263. *** 29,34 ****
  264.   print "#2\t:$foo: == 4\n";
  265.   if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
  266.   
  267. ! $x = `./perl -e 'goto foo;' 2>&1`;
  268.   print "#3\t/label/ in :$x";
  269.   if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
  270. --- 29,34 ----
  271.   print "#2\t:$foo: == 4\n";
  272.   if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
  273.   
  274. ! $x = `perl -e "goto foo;" 2>&1`;
  275.   print "#3\t/label/ in :$x";
  276.   if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
  277. diff -cbBwr perl-4.010/t/op/magic.t perl4010/t/op/magic.t
  278. *** perl-4.010/t/op/magic.t    Wed Mar 20 08:48:36 1991
  279. --- perl4010/t/op/magic.t    Sun Jun 16 21:56:14 1991
  280. ***************
  281. *** 7,13 ****
  282.   print "1..5\n";
  283.   
  284.   eval '$ENV{"foo"} = "hi there";';    # check that ENV is inited inside eval
  285. ! if (`echo \$foo` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
  286.   
  287.   unlink 'ajslkdfpqjsjfk';
  288.   $! = 0;
  289. --- 7,13 ----
  290.   print "1..5\n";
  291.   
  292.   eval '$ENV{"foo"} = "hi there";';    # check that ENV is inited inside eval
  293. ! if (`echo %foo%` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
  294.   
  295.   unlink 'ajslkdfpqjsjfk';
  296.   $! = 0;
  297. ***************
  298. *** 17,30 ****
  299.   # the next tests are embedded inside system simply because sh spits out
  300.   # a newline onto stderr when a child process kills itself with SIGINT.
  301.   
  302. ! system './perl',
  303.   '-e', '$| = 1;        # command buffering',
  304.   
  305. ! '-e', '$SIG{"INT"} = "ok3"; kill 2,$$;',
  306. ! '-e', '$SIG{"INT"} = "IGNORE"; kill 2,$$; print "ok 4\n";',
  307. ! '-e', '$SIG{"INT"} = "DEFAULT"; kill 2,$$; print "not ok\n";',
  308.   
  309. ! '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "INT"; }';
  310.   
  311.   @val1 = @ENV{keys(%ENV)};    # can we slice ENV?
  312.   @val2 = values(%ENV);
  313. --- 17,30 ----
  314.   # the next tests are embedded inside system simply because sh spits out
  315.   # a newline onto stderr when a child process kills itself with SIGINT.
  316.   
  317. ! system 'perl',
  318.   '-e', '$| = 1;        # command buffering',
  319.   
  320. ! '-e', '$SIG{"TERM"} = "ok3"; kill 0,$$;',
  321. ! '-e', '$SIG{"TERM"} = "IGNORE"; kill 0,$$; print "ok 4\n";',
  322. ! '-e', '$SIG{"TERM"} = "DEFAULT"; kill 0,$$; print "not ok\n";',
  323.   
  324. ! '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "TERM"; }';
  325.   
  326.   @val1 = @ENV{keys(%ENV)};    # can we slice ENV?
  327.   @val2 = values(%ENV);
  328. diff -cbBwr perl-4.010/t/op/mkdir.t perl4010/t/op/mkdir.t
  329. *** perl-4.010/t/op/mkdir.t    Wed Mar 20 08:48:54 1991
  330. --- perl4010/t/op/mkdir.t    Sun Jun 16 22:00:06 1991
  331. ***************
  332. *** 4,14 ****
  333.   
  334.   print "1..7\n";
  335.   
  336. ! `rm -rf blurfl`;
  337.   
  338.   print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
  339.   print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
  340. ! print ($! =~ /exist/ ? "ok 3\n" : "not ok 3\n");
  341.   print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
  342.   print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
  343.   print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
  344. --- 4,14 ----
  345.   
  346.   print "1..7\n";
  347.   
  348. ! `rm -r blurfl`;
  349.   
  350.   print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
  351.   print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
  352. ! print ($! =~ /denied/ ? "ok 3\n" : "not ok 3\n");
  353.   print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
  354.   print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
  355.   print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
  356. diff -cbBwr perl-4.010/t/op/split.t perl4010/t/op/split.t
  357. *** perl-4.010/t/op/split.t    Wed Mar 20 08:48:24 1991
  358. --- perl4010/t/op/split.t    Sun Jun 16 22:04:02 1991
  359. ***************
  360. *** 47,53 ****
  361.   print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
  362.   
  363.   # Does assignment to a list imply split to one more field than that?
  364. ! $foo = `./perl -D1024 -e '(\$a,\$b) = split;' 2>&1`;
  365.   print $foo =~ /DEBUGGING/ || $foo =~ /num\(3\)/ ? "ok 11\n" : "not ok 11\n";
  366.   
  367.   # Can we say how many fields to split to when assigning to a list?
  368. --- 47,53 ----
  369.   print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
  370.   
  371.   # Does assignment to a list imply split to one more field than that?
  372. ! $foo = `perl -D1024 -e "(\$a,\$b) = split;" 2>&1`;
  373.   print $foo =~ /DEBUGGING/ || $foo =~ /num\(3\)/ ? "ok 11\n" : "not ok 11\n";
  374.   
  375.   # Can we say how many fields to split to when assigning to a list?
  376. diff -cbBwr perl-4.010/t/op/stat.t perl4010/t/op/stat.t
  377. *** perl-4.010/t/op/stat.t    Tue Jun 11 23:35:54 1991
  378. --- perl4010/t/op/stat.t    Sun Jun 16 22:13:08 1991
  379. ***************
  380. *** 4,12 ****
  381.   
  382.   print "1..56\n";
  383.   
  384. ! chop($cwd = `pwd`);
  385.   
  386. ! $DEV = `ls -l /dev`;
  387.   
  388.   unlink "Op.stat.tmp";
  389.   open(foo, ">Op.stat.tmp");
  390. --- 4,12 ----
  391.   
  392.   print "1..56\n";
  393.   
  394. ! chop($cwd = `cd`);
  395.   
  396. ! $DEV = `ls -l`;
  397.   
  398.   unlink "Op.stat.tmp";
  399.   open(foo, ">Op.stat.tmp");
  400. ***************
  401. *** 21,27 ****
  402.   
  403.   sleep 2;
  404.   
  405. ! `rm -f Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp`;
  406.   
  407.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  408.       $blksize,$blocks) = stat('Op.stat.tmp');
  409. --- 21,27 ----
  410.   
  411.   sleep 2;
  412.   
  413. ! `del Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp 2>nul`;
  414.   
  415.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  416.       $blksize,$blocks) = stat('Op.stat.tmp');
  417. ***************
  418. *** 35,41 ****
  419.   }
  420.   print "#4    :$mtime: != :$ctime:\n";
  421.   
  422. ! `cp /dev/null Op.stat.tmp`;
  423.   
  424.   if (-z 'Op.stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
  425.   if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
  426. --- 35,41 ----
  427.   }
  428.   print "#4    :$mtime: != :$ctime:\n";
  429.   
  430. ! `cp nul Op.stat.tmp`;
  431.   
  432.   if (-z 'Op.stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
  433.   if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
  434. ***************
  435. *** 70,77 ****
  436.   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
  437.   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
  438.   
  439. ! if (`ls -l perl` =~ /^l.*->/) {
  440. !     if (-l 'perl') {print "ok 25\n";} else {print "not ok 25\n";}
  441.   }
  442.   else {
  443.       print "ok 25\n";
  444. --- 70,77 ----
  445.   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
  446.   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
  447.   
  448. ! if (`ls -l perl.exe` =~ /^l.*->/) {
  449. !     if (-l 'perl.exe') {print "ok 25\n";} else {print "not ok 25\n";}
  450.   }
  451.   else {
  452.       print "ok 25\n";
  453. ***************
  454. *** 80,86 ****
  455.   if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
  456.   
  457.   if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
  458. ! `rm -f Op.stat.tmp Op.stat.tmp2`;
  459.   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  460.   
  461.   if ($DEV !~ /\nc.* (\S+)\n/)
  462. --- 80,86 ----
  463.   if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
  464.   
  465.   if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
  466. ! `del Op.stat.tmp Op.stat.tmp2 2>nul`;
  467.   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  468.   
  469.   if ($DEV !~ /\nc.* (\S+)\n/)
  470. ***************
  471. *** 110,116 ****
  472.   $cnt = $uid = 0;
  473.   
  474.   die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
  475. ! chdir '/usr/bin' || die "Can't cd to /usr/bin";
  476.   while (defined($_ = <*>)) {
  477.       $cnt++;
  478.       $uid++ if -u;
  479. --- 110,116 ----
  480.   $cnt = $uid = 0;
  481.   
  482.   die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
  483. ! chdir '../os2' || die "Can't cd to ../os2";
  484.   while (defined($_ = <*>)) {
  485.       $cnt++;
  486.       $uid++ if -u;
  487. ***************
  488. *** 121,135 ****
  489.   # I suppose this is going to fail somewhere...
  490.   if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
  491.   
  492. ! unless (open(tty,"/dev/tty")) {
  493. !     print STDERR "Can't open /dev/tty--run t/TEST outside of make.\n";
  494.   }
  495.   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
  496.   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
  497.   close(tty);
  498.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  499. ! open(null,"/dev/null");
  500. ! if (! -t null || -e '/xenix') {print "ok 39\n";} else {print "not ok 39\n";}
  501.   close(null);
  502.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  503.   
  504. --- 121,135 ----
  505.   # I suppose this is going to fail somewhere...
  506.   if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
  507.   
  508. ! unless (open(tty,"con")) {
  509. !     print STDERR "Can't open con--run t/TEST outside of make.\n";
  510.   }
  511.   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
  512.   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
  513.   close(tty);
  514.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  515. ! open(null,"nul");
  516. ! if (! -t null || -e 'c:/os2krnl') {print "ok 39\n";} else {print "not ok 39\n";}
  517.   close(null);
  518.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  519.   
  520. ***************
  521. *** 138,145 ****
  522.   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
  523.   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
  524.   
  525. ! if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";}
  526. ! if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";}
  527.   
  528.   open(foo,'op/stat.t');
  529.   if (-T foo) {print "ok 45\n";} else {print "not ok 45\n";}
  530. --- 138,145 ----
  531.   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
  532.   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
  533.   
  534. ! if (-B 'perl.exe') {print "ok 43\n";} else {print "not ok 43\n";}
  535. ! if (! -T 'perl.exe') {print "ok 44\n";} else {print "not ok 44\n";}
  536.   
  537.   open(foo,'op/stat.t');
  538.   if (-T foo) {print "ok 45\n";} else {print "not ok 45\n";}
  539. ***************
  540. *** 160,164 ****
  541.   if (! -B foo) {print "ok 54\n";} else {print "not ok 54\n";}
  542.   close(foo);
  543.   
  544. ! if (-T '/dev/null') {print "ok 55\n";} else {print "not ok 55\n";}
  545. ! if (-B '/dev/null') {print "ok 56\n";} else {print "not ok 56\n";}
  546. --- 160,164 ----
  547.   if (! -B foo) {print "ok 54\n";} else {print "not ok 54\n";}
  548.   close(foo);
  549.   
  550. ! if (-T 'nul') {print "ok 55\n";} else {print "not ok 55\n";}
  551. ! if (-B 'nul') {print "ok 56\n";} else {print "not ok 56\n";}
  552. diff -cbBwr perl-4.010/t/TEST perl4010/t/TEST
  553. *** perl-4.010/t/TEST    Tue Jun 11 23:32:06 1991
  554. --- perl4010/t/TEST    Sun Jun 16 20:47:38 1991
  555. ***************
  556. *** 16,22 ****
  557.   
  558.   if ($ARGV[0] eq '') {
  559.       @ARGV = split(/[ \n]/,
  560. !       `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`);
  561.   }
  562.   
  563.   open(CONFIG,"../config.sh");
  564. --- 16,22 ----
  565.   
  566.   if ($ARGV[0] eq '') {
  567.       @ARGV = split(/[ \n]/,
  568. !       `ls base/*.t comp/*.t cmd/*.t io/*.t op/*.t lib/*.t`);
  569.   }
  570.   
  571.   open(CONFIG,"../config.sh");
  572. ***************
  573. *** 35,41 ****
  574.       chop($te);
  575.       print "$te" . '.' x (15 - length($te));
  576.       if ($sharpbang) {
  577. !     open(results,"./$test|") || (print "can't run.\n");
  578.       } else {
  579.       open(script,"$test") || die "Can't run $test.\n";
  580.       $_ = <script>;
  581. --- 35,41 ----
  582.       chop($te);
  583.       print "$te" . '.' x (15 - length($te));
  584.       if ($sharpbang) {
  585. !     open(results,"$test|") || (print "can't run.\n");
  586.       } else {
  587.       open(script,"$test") || die "Can't run $test.\n";
  588.       $_ = <script>;
  589. ***************
  590. *** 45,51 ****
  591.       } else {
  592.           $switch = '';
  593.       }
  594. !     open(results,"./perl$switch $test|") || (print "can't run.\n");
  595.       }
  596.       $ok = 0;
  597.       $next = 0;
  598. --- 45,51 ----
  599.       } else {
  600.           $switch = '';
  601.       }
  602. !     open(results,"perl$switch $test|") || (print "can't run.\n");
  603.       }
  604.       $ok = 0;
  605.       $next = 0;
  606.