diff options
| -rw-r--r-- | ext/threads/shared/t/cond.t | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/ext/threads/shared/t/cond.t b/ext/threads/shared/t/cond.t index 96016054b6..8c793471c3 100644 --- a/ext/threads/shared/t/cond.t +++ b/ext/threads/shared/t/cond.t @@ -10,7 +10,7 @@ BEGIN { } } $|++; -print "1..25\n"; +print "1..29\n"; use strict; @@ -247,3 +247,26 @@ sub ok { } +# test warnings; + +{ + my $warncount = 0; + local $SIG{__WARN__} = sub { $warncount++ }; + + my $lock : shared; + + cond_signal($lock); + ok(1, $warncount == 1, 'get warning on cond_signal'); + cond_broadcast($lock); + ok(2, $warncount == 2, 'get warning on cond_broadcast'); + no warnings 'threads'; + cond_signal($lock); + ok(3, $warncount == 2, 'get no warning on cond_signal'); + cond_broadcast($lock); + ok(4, $warncount == 2, 'get no warning on cond_broadcast'); + + $Base += 4; +} + + + |