[ID 20000126.004] Fix for Perl 5.005_03 `make test'

["Pirn, Peeter" <PPirn@lnc.com>]

Platform: AIX 4.2

I've looked at the code for both op/misc.t and op/stat.t, but I can't see 
why the "file already exists" errors occurred in either case. As far as I 
can tell, the files should not have already existed. How were they created?

Run Perl tests.

cd ./t
./perl harness

op/misc.............sh: misctmp002: file already exists
dubious
        Test returned status 0 (wstat 13, 0xd)
DIED. FAILED tests 2-57
        Failed 56/57 tests, 1.75% okay

sh: Op.stat.tmp: file already exists
FAILED tests 7-8
        Failed 2/58 tests, 96.55% okay


Failed Test  Status Wstat Total Fail  Failed  List of failed
-----------------------------------------------------------------------------
--
op/misc.t         0    13    57   56  98.25%  2-57
op/stat.t                    58    2   3.45%  7-8
6 tests skipped, plus 16 subtests skipped.
Failed 2/190 test scripts, 98.95% okay. 58/6503 subtests failed, 99.11% okay.



Try running op/misc.t individually several times:


honey 263$ ./perl op/misc.t
1..57
ok 1
sh: misctmp004: file already exists
honey 269$ ./perl op/misc.t
1..57
ok 1
sh: misctmp005: file already exists
honey 270$ ./perl op/misc.t
1..57
ok 1
sh: misctmp006: file already exists

Fix op/misc.t.

===================================================================
RCS file: RCS/misc.t,v
retrieving revision 1.1
diff -c -r1.1 misc.t
*** misc.t      2000/01/26 14:00:41     1.1
--- misc.t      2000/01/26 14:22:19
***************
*** 29,35 ****
        open TEST, "| .\\perl -I../lib $switch >$tmpfile 2>&1";
      }
      else {
!       open TEST, "| sh -c './perl $switch' >$tmpfile 2>&1";
      }
      print TEST $prog, "\n";
      close TEST;
--- 29,35 ----
        open TEST, "| .\\perl -I../lib $switch >$tmpfile 2>&1";
      }
      else {
!       open TEST, "| sh -c './perl $switch' >| $tmpfile 2>&1";
      }
      print TEST $prog, "\n";
      close TEST;


Fix op/stat.t.

===================================================================
RCS file: RCS/stat.t,v
retrieving revision 1.1
diff -c -r1.1 stat.t
*** stat.t      2000/01/26 14:16:53     1.1
--- stat.t      2000/01/26 14:20:03
***************
*** 72,78 ****
  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";}
  
! $Is_MSWin32 ? `cmd /c echo hi > Op.stat.tmp` : `echo hi >Op.stat.tmp`;
  if (! -z 'Op.stat.tmp') {print "ok 7\n";} else {print "not ok 7\n";}
  if (-s 'Op.stat.tmp') {print "ok 8\n";} else {print "not ok 8\n";}
  
--- 72,78 ----
  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";}
  
! $Is_MSWin32 ? `cmd /c echo hi > Op.stat.tmp` : `echo hi >| Op.stat.tmp`;
  if (! -z 'Op.stat.tmp') {print "ok 7\n";} else {print "not ok 7\n";}
  if (-s 'Op.stat.tmp') {print "ok 8\n";} else {print "not ok 8\n";}


-----------------------------------------------------------------------------
-
Peeter Pirn                       Lincoln Financial Systems

---

[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]

---