The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
eval { require warnings; };
use Test::More tests => 6;

use_ok('Apache::Action::State');
use_ok('Apache::Action');
my $request = { };	# Fake!
my $session = { };	# As good as anything.
my $state = new Apache::Action::State(
				Request	=> $request,
				Session	=> $session,
					);
my $action = new Apache::Action(
				Request	=> $request,
				Session	=> $session,
				State	=> $state,
					);
ok(defined $action, 'Made something ...');
ok(UNIVERSAL::isa($action, 'Apache::Action'), '... a dispatcher!');
ok($state->error('test'), 'Added an error');
ok($state->errors, 'The error was stored');