diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-22 08:37:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-22 08:37:17 +0000 |
| commit | 0ec158f4b0db050abb15876df15f5f883540cfd9 (patch) | |
| tree | 65a29c8748f938194d687e43d98d4720da79686d /t | |
| parent | 139cf11b10fe82ec7be04ae7d145dc452057d38b (diff) | |
| download | perl-0ec158f4b0db050abb15876df15f5f883540cfd9.tar.gz | |
clean up after stray test file littering
NOTE: PerlIO/t/via.t leaves behind a via$$ file on windows when
it seems that it shouldn't (looks like a handle leak in PerlIO
to me)
p4raw-id: //depot/perl@16065
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/perlio | 3 | ||||
| -rw-r--r-- | t/win32/system.t | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/t/lib/warnings/perlio b/t/lib/warnings/perlio index 7be021948c..63279ee0fe 100644 --- a/t/lib/warnings/perlio +++ b/t/lib/warnings/perlio @@ -29,6 +29,7 @@ no warnings 'layer'; open(F, ">:-aa", "bb"); use warnings 'layer'; open(F, ">:-aa", "bb"); +close F; EXPECT perlio: invalid separator character '-' in layer specification list -aa at - line 6. ######## @@ -38,6 +39,7 @@ no warnings 'layer'; open(F, ">:aa(", "bb"); use warnings 'layer'; open(F, ">:aa(", "bb"); +close F; EXPECT perlio: argument list not closed for layer "aa(" at - line 6. ######## @@ -50,6 +52,7 @@ no warnings 'layer'; open(F, ">:xyz", "bb"); use warnings 'layer'; open(F, ">:xyz", "bb"); +close F; END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST. EXPECT perlio: unknown layer "xyz". diff --git a/t/win32/system.t b/t/win32/system.t index a0266da5ef..bd65412564 100644 --- a/t/win32/system.t +++ b/t/win32/system.t @@ -76,8 +76,7 @@ close $F; # build the executable chdir($testdir); END { -# chdir($cwd); -# rmtree($testdir); + chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir"; } if (open(my $EIN, "$cwd/op/${exename}_exe.uu")) { print "# Unpacking $exename.exe\n"; |