5 if ($ENV{'PERL_CORE'}){
7 unshift(@INC, '../lib');
10 if (! $Config{'useithreads'}) {
11 print("1..0 # Skip: Perl not compiled with 'useithreads'\n");
20 require 't/test.pl'; # Test::More work-alike for Perl 5.8.0
27 my $q = Thread::Queue->new(1..10);
30 $q->enqueue([ qw/foo bar/ ]);
34 is($q->peek(3), 4, 'Peek at queue');
35 is($q->peek(-3), 9, 'Negative peek');
37 my $nada = $q->peek(20);
38 ok(! defined($nada), 'Big peek');
39 $nada = $q->peek(-20);
40 ok(! defined($nada), 'Big negative peek');
42 my $ary = $q->peek(-1);
43 is_deeply($ary, [ qw/foo bar/ ], 'Peek array');
45 is($q->pending(), 11, 'Queue count in thread');
50 threads->create('q_check')->join();