From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 23 Jun 2005 11:34:35 +0000 (+0000)
Subject: Add a pseudo-test to clean up data files for Archive::Tar tests
X-Git-Tag: accepted/trunk/20130322.191538~20298
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=bd4c9092a0624678e0356f1c4645726583239e3e;p=platform%2Fupstream%2Fperl.git

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
--- 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';