From bd4c9092a0624678e0356f1c4645726583239e3e Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 23 Jun 2005 11:34:35 +0000
Subject: [PATCH] Add a pseudo-test to clean up data files for Archive::Tar
 tests

p4raw-id: //depot/perl@24956
---
 MANIFEST                     | 1 +
 lib/Archive/Tar/t/99_clean.t | 9 +++++++++
 2 files changed, 10 insertions(+)
 create mode 100644 lib/Archive/Tar/t/99_clean.t

diff --git a/MANIFEST b/MANIFEST
index 0d81804..747a1eb 100644
--- 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
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';
-- 
2.7.4