diff options
| author | Steve Peters <steve@fisharerojo.org> | 2009-11-28 23:45:10 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2009-11-28 23:45:10 -0600 |
| commit | a917e5da001c2e01ede95e432a105b1aa899f1e5 (patch) | |
| tree | b4e92d0c2636de6d398aa65df051a2f438d73929 /cpan/IO-Compress/t/compress/oneshot.pl | |
| parent | ff868e665bf85a829dc47bfa1243b26d4367cacd (diff) | |
| parent | 23e33b604408d78c7993c7ba35b0a4323eb9feeb (diff) | |
| download | perl-a917e5da001c2e01ede95e432a105b1aa899f1e5.tar.gz | |
Merge branch 'blead' of ssh://stevep@perl5.git.perl.org/gitroot/perl into blead
Diffstat (limited to 'cpan/IO-Compress/t/compress/oneshot.pl')
| -rw-r--r-- | cpan/IO-Compress/t/compress/oneshot.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cpan/IO-Compress/t/compress/oneshot.pl b/cpan/IO-Compress/t/compress/oneshot.pl index 9c76cefdb5..78d17275b7 100644 --- a/cpan/IO-Compress/t/compress/oneshot.pl +++ b/cpan/IO-Compress/t/compress/oneshot.pl @@ -276,7 +276,7 @@ sub run my $FuncInverse = getTopFuncRef($TopTypeInverse); my @opts = (); - @opts = (RawInflate => 1) + @opts = (RawInflate => 1, UnLzma => 1) if $CompressClass eq 'IO::Compress::RawInflate'; for my $append ( 1, 0 ) @@ -615,7 +615,7 @@ sub run { title "Truncated file"; skip '', 7 - if $CompressClass =~ /lzop|lzf/i ; + if $CompressClass =~ /lzop|lzf|lzma/i ; my @in ; push @in, "abcde" x 10; @@ -1020,7 +1020,7 @@ sub run my $incumbent = "incumbent data" ; my @opts = (Strict => 1); - push @opts, (RawInflate => 1) + push @opts, (RawInflate => 1, UnLzma => 1) if $bit eq 'IO::Uncompress::AnyUncompress'; for my $append (0, 1) @@ -1321,7 +1321,7 @@ sub run my $keep_comp = $comp; my @opts = (); - @opts = (RawInflate => 1) + @opts = (RawInflate => 1, UnLzma => 1) if $bit eq 'IO::Uncompress::AnyUncompress'; my $incumbent = "incumbent data" ; @@ -1407,7 +1407,7 @@ sub run mkdir $tmpDir2, 0777; my @opts = (); - @opts = (RawInflate => 1) + @opts = (RawInflate => 1, UnLzma => 1) if $bit eq 'IO::Uncompress::AnyUncompress'; ok -d $tmpDir1, " Temp Directory $tmpDir1 exists"; |