diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-23 11:34:35 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-23 11:34:35 +0000 |
| commit | bd4c9092a0624678e0356f1c4645726583239e3e (patch) | |
| tree | 8692059156cc7c636c689ee3e86e58a39305ed1e /lib | |
| parent | 7fde3c017402a0cac4379e08636f0987c91ed060 (diff) | |
| download | perl-bd4c9092a0624678e0356f1c4645726583239e3e.tar.gz | |
Add a pseudo-test to clean up data files for Archive::Tar tests
p4raw-id: //depot/perl@24956
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Archive/Tar/t/99_clean.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Archive/Tar/t/99_clean.t b/lib/Archive/Tar/t/99_clean.t new file mode 100644 index 0000000000..a736f7438b --- /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'; |