diff options
| author | Paul Marquess <pmqs@cpan.org> | 2009-03-25 12:41:40 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-03-25 23:13:25 +0000 |
| commit | 776304fb7495ca9887f88c5e9a08bc830a2f4b4d (patch) | |
| tree | bda4547dfb885553e9bb5486bc0570004d24bbfa /t | |
| parent | 83c6af602074d4e19919ea41f9f654424df9664f (diff) | |
| download | perl-776304fb7495ca9887f88c5e9a08bc830a2f4b4d.tar.gz | |
fix smoke issues with the compression modules
[tweaked to add break; after each default; to make gcc happy]
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/compress/generic.pl | 4 | ||||
| -rw-r--r-- | t/lib/compress/merge.pl | 10 |
2 files changed, 3 insertions, 11 deletions
diff --git a/t/lib/compress/generic.pl b/t/lib/compress/generic.pl index 4e2f113279..54abab0a54 100644 --- a/t/lib/compress/generic.pl +++ b/t/lib/compress/generic.pl @@ -87,8 +87,8 @@ sub run ok ! -e $name, " $name does not exist"; - eval qq[\$a = new $UncompressClass "$name" ;] ; - is lc($!), "no such file or directory", '$! = "no such file or directory"'; + $a = new $UncompressClass "$name" ; + is $a, undef; my $gc ; my $guz = new $CompressClass(\$gc); diff --git a/t/lib/compress/merge.pl b/t/lib/compress/merge.pl index 477c3d3ced..6134292466 100644 --- a/t/lib/compress/merge.pl +++ b/t/lib/compress/merge.pl @@ -89,15 +89,7 @@ sub run ok ! $gz, " Did not create $CompressClass object"; - { - if ($to_file) { - like lc($$Error), '/permission denied/', - " Got non-writable filename message" ; - } - else { - ok $$Error, " Got error message" ; - } - } + ok $$Error, " Got error message" ; } chmod 0777, $out_file ; |