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;