package TestAPI::error;

use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestUtil;

use APR::Request::Apache2;
use APR::Request::Error qw/GENERAL TAINTED/;

sub handler {
    my $r = shift;
    plan $r, tests => 3;

    my $req = APR::Request::Apache2->handle($r);
    ok $req->isa("APR::Request");

    # XXX export some constants, and test apreq_xs_strerror
    ok TAINTED > GENERAL;
    ok GENERAL eq "Internal apreq error";
    return 0;
}


1;