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 | |
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.
-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"; } |