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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/local/bin perl -w
use strict;
use Test;
use XML::SAX::Machines qw( Machine );
use XML::SAX::Base;
use UNIVERSAL;
my $m;
my $p1 = XML::SAX::Base->new;
my $p2 = XML::SAX::Base->new;
my @tests = (
sub {
$m = Machine(
[ Intake => $p1 ],
[ B => Machine( [ "BA", Machine( [ "BAA", $p2 ] ) ] ) ],
);
ok UNIVERSAL::isa( $m, "XML::SAX::Machine" );
},
sub {
my $p = $m->find_part( "Intake" );
ok "$p", "$p1", "Intake";
},
sub {
my $p = $m->find_part( "/Intake" );
ok "$p", "$p1", "/Intake";
},
sub {
my $p = $m->find_part( "/Intake/" );
ok "$p", "$p1", "/Intake/";
},
sub {
my $p = $m->find_part( "//../////.//Intake///.///" );
ok "$p", "$p1", "//../////.//Intake///.///";
},
sub {
my $p = $m->find_part( "B" );
ok ref $p, "XML::SAX::Machine", "B";
},
sub {
my $p = $m->find_part( "/B" );
ok ref $p, "XML::SAX::Machine", "/B";
},
sub {
my $p = $m->find_part( "/B/BA" );
ok ref $p, "XML::SAX::Machine", "/B/BA";
},
sub {
my $p = $m->find_part( "/B/BA/BAA" );
ok "$p", "$p2", "/B/BA/BAA";
},
);
plan tests => scalar @tests;
$_->() for @tests;
|
