use Test;
use XML::Essex::Event;
use strict;

my $e;

@XML::Essex::Event::foo_event::ISA = qw( XML::Essex::Event );

my @tests = (
sub {
    $e = XML::Essex::Event::foo_event->new;
    ok 1;
},

sub {
    ok $e->isa( "XML::Essex::Event::foo_event" );
},

sub {
    ok $e->isa( "XML::Essex::Event" );
},

sub {
    ok $e->isa( "foo_event" );
},

);

plan tests => 0+@tests;

$_->() for @tests;