1package TestAPI::error; 2 3use strict; 4use warnings FATAL => 'all'; 5 6use Apache::Test; 7use Apache::TestUtil; 8 9use APR::Request::Apache2; 10use APR::Request::Error qw/GENERAL TAINTED/; 11 12sub handler { 13 my $r = shift; 14 plan $r, tests => 3; 15 16 my $req = APR::Request::Apache2->handle($r); 17 ok $req->isa("APR::Request"); 18 19 # XXX export some constants, and test apreq_xs_strerror 20 ok TAINTED > GENERAL; 21 ok GENERAL eq "Internal apreq error"; 22 return 0; 23} 24 25 261; 27