use strict;
use Test;
use XML::SAX::Machines qw( Machine );
my $m;
my $out;
my @tests = (
sub {
eval { Machine( [ A => undef ] ) };
ok $@ =~ /undef/ ? "undef passed exception" : $@, "undef passed exception";
},
sub {
eval { Machine( [ A => '' ] ) };
ok $@ =~ /empty/i ? "empty string exception" : $@, "empty string exception";
},
sub {
eval { Machine( [ A => "BlarneyFilter" ] ) };
ok $@ =~ /BlarneyFilter/ ? "missing filter exception" : $@, "missing filter exception";
},
);
plan tests => scalar @tests;
$_->() for @tests;