The thread warnings aren't quite yet working as planned.

p4raw-id: //depot/perl@16687

diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t
index 3d8c97d..9601605 100644 (file)
--- a/ext/threads/shared/t/cond.t
+++ b/ext/threads/shared/t/cond.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 $|++;
-print "1..29\n";
+print "1..25\n";
 use strict;
 
 
@@ -247,26 +247,3 @@ sub ok {
 
 }
 
-# test warnings;
-
-{
-    my $warncount = 0;
-    local $SIG{__WARN__} = sub { $warncount++ };
-
-    my $lock : shared;
-
-    cond_wait($lock);
-    ok(1, $warncount == 1, 'get warning on cond_wait');
-    cond_broadcast($lock);
-    ok(2, $warncount == 2, 'get warning on cond_wait');
-    no warnings 'threads';
-    cond_wait($lock);
-    ok(3, $warncount == 2, 'get no warning on cond_wait');
-    cond_broadcast($lock);
-    ok(4, $warncount == 2, 'get no warning on cond_wait');
-
-    $Base += 4;
-}
-
-
-