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