This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[PATHCH] Scalar::Util::readonly & compression (was RE: Change 29117: [PATCH] IO...
authorPaul Marquess <paul.marquess@btinternet.com>
Sun, 29 Oct 2006 21:03:21 +0000 (21:03 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 29 Oct 2006 22:01:17 +0000 (22:01 +0000)
From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <02cf01c6fb9d$ade808a0$6501a8c0@myopwv.com>
Date: Sun, 29 Oct 2006 21:03:21 -0000

p4raw-id: //depot/perl@29140

ext/Compress/IO/Base/t/01misc.t
t/lib/compress/oneshot.pl

index 29b2a76..fd8cf66 100644 (file)
@@ -56,9 +56,18 @@ sub My::testParseParameters()
     like $@, mkErr("Parameter 'Fred' must be a signed int, got 'abc'"), 
             "wanted signed, got 'abc'";
 
-    eval { ParseParameters(1, {'Fred' => [1, 1, Parse_writable_scalar, 0]}, Fred => 'abc') ; };
-    like $@, mkErr("Parameter 'Fred' not writable"), 
-            "wanted writable, got readonly";
+
+    SKIP:
+    {
+        use Config;
+
+        skip 'readonly + threads', 1
+            if $Config{useithreads};
+
+        eval { ParseParameters(1, {'Fred' => [1, 1, Parse_writable_scalar, 0]}, Fred => 'abc') ; };
+        like $@, mkErr("Parameter 'Fred' not writable"), 
+                "wanted writable, got readonly";
+    }
 
     my @xx;
     eval { ParseParameters(1, {'Fred' => [1, 1, Parse_writable_scalar, 0]}, Fred => \@xx) ; };
index 64588c2..ebfd042 100644 (file)
@@ -165,9 +165,18 @@ sub run
             my $out ;
             my @x ;
 
-            eval { $a = $Func->(\$in, \$out, TrailingData => \"abc") ;} ;
-            like $@, mkErr("^$TopType: Parameter 'TrailingData' not writable"),
-                '  TrailingData output not writable';
+            SKIP:
+            {
+                use Config;
+
+                skip 'readonly + threads', 1
+                    if $Config{useithreads};
+
+                
+                eval { $a = $Func->(\$in, \$out, TrailingData => \"abc") ;} ;
+                like $@, mkErr("^$TopType: Parameter 'TrailingData' not writable"),
+                    '  TrailingData output not writable';
+            }
 
             eval { $a = $Func->(\$in, \$out, TrailingData => \@x) ;} ;
             like $@, mkErr("^$TopType: Parameter 'TrailingData' not a scalar reference"),