[p5sagit/p5-mst-13.2.git] / ext / Thread-Semaphore / t / 03_nothreads.t

use strict;
use warnings;

BEGIN {
    if ($ENV{'PERL_CORE'}){
        chdir('t');
        unshift(@INC, '../lib');
    }
}

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

use Thread::Semaphore;

my $s = Thread::Semaphore->new();
is($$s, 1, 'Non-threaded semaphore');
$s->down();
is($$s, 0, 'Non-threaded semaphore');
$s->up(2);
is($$s, 2, 'Non-threaded semaphore');
$s->down();
is($$s, 1, 'Non-threaded semaphore');

exit(0);

# EOF
Commit	Line	Data
0a7dbd1b	1	use strict;
	2	use warnings;
	3
	4	BEGIN {
	5	if ($ENV{'PERL_CORE'}){
	6	chdir('t');
	7	unshift(@INC, '../lib');
	8	}
	9	}
	10
	11	use Test::More 'tests' => 4;
	12
	13	use Thread::Semaphore;
	14
	15	my $s = Thread::Semaphore->new();
	16	is($$s, 1, 'Non-threaded semaphore');
	17	$s->down();
	18	is($$s, 0, 'Non-threaded semaphore');
	19	$s->up(2);
	20	is($$s, 2, 'Non-threaded semaphore');
	21	$s->down();
	22	is($$s, 1, 'Non-threaded semaphore');
	23
1090e072	24	exit(0);
1090e072	25
0a7dbd1b	26	# EOF