use strict;
use Test;
use XML::SAX::Machines;
use XML::SAX::Machine; ## Need to register the option names
my @tests = (
sub {
ok(
XML::SAX::Machines->processor_class_option(
"XML::SAX::Machine",
"ConstructWithHashedOptions"
) ? 1 : 0,
1,
"XML::SAX::Machine's ConstructWithHashedOptions",
);
},
sub {
ok(
XML::SAX::Machines->processor_class_option(
"XML::SAX::Pipeline",
"ConstructWithHashedOptions"
) ? 1 : 0,
1,
"XML::SAX::Machine's ConstructWithHashedOptions",
);
},
);
plan tests => scalar @tests ;
$_->() for @tests;