home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / perl4036.zip / os2 / tests.dif < prev    next >
Text File  |  1993-02-26  |  18KB  |  605 lines
  1. diff -cbr orig/t/base/term.t new/t/base/term.t
  2. *** orig/t/base/term.t    Mon Feb 08 21:37:02 1993
  3. --- new/t/base/term.t    Fri Feb 26 13:28:38 1993
  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 -cbr orig/t/cmd/while.t new/t/cmd/while.t
  22. *** orig/t/cmd/while.t    Mon Feb 08 21:36:38 1993
  23. --- new/t/cmd/while.t    Fri Feb 26 13:28:40 1993
  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 -cbr orig/t/comp/cpp.t new/t/comp/cpp.t
  43. *** orig/t/comp/cpp.t    Mon Feb 08 21:37:02 1993
  44. --- new/t/comp/cpp.t    Fri Feb 26 13:28:42 1993
  45. ***************
  46. *** 44,51 ****
  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. --- 44,51 ----
  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 -cbr orig/t/comp/script.t new/t/comp/script.t
  65. *** orig/t/comp/script.t    Mon Feb 08 21:37:16 1993
  66. --- new/t/comp/script.t    Fri Feb 26 13:28:42 1993
  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 -cbr orig/t/io/argv.t new/t/io/argv.t
  112. *** orig/t/io/argv.t    Mon Feb 08 21:37:02 1993
  113. --- new/t/io/argv.t    Fri Feb 26 13:28:44 1993
  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 -cbr orig/t/io/pipe.t new/t/io/pipe.t
  167. *** orig/t/io/pipe.t    Mon Feb 08 21:37:02 1993
  168. --- new/t/io/pipe.t    Fri Feb 26 13:28:44 1993
  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 -cbr orig/t/op/dbm.t new/t/op/dbm.t
  204. *** orig/t/op/dbm.t    Mon Feb 08 21:36:38 1993
  205. --- new/t/op/dbm.t    Fri Feb 26 13:28:44 1993
  206. ***************
  207. *** 2,13 ****
  208.   
  209.   # $RCSfile: dbm.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:43:02 $
  210.   
  211. - if (!-r '/usr/include/dbm.h' && !-r '/usr/include/ndbm.h'
  212. -     && !-r '/usr/include/rpcsvc/dbm.h') {
  213. -     print "1..0\n";
  214. -     exit;
  215. - }
  216. - 
  217.   print "1..12\n";
  218.   
  219.   unlink <Op.dbmx.*>;
  220. --- 2,7 ----
  221. diff -cbr orig/t/op/exec.t new/t/op/exec.t
  222. *** orig/t/op/exec.t    Mon Feb 08 21:37:10 1993
  223. --- new/t/op/exec.t    Fri Feb 26 13:28:46 1993
  224. ***************
  225. *** 7,21 ****
  226.   
  227.   print "not ok 1\n" if system "echo ok \\1";    # shell interpreted
  228.   print "not ok 2\n" if system "echo ok 2";    # split and directly called
  229. ! print "not ok 3\n" if system "echo", "ok", "3"; # directly called
  230.   
  231.   if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
  232.   
  233. ! if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
  234.   print "ok 5\n";
  235.   
  236. ! if ((system "lskdfj") == 255 << 8) {print "ok 6\n";} else {print "not ok 6\n";}
  237.   
  238.   unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
  239.   
  240. ! exec "echo","ok","8";
  241. --- 7,21 ----
  242.   
  243.   print "not ok 1\n" if system "echo ok \\1";    # shell interpreted
  244.   print "not ok 2\n" if system "echo ok 2";    # split and directly called
  245. ! print "not ok 3\n" if system "perlglob", "ok", "3", "\n"; # directly called
  246.   
  247.   if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
  248.   
  249. ! if ((system "sh -c \"exit 1\"") != 1) { print "not "; }
  250.   print "ok 5\n";
  251.   
  252. ! if ((system "lskdfj") == 255) {print "ok 6\n";} else {print "not ok 6\n";}
  253.   
  254.   unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
  255.   
  256. ! exec "perlglob","ok","8";
  257. diff -cbr orig/t/op/glob.t new/t/op/glob.t
  258. *** orig/t/op/glob.t    Mon Feb 08 21:37:20 1993
  259. --- new/t/op/glob.t    Fri Feb 26 13:28:46 1993
  260. ***************
  261. *** 7,13 ****
  262.   @ops = <op/*>;
  263.   $list = join(' ',@ops);
  264.   
  265. ! chop($otherway = `echo op/*`);
  266.   
  267.   print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
  268.   
  269. --- 7,13 ----
  270.   @ops = <op/*>;
  271.   $list = join(' ',@ops);
  272.   
  273. ! chop($otherway = `perlglob op/*`);
  274.   
  275.   print $list eq $otherway ? "ok 1\n" : "not ok 1\n$list\n$otherway\n";
  276.   
  277. diff -cbr orig/t/op/goto.t new/t/op/goto.t
  278. *** orig/t/op/goto.t    Mon Feb 08 21:37:12 1993
  279. --- new/t/op/goto.t    Fri Feb 26 13:28:48 1993
  280. ***************
  281. *** 29,33 ****
  282.   print "#2\t:$foo: == 4\n";
  283.   if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
  284.   
  285. ! $x = `./perl -e 'goto foo;' 2>&1`;
  286.   if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
  287. --- 29,33 ----
  288.   print "#2\t:$foo: == 4\n";
  289.   if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
  290.   
  291. ! $x = `perl -e "goto foo;" 2>&1`;
  292.   if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
  293. diff -cbr orig/t/op/magic.t new/t/op/magic.t
  294. *** orig/t/op/magic.t    Mon Feb 08 21:37:00 1993
  295. --- new/t/op/magic.t    Fri Feb 26 13:28:48 1993
  296. ***************
  297. *** 7,13 ****
  298.   print "1..5\n";
  299.   
  300.   eval '$ENV{"foo"} = "hi there";';    # check that ENV is inited inside eval
  301. ! if (`echo \$foo` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
  302.   
  303.   unlink 'ajslkdfpqjsjfk';
  304.   $! = 0;
  305. --- 7,13 ----
  306.   print "1..5\n";
  307.   
  308.   eval '$ENV{"foo"} = "hi there";';    # check that ENV is inited inside eval
  309. ! if (`echo %foo%` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";}
  310.   
  311.   unlink 'ajslkdfpqjsjfk';
  312.   $! = 0;
  313. ***************
  314. *** 17,30 ****
  315.   # the next tests are embedded inside system simply because sh spits out
  316.   # a newline onto stderr when a child process kills itself with SIGINT.
  317.   
  318. ! system './perl',
  319.   '-e', '$| = 1;        # command buffering',
  320.   
  321. ! '-e', '$SIG{"INT"} = "ok3"; kill 2,$$;',
  322. ! '-e', '$SIG{"INT"} = "IGNORE"; kill 2,$$; print "ok 4\n";',
  323. ! '-e', '$SIG{"INT"} = "DEFAULT"; kill 2,$$; print "not ok\n";',
  324.   
  325. ! '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "INT"; }';
  326.   
  327.   @val1 = @ENV{keys(%ENV)};    # can we slice ENV?
  328.   @val2 = values(%ENV);
  329. --- 17,30 ----
  330.   # the next tests are embedded inside system simply because sh spits out
  331.   # a newline onto stderr when a child process kills itself with SIGINT.
  332.   
  333. ! system 'perl',
  334.   '-e', '$| = 1;        # command buffering',
  335.   
  336. ! '-e', '$SIG{"TERM"} = "ok3"; kill 0,$$;',
  337. ! '-e', '$SIG{"TERM"} = "IGNORE"; kill 0,$$; print "ok 4\n";',
  338. ! '-e', '$SIG{"TERM"} = "DEFAULT"; kill 0,$$; print "not ok\n";',
  339.   
  340. ! '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "TERM"; }';
  341.   
  342.   @val1 = @ENV{keys(%ENV)};    # can we slice ENV?
  343.   @val2 = values(%ENV);
  344. diff -cbr orig/t/op/mkdir.t new/t/op/mkdir.t
  345. *** orig/t/op/mkdir.t    Mon Feb 08 21:37:20 1993
  346. --- new/t/op/mkdir.t    Fri Feb 26 13:28:50 1993
  347. ***************
  348. *** 4,14 ****
  349.   
  350.   print "1..7\n";
  351.   
  352. ! `rm -rf blurfl`;
  353.   
  354.   print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
  355.   print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
  356. ! print ($! =~ /exist/ ? "ok 3\n" : "not ok 3\n");
  357.   print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
  358.   print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
  359.   print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
  360. --- 4,14 ----
  361.   
  362.   print "1..7\n";
  363.   
  364. ! `rm -r blurfl`;
  365.   
  366.   print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
  367.   print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
  368. ! print ($! =~ /denied/ ? "ok 3\n" : "not ok 3\n");
  369.   print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
  370.   print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
  371.   print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
  372. diff -cbr orig/t/op/split.t new/t/op/split.t
  373. *** orig/t/op/split.t    Mon Feb 08 21:36:46 1993
  374. --- new/t/op/split.t    Fri Feb 26 13:28:50 1993
  375. ***************
  376. *** 47,53 ****
  377.   print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
  378.   
  379.   # Does assignment to a list imply split to one more field than that?
  380. ! $foo = `./perl -D1024 -e '(\$a,\$b) = split;' 2>&1`;
  381.   print $foo =~ /DEBUGGING/ || $foo =~ /num\(3\)/ ? "ok 11\n" : "not ok 11\n";
  382.   
  383.   # Can we say how many fields to split to when assigning to a list?
  384. --- 47,53 ----
  385.   print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
  386.   
  387.   # Does assignment to a list imply split to one more field than that?
  388. ! $foo = `perl -D1024 -e "(\$a,\$b) = split;" 2>&1`;
  389.   print $foo =~ /DEBUGGING/ || $foo =~ /num\(3\)/ ? "ok 11\n" : "not ok 11\n";
  390.   
  391.   # Can we say how many fields to split to when assigning to a list?
  392. diff -cbr orig/t/op/stat.t new/t/op/stat.t
  393. *** orig/t/op/stat.t    Mon Feb 08 21:36:22 1993
  394. --- new/t/op/stat.t    Fri Feb 26 13:28:50 1993
  395. ***************
  396. *** 4,12 ****
  397.   
  398.   print "1..56\n";
  399.   
  400. ! chop($cwd = `pwd`);
  401.   
  402. ! $DEV = `ls -l /dev`;
  403.   
  404.   unlink "Op.stat.tmp";
  405.   open(FOO, ">Op.stat.tmp");
  406. --- 4,12 ----
  407.   
  408.   print "1..56\n";
  409.   
  410. ! chop($cwd = `cd`);
  411.   
  412. ! $DEV = `ls -l`;
  413.   
  414.   unlink "Op.stat.tmp";
  415.   open(FOO, ">Op.stat.tmp");
  416. ***************
  417. *** 23,29 ****
  418.   
  419.   sleep 2;
  420.   
  421. ! `rm -f Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp`;
  422.   
  423.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  424.       $blksize,$blocks) = stat('Op.stat.tmp');
  425. --- 23,29 ----
  426.   
  427.   sleep 2;
  428.   
  429. ! `del Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp 2>nul`;
  430.   
  431.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  432.       $blksize,$blocks) = stat('Op.stat.tmp');
  433. ***************
  434. *** 73,80 ****
  435.   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
  436.   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
  437.   
  438. ! if (`ls -l perl` =~ /^l.*->/) {
  439. !     if (-l 'perl') {print "ok 25\n";} else {print "not ok 25\n";}
  440.   }
  441.   else {
  442.       print "ok 25\n";
  443. --- 73,80 ----
  444.   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
  445.   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
  446.   
  447. ! if (`ls -l perl.exe` =~ /^l.*->/) {
  448. !     if (-l 'perl.exe') {print "ok 25\n";} else {print "not ok 25\n";}
  449.   }
  450.   else {
  451.       print "ok 25\n";
  452. ***************
  453. *** 83,89 ****
  454.   if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
  455.   
  456.   if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
  457. ! `rm -f Op.stat.tmp Op.stat.tmp2`;
  458.   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  459.   
  460.   if ($DEV !~ /\nc.* (\S+)\n/)
  461. --- 83,89 ----
  462.   if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
  463.   
  464.   if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
  465. ! `del Op.stat.tmp Op.stat.tmp2 2>nul`;
  466.   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  467.   
  468.   if ($DEV !~ /\nc.* (\S+)\n/)
  469. ***************
  470. *** 113,119 ****
  471.   $cnt = $uid = 0;
  472.   
  473.   die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
  474. ! chdir '/usr/bin' || die "Can't cd to /usr/bin";
  475.   while (defined($_ = <*>)) {
  476.       $cnt++;
  477.       $uid++ if -u;
  478. --- 113,119 ----
  479.   $cnt = $uid = 0;
  480.   
  481.   die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
  482. ! chdir '../os2' || die "Can't cd to ../os2";
  483.   while (defined($_ = <*>)) {
  484.       $cnt++;
  485.       $uid++ if -u;
  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,"/dev/tty")) {
  492. !     print STDERR "Can't open /dev/tty--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,"/dev/null");
  499. ! if (! -t null || -e '/xenix') {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. --- 124,138 ----
  504.   # I suppose this is going to fail somewhere...
  505.   if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
  506.   
  507. ! unless (open(tty,"con")) {
  508. !     print STDERR "Can't open con--run t/TEST outside of make.\n";
  509.   }
  510.   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
  511.   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
  512.   close(tty);
  513.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  514. ! open(null,"nul");
  515. ! if (! -t null || -e 'c:/os2krnl') {print "ok 39\n";} else {print "not ok 39\n";}
  516.   close(null);
  517.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  518.   
  519. ***************
  520. *** 141,148 ****
  521.   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
  522.   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
  523.   
  524. ! if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";}
  525. ! if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";}
  526.   
  527.   open(FOO,'op/stat.t');
  528.   eval { -T FOO; };
  529. --- 141,148 ----
  530.   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
  531.   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
  532.   
  533. ! if (-B 'perl.exe') {print "ok 43\n";} else {print "not ok 43\n";}
  534. ! if (! -T 'perl.exe') {print "ok 44\n";} else {print "not ok 44\n";}
  535.   
  536.   open(FOO,'op/stat.t');
  537.   eval { -T FOO; };
  538. ***************
  539. *** 172,176 ****
  540.   }
  541.   close(FOO);
  542.   
  543. ! if (-T '/dev/null') {print "ok 55\n";} else {print "not ok 55\n";}
  544. ! if (-B '/dev/null') {print "ok 56\n";} else {print "not ok 56\n";}
  545. --- 172,176 ----
  546.   }
  547.   close(FOO);
  548.   
  549. ! if (-T 'nul') {print "ok 55\n";} else {print "not ok 55\n";}
  550. ! if (-B 'nul') {print "ok 56\n";} else {print "not ok 56\n";}
  551. diff -cbr orig/t/TEST new/t/TEST
  552. *** orig/t/TEST    Mon Feb 08 21:36:44 1993
  553. --- new/t/TEST    Fri Feb 26 13:28:52 1993
  554. ***************
  555. *** 16,22 ****
  556.   
  557.   if ($ARGV[0] eq '') {
  558.       @ARGV = split(/[ \n]/,
  559. !       `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`);
  560.   }
  561.   
  562.   open(CONFIG,"../config.sh");
  563. --- 16,22 ----
  564.   
  565.   if ($ARGV[0] eq '') {
  566.       @ARGV = split(/[ \n]/,
  567. !       `ls base/*.t comp/*.t cmd/*.t io/*.t op/*.t lib/*.t`);
  568.   }
  569.   
  570.   open(CONFIG,"../config.sh");
  571. ***************
  572. *** 35,41 ****
  573.       chop($te);
  574.       print "$te" . '.' x (15 - length($te));
  575.       if ($sharpbang) {
  576. !     open(results,"./$test|") || (print "can't run.\n");
  577.       } else {
  578.       open(script,"$test") || die "Can't run $test.\n";
  579.       $_ = <script>;
  580. --- 35,41 ----
  581.       chop($te);
  582.       print "$te" . '.' x (15 - length($te));
  583.       if ($sharpbang) {
  584. !     open(results,"$test|") || (print "can't run.\n");
  585.       } else {
  586.       open(script,"$test") || die "Can't run $test.\n";
  587.       $_ = <script>;
  588. ***************
  589. *** 45,51 ****
  590.       } else {
  591.           $switch = '';
  592.       }
  593. !     open(results,"./perl$switch $test|") || (print "can't run.\n");
  594.       }
  595.       $ok = 0;
  596.       $next = 0;
  597. --- 45,51 ----
  598.       } else {
  599.           $switch = '';
  600.       }
  601. !     open(results,"perl$switch $test|") || (print "can't run.\n");
  602.       }
  603.       $ok = 0;
  604.       $next = 0;
  605.