1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
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;
|
