Add a pseudo-test to clean up data files for Archive::Tar tests

p4raw-id: //depot/perl@24956

diff --git a/MANIFEST b/MANIFEST
index 0d81804..747a1eb 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1188,6 +1188,7 @@ lib/Archive/Tar/t/00_setup.t      Archive::Tar test setup
 lib/Archive/Tar/t/01_use.t     Archive::Tar tests
 lib/Archive/Tar/t/02_methods.t Archive::Tar tests
 lib/Archive/Tar/t/03_file.t    Archive::Tar tests
+lib/Archive/Tar/t/99_clean.t   Archive::Tar test cleanup
 lib/Archive/Tar/t/src/long/b   Archive::Tar tests
 lib/Archive/Tar/t/src/short/b  Archive::Tar tests
 lib/Archive/Tar.pm             Archive::Tar

diff --git a/lib/Archive/Tar/t/99_clean.t b/lib/Archive/Tar/t/99_clean.t
new file mode 100644 (file)
index 0000000..a736f74
--- /dev/null
+++ b/lib/Archive/Tar/t/99_clean.t
@@ -0,0 +1,9 @@
+#!perl
+
+BEGIN {
+    if ($ENV{PERL_CORE}) {
+       chdir '../lib/Archive/Tar/t/src' if -d '../lib/Archive/Tar/t/src';
+    }
+}
+
+unlink 'long/bar.tar', 'long/foo.tgz', 'short/bar.tar', 'short/foo.tgz';