The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test;
plan test => 5;

use Apache::Admin::Config;
ok(1);

my $conf = new Apache::Admin::Config;
ok(defined $conf);

$conf->add_directive(test=>1);
$conf->add_directive(test=>2);
$conf->add_directive(test=>3);
$conf->add_directive(test=>4);
$conf->add_directive(test=>5);
$conf->add_directive(test2=>6);

ok($conf->directive(test=>3)->first_line, 3);
ok($conf->directive(test=>4)->first_line, 4);

$conf->directive(test=>3)->delete;
ok($conf->directive(test=>4)->first_line, 3);