You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/06/23 23:29:18 UTC
cvs commit: modperl-2.0/t/response/TestAPR threadmutex.pm
dougm 2002/06/23 14:29:18
Modified: t/apr .cvsignore
Added: t/response/TestAPR threadmutex.pm
Log:
add tests for APR::ThreadMutex
Revision Changes Path
1.6 +1 -0 modperl-2.0/t/apr/.cvsignore
Index: .cvsignore
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apr/.cvsignore,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- .cvsignore 22 May 2002 16:30:40 -0000 1.5
+++ .cvsignore 23 Jun 2002 21:29:18 -0000 1.6
@@ -10,3 +10,4 @@
util.t
uuid.t
os.t
+threadmutex.t
1.1 modperl-2.0/t/response/TestAPR/threadmutex.pm
Index: threadmutex.pm
===================================================================
package TestAPR::threadmutex;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::Const -compile => 'OK';
use APR::Const -compile => qw(EBUSY SUCCESS);
sub handler {
my $r = shift;
plan $r, tests => 4, 'APR::ThreadMutex';
require APR::ThreadMutex;
my $mutex = APR::ThreadMutex->new($r->pool);
ok $mutex;
ok t_cmp($mutex->lock, APR::SUCCESS,
'lock == APR::SUCCESS');
ok t_cmp($mutex->trylock, APR::EBUSY,
'trylock == APR::EBUSY');
ok t_cmp($mutex->unlock, APR::SUCCESS,
'unlock == APR::SUCCESS');
Apache::OK;
}
1;