diff options
author | Tony Cook <tony@develop-help.com> | 2017-01-12 11:02:52 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2017-09-11 10:59:44 +1000 |
commit | 5a39f542c649762dfe5caedbe1643bdb8a6b3d84 (patch) | |
tree | 9ab5ee8f3e4e99f4f9f96db6a716906081774848 /t | |
parent | 05df5c8807ed986f7d3be4c2eb576840ce65df58 (diff) | |
download | perl-5a39f542c649762dfe5caedbe1643bdb8a6b3d84.tar.gz |
(perl #127663) clean up any files left behind
The rename work file test will leave the work file, if the other tests
fail for some reason they might also leave files.
Diffstat (limited to 't')
-rw-r--r-- | t/run/switches.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index aca5617032..951f8e0469 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -547,6 +547,9 @@ CODE is(scalar(@names), 0, "no extra files") or diag "Found @names, expected none"; + # clean up in case the above failed + unlink map File::Spec->catfile("inplacetmp", $_), @names; + rmdir "inplacetmp"; } |