1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
package TestAPRlib::threadmutex;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use APR::Const -compile => qw(EBUSY SUCCESS);
use APR::Pool();
sub num_of_tests {
return 5;
}
sub test {
require APR::ThreadMutex;
my $pool = APR::Pool->new();
my $mutex = APR::ThreadMutex->new($pool);
ok $mutex;
ok t_cmp($mutex->lock, APR::Const::SUCCESS,
'lock == APR::Const::SUCCESS');
#XXX: don't get what we expect on win23
#need to use APR_STATUS_IS_EBUSY ?
# ok t_cmp($mutex->trylock, APR::Const::EBUSY,
# 'trylock == APR::Const::EBUSY');
ok t_cmp($mutex->unlock, APR::Const::SUCCESS,
'unlock == APR::Const::SUCCESS');
# out-of-scope pool
{
my $mutex = APR::ThreadMutex->new(APR::Pool->new);
# try to overwrite the temp pool data
require APR::Table;
my $table = APR::Table::make(APR::Pool->new, 50);
$table->set($_ => $_) for 'aa'..'za';
# now test that we are still OK
ok t_cmp($mutex->lock, APR::Const::SUCCESS,
'lock == APR::Const::SUCCESS');
ok t_cmp($mutex->unlock, APR::Const::SUCCESS,
'unlock == APR::Const::SUCCESS');
}
}
1;
|
