IO::Compress::* 2.010

[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 5c104e7..3dda40a 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 => 80 + $extra ;
+    plan tests => 78 + $extra ;
 
     use_ok('Scalar::Util');
     use_ok('IO::Compress::Base::Common');
@@ -120,11 +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 $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();