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/05/22 18:31:05 UTC
cvs commit: modperl-2.0/t/response/TestAPR os.pm
dougm 02/05/22 09:31:05
Added: t/response/TestAPR os.pm
Log:
add test for APR::OS::thread_current
Revision Changes Path
1.1 modperl-2.0/t/response/TestAPR/os.pm
Index: os.pm
===================================================================
package TestAPR::os;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use APR::OS ();
use Apache::Const -compile => 'OK';
sub handler {
my $r = shift;
plan $r, tests => 1;
my $id = APR::OS::thread_current() || $$;
ok t_cmp($id, $id, "current thread id or process id");
Apache::OK;
}
1;