diff options
| author | Russ Allbery <rra@cpan.org> | 2020-01-17 22:51:12 -0800 |
|---|---|---|
| committer | Russ Allbery <rra@cpan.org> | 2020-01-17 22:51:45 -0800 |
| commit | c4a928c87221e7dfc8ed0aa3d7c53f2ae82d7c81 (patch) | |
| tree | 850c85fec9c5bce0724a4cfda7ed5c37f41cf086 /t | |
| parent | 93bf5456e6e7d9eb9db4132caa011d3b82d241d3 (diff) | |
Use Perl modules instead of gzip and xz programs
docknot dist now uses IO::Uncompress::Gunzip and IO::Compress::Xz to
generate a missing xz tarball rather than running external gzip and xz
programs, which avoids test failures when those programs aren't
available or don't support the expected options. Thanks to Slaven
Rezić for the testing and report. (#131406)
Diffstat (limited to 't')
| -rw-r--r-- | t/data/generate/docknot/output/thread | 1 | ||||
| -rwxr-xr-x | t/dist/basic.t | 6 |
2 files changed, 1 insertions, 6 deletions
diff --git a/t/data/generate/docknot/output/thread b/t/data/generate/docknot/output/thread index dee71b1..3bd2170 100644 --- a/t/data/generate/docknot/output/thread +++ b/t/data/generate/docknot/output/thread @@ -100,6 +100,7 @@ The following additional Perl modules are required to use it: \bullet(packed)[File::BaseDir] \bullet(packed)[File::ShareDir] +\bullet(packed)[IO::Compress::Xz (part of IO-Compress-LZMA)] \bullet(packed)[IPC::Run] \bullet(packed)[IPC::System::Simple] \bullet(packed)[JSON] diff --git a/t/dist/basic.t b/t/dist/basic.t index 72c394c..0c1d28b 100755 --- a/t/dist/basic.t +++ b/t/dist/basic.t @@ -33,12 +33,6 @@ my $dir = File::Temp->newdir(); my $sourcedir = File::Spec->catfile($dir, 'source'); my $distdir = File::Spec->catfile($dir, 'dist'); -# Check whether xz is available. -eval { capturex('xz', '--version') }; -if ($@) { - plan skip_all => 'xz --version failed (possibly no xz binary)'; -} - # Check whether git is available and can be used to initialize a repository. eval { systemx('git', 'init', '-q', File::Spec->catfile($dir, 'source')) }; if ($@) { |