Gecko [ www.blackthorn-inc.com ]

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

Name	Size	Permission	Date
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

Rename

use strict;
use warnings;

use Thread::Queue;

use Test::More 'tests' => 26;

my $q = Thread::Queue->new(1..10);
ok($q, 'New queue');

eval { $q->dequeue(undef); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->dequeue(0); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->dequeue(0.5); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->dequeue(-1); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->dequeue('foo'); };
like($@, qr/Invalid 'count'/, $@);

eval { $q->dequeue_nb(undef); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->dequeue_nb(0); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->dequeue_nb(-0.5); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->dequeue_nb(-1); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->dequeue_nb('foo'); };
like($@, qr/Invalid 'count'/, $@);

eval { $q->peek(undef); };
like($@, qr/Invalid 'index'/, $@);
eval { $q->peek(3.3); };
like($@, qr/Invalid 'index'/, $@);
eval { $q->peek('foo'); };
like($@, qr/Invalid 'index'/, $@);

eval { $q->insert(); };
like($@, qr/Invalid 'index'/, $@);
eval { $q->insert(undef); };
like($@, qr/Invalid 'index'/, $@);
eval { $q->insert(.22); };
like($@, qr/Invalid 'index'/, $@);
eval { $q->insert('foo'); };
like($@, qr/Invalid 'index'/, $@);

eval { $q->extract(undef); };
like($@, qr/Invalid 'index'/, $@);
eval { $q->extract('foo'); };
like($@, qr/Invalid 'index'/, $@);
eval { $q->extract(1.1); };
like($@, qr/Invalid 'index'/, $@);
eval { $q->extract(0, undef); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->extract(0, 0); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->extract(0, 3.3); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->extract(0, -1); };
like($@, qr/Invalid 'count'/, $@);
eval { $q->extract(0, 'foo'); };
like($@, qr/Invalid 'count'/, $@);

exit(0);

# EOF