From 48eb4d6f7d05204aa5e734e924c7236048de530c Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 18 May 2002 22:03:29 +0000 Subject: The thread warnings aren't quite yet working as planned. p4raw-id: //depot/perl@16687 --- ext/threads/shared/t/cond.t | 25 +------------------------ 1 file changed, 1 insertion(+), 24 deletions(-) diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t index 3d8c97df7f..96016054b6 100644 --- 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; -} - - - -- cgit v1.2.1