diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/base/rs.t | 2 | ||||
| -rwxr-xr-x | t/op/defins.t | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/t/base/rs.t b/t/base/rs.t index 5428603304..52a957260f 100755 --- a/t/base/rs.t +++ b/t/base/rs.t @@ -85,6 +85,7 @@ $bar = <TESTFILE>; if ($bar eq "78") {print "ok 10\n";} else {print "not ok 10\n";} # Get rid of the temp file +close TESTFILE; unlink "./foo"; # Now for the tricky bit--full record reading @@ -120,6 +121,7 @@ if ($^O eq 'VMS') { $bar = <TESTFILE>; if ($bar eq "z\n") {print "ok 14\n";} else {print "not ok 14\n";} + close TESTFILE; unlink "./foo.bar"; unlink "./foo.com"; } else { diff --git a/t/op/defins.t b/t/op/defins.t index 0ed61ce2fb..33c74ea28e 100755 --- a/t/op/defins.t +++ b/t/op/defins.t @@ -61,6 +61,7 @@ while ($where{$seen} = <FILE>) } print "not " unless $seen; print "ok 5\n"; +close FILE; opendir(DIR,'.'); $seen = 0; |