5 if ($ENV{'PERL_CORE'}){
7 unshift(@INC, '../lib');
11 use Test::More 'tests' => 4;
13 use Thread::Semaphore;
15 my $s = Thread::Semaphore->new();
16 is($$s, 1, 'Non-threaded semaphore');
18 is($$s, 0, 'Non-threaded semaphore');
20 is($$s, 2, 'Non-threaded semaphore');
22 is($$s, 1, 'Non-threaded semaphore');