Update Compression modules to version 2.009

[p5sagit/p5-mst-13.2.git] / ext / IO_Compress_Base / t / 01misc.t

diff --git a/ext/IO_Compress_Base/t/01misc.t b/ext/IO_Compress_Base/t/01misc.t
index 59088c3..5c104e7 100644 (file)
--- a/ext/IO_Compress_Base/t/01misc.t
+++ b/ext/IO_Compress_Base/t/01misc.t
@@ -19,7 +19,7 @@ BEGIN {
     $extra = 1
         if eval { require Test::NoWarnings ;  import Test::NoWarnings; 1 };
 
-    plan tests => 78 + $extra ;
+    plan tests => 80 + $extra ;
 
     use_ok('Scalar::Util');
     use_ok('IO::Compress::Base::Common');
@@ -120,6 +120,11 @@ undef) ;
     $$xx_ref = 666 ;
     is $xx, 666;
 
+    my $got1 = ParseParameters(1, {'Fred' => [1, 1, Parse_writable_scalar, undef]}, $got) ;
+    ok $got->parsed('Fred'), "parsed" ;
+    $xx_ref = $got->value('Fred');
+    $$xx_ref = 666 ;
+    is $xx, 666;
 }
 
 My::testParseParameters();