# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
package TestAPI::server_rec;

# this test module is only for testing fields in the server_rec listed
# in apache_structures.map

# XXX: This test needs to be mucho improved. currently it justs checks
# whether some value is set or not

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

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

use Apache2::RequestRec ();
use Apache2::ServerRec ();
use Apache2::ServerUtil ();

use Apache2::Const -compile => 'OK';

sub handler {
    my $r = shift;

    my $s = $r->server;

    plan $r, tests => 20;

    ok $s;

    ok $s->process;

    ok $s->next || 1;

    ok $s->server_admin;

    ok $s->server_hostname;

    ok $s->port || 1;

    ok $s->error_fname || 1; # vhost might not have its own (t/TEST -ssl)

    # XXX: error_log;

    ok $s->loglevel;

    ok $s->is_virtual || 1;

    # XXX: module_config

    # XXX: lookup_defaults

    ok $s->addrs;

    t_debug("timeout : ", $s->timeout);
    ok $s->timeout;

    t_debug("keep_alive_timeout : ", $s->keep_alive_timeout);
    ok $s->keep_alive_timeout || 1;
    t_debug("keep_alive_max : ", $s->keep_alive_max);
    ok $s->keep_alive_max || 1;
    ok $s->keep_alive || 1;

    ok $s->path || 1;

    ok $s->names || 1;

    ok $s->wild_names || 1;

    ok $s->limit_req_line;

    ok $s->limit_req_fieldsize;

    ok $s->limit_req_fields;

    Apache2::Const::OK;
}

1;