use strict;
use Test;
use XML::SAX::Machines qw( :all );
my @tests = (
sub { ok Pipeline()->isa( "XML::SAX::Pipeline" ); },
sub { ok Manifold()->isa( "XML::SAX::Manifold" ); },
sub { ok Machine() ->isa( "XML::SAX::Machine" ); },
sub { ok Tap() ->isa( "XML::SAX::Tap" ); },
);
plan tests => scalar @tests;
$_->() for @tests;