sub startup : Tests(startup => +1) {
    my $test = shift;
    $test->SUPER::startup();
    ok(
        $test->{action} = $test->class()->new(
            {
                parser => Siebel::Srvrmgr::ListParser->new()
            }
        ),
        'the constructor should succeed'
    );
}