1use strict;
2use warnings;
3
4use Test::More 'tests' => 7;
5
6use Thread::Semaphore;
7
8my $s = Thread::Semaphore->new();
9is($$s, 1, 'Non-threaded semaphore');
10$s->down();
11is($$s, 0, 'Non-threaded semaphore');
12$s->up(2);
13is($$s, 2, 'Non-threaded semaphore');
14$s->down();
15is($$s, 1, 'Non-threaded semaphore');
16ok(! $s->down_nb(2), 'Non-threaded semaphore');
17ok($s->down_nb(), 'Non-threaded semaphore');
18ok(! $s->down_timed(1), 'Non-threaded semaphore');
19
20exit(0);
21
22# EOF
23