home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / perl-4.036 / os2 / tests.dif < prev    next >
Encoding:
Text File  |  1993-02-08  |  16.7 KB  |  590 lines
  1. diff -cbBwr perl-4.019/t/base/term.t new/t/base/term.t
  2. *** perl-4.019/t/base/term.t    Wed Mar 20 08:47:14 1991
  3. --- new/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.019/t/cmd/while.t new/t/cmd/while.t
  22. *** perl-4.019/t/cmd/while.t    Wed Mar 20 08:46:28 1991
  23. --- new/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.019/t/comp/cpp.t new/t/comp/cpp.t
  43. *** perl-4.019/t/comp/cpp.t    Wed Mar 20 08:48:44 1991
  44. --- new/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.019/t/comp/script.t new/t/comp/script.t
  65. *** perl-4.019/t/comp/script.t    Wed Mar 20 08:48:50 1991
  66. --- new/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.019/t/io/argv.t new/t/io/argv.t
  112. *** perl-4.019/t/io/argv.t    Wed Mar 20 08:48:38 1991
  113. --- new/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.019/t/io/pipe.t new/t/io/pipe.t
  167. *** perl-4.019/t/io/pipe.t    Wed Mar 20 08:48:38 1991
  168. --- new/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.019/t/op/exec.t new/t/op/exec.t
  204. *** perl-4.019/t/op/exec.t    Wed Mar 20 08:48:46 1991
  205. --- new/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.019/t/op/glob.t new/t/op/glob.t
  240. *** perl-4.019/t/op/glob.t    Wed Mar 20 08:48:54 1991
  241. --- new/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.019/t/op/goto.t new/t/op/goto.t
  260. *** perl-4.019/t/op/goto.t    Wed Mar 20 08:48:46 1991
  261. --- new/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.019/t/op/magic.t new/t/op/magic.t
  278. *** perl-4.019/t/op/magic.t    Wed Mar 20 08:48:36 1991
  279. --- new/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.019/t/op/mkdir.t new/t/op/mkdir.t
  329. *** perl-4.019/t/op/mkdir.t    Wed Mar 20 08:48:54 1991
  330. --- new/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.019/t/op/split.t new/t/op/split.t
  357. *** perl-4.019/t/op/split.t    Wed Mar 20 08:48:24 1991
  358. --- new/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.019/t/op/stat.t new/t/op/stat.t
  377. *** perl-4.019/t/op/stat.t    Fri Nov 22 22:04:46 1991
  378. --- new/t/op/stat.t    Fri Nov 22 22:16:40 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. *** 23,29 ****
  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. --- 23,29 ----
  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. *** 73,80 ****
  419.   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
  420.   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
  421.  
  422. ! if (`ls -l perl` =~ /^l.*->/) {
  423. !     if (-l 'perl') {print "ok 25\n";} else {print "not ok 25\n";}
  424.   }
  425.   else {
  426.       print "ok 25\n";
  427. --- 73,80 ----
  428.   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
  429.   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
  430.  
  431. ! if (`ls -l perl.exe` =~ /^l.*->/) {
  432. !     if (-l 'perl.exe') {print "ok 25\n";} else {print "not ok 25\n";}
  433.   }
  434.   else {
  435.       print "ok 25\n";
  436. ***************
  437. *** 83,89 ****
  438.   if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
  439.  
  440.   if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
  441. ! `rm -f Op.stat.tmp Op.stat.tmp2`;
  442.   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  443.  
  444.   if ($DEV !~ /\nc.* (\S+)\n/)
  445. --- 83,89 ----
  446.   if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
  447.  
  448.   if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
  449. ! `del Op.stat.tmp Op.stat.tmp2 2>nul`;
  450.   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  451.  
  452.   if ($DEV !~ /\nc.* (\S+)\n/)
  453. ***************
  454. *** 113,119 ****
  455.   $cnt = $uid = 0;
  456.  
  457.   die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
  458. ! chdir '/usr/bin' || die "Can't cd to /usr/bin";
  459.   while (defined($_ = <*>)) {
  460.       $cnt++;
  461.       $uid++ if -u;
  462. --- 113,119 ----
  463.   $cnt = $uid = 0;
  464.  
  465.   die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
  466. ! chdir '../os2' || die "Can't cd to ../os2";
  467.   while (defined($_ = <*>)) {
  468.       $cnt++;
  469.       $uid++ if -u;
  470. ***************
  471. *** 124,138 ****
  472.   # I suppose this is going to fail somewhere...
  473.   if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
  474.  
  475. ! unless (open(tty,"/dev/tty")) {
  476. !     print STDERR "Can't open /dev/tty--run t/TEST outside of make.\n";
  477.   }
  478.   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
  479.   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
  480.   close(tty);
  481.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  482. ! open(null,"/dev/null");
  483. ! if (! -t null || -e '/xenix') {print "ok 39\n";} else {print "not ok 39\n";}
  484.   close(null);
  485.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  486.  
  487. --- 124,138 ----
  488.   # I suppose this is going to fail somewhere...
  489.   if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
  490.  
  491. ! unless (open(tty,"con")) {
  492. !     print STDERR "Can't open con--run t/TEST outside of make.\n";
  493.   }
  494.   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
  495.   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
  496.   close(tty);
  497.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  498. ! open(null,"nul");
  499. ! if (! -t null || -e 'c:/os2krnl') {print "ok 39\n";} else {print "not ok 39\n";}
  500.   close(null);
  501.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  502.  
  503. ***************
  504. *** 141,148 ****
  505.   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
  506.   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
  507.  
  508. ! if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";}
  509. ! if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";}
  510.  
  511.   open(FOO,'op/stat.t');
  512.   eval { -T FOO; };
  513. --- 141,148 ----
  514.   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
  515.   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
  516.  
  517. ! if (-B 'perl.exe') {print "ok 43\n";} else {print "not ok 43\n";}
  518. ! if (! -T 'perl.exe') {print "ok 44\n";} else {print "not ok 44\n";}
  519.  
  520.   open(FOO,'op/stat.t');
  521.   eval { -T FOO; };
  522. ***************
  523. *** 172,176 ****
  524.   }
  525.   close(FOO);
  526.  
  527. ! if (-T '/dev/null') {print "ok 55\n";} else {print "not ok 55\n";}
  528. ! if (-B '/dev/null') {print "ok 56\n";} else {print "not ok 56\n";}
  529. --- 172,176 ----
  530.   }
  531.   close(FOO);
  532.  
  533. ! if (-T 'nul') {print "ok 55\n";} else {print "not ok 55\n";}
  534. ! if (-B 'nul') {print "ok 56\n";} else {print "not ok 56\n";}
  535. diff -cbBwr perl-4.019/t/TEST new/t/TEST
  536. *** perl-4.019/t/TEST    Tue Jun 11 23:32:06 1991
  537. --- new/t/TEST    Sun Jun 16 20:47:38 1991
  538. ***************
  539. *** 16,22 ****
  540.  
  541.   if ($ARGV[0] eq '') {
  542.       @ARGV = split(/[ \n]/,
  543. !       `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`);
  544.   }
  545.  
  546.   open(CONFIG,"../config.sh");
  547. --- 16,22 ----
  548.  
  549.   if ($ARGV[0] eq '') {
  550.       @ARGV = split(/[ \n]/,
  551. !       `ls base/*.t comp/*.t cmd/*.t io/*.t op/*.t lib/*.t`);
  552.   }
  553.  
  554.   open(CONFIG,"../config.sh");
  555. ***************
  556. *** 35,41 ****
  557.       chop($te);
  558.       print "$te" . '.' x (15 - length($te));
  559.       if ($sharpbang) {
  560. !     open(results,"./$test|") || (print "can't run.\n");
  561.       } else {
  562.       open(script,"$test") || die "Can't run $test.\n";
  563.       $_ = <script>;
  564. --- 35,41 ----
  565.       chop($te);
  566.       print "$te" . '.' x (15 - length($te));
  567.       if ($sharpbang) {
  568. !     open(results,"$test|") || (print "can't run.\n");
  569.       } else {
  570.       open(script,"$test") || die "Can't run $test.\n";
  571.       $_ = <script>;
  572. ***************
  573. *** 45,51 ****
  574.       } else {
  575.           $switch = '';
  576.       }
  577. !     open(results,"./perl$switch $test|") || (print "can't run.\n");
  578.       }
  579.       $ok = 0;
  580.       $next = 0;
  581. --- 45,51 ----
  582.       } else {
  583.           $switch = '';
  584.       }
  585. !     open(results,"perl$switch $test|") || (print "can't run.\n");
  586.       }
  587.       $ok = 0;
  588.       $next = 0;
  589.  
  590.