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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
use strict;
use warnings;
use Test::More tests=>105;
BEGIN{ use_ok("XML::Stream","Node","Tree"); }
my @value;
foreach my $type ("tree","node")
{
my $parser = XML::Stream::Parser->new(style=>$type);
isa_ok($parser,"XML::Stream::Parser");
my $node = $parser->parsefile("t/test.xml");
isa_ok($node,"ARRAY") if ($type eq "tree");
isa_ok($node,"XML::Stream::Node") if ($type eq "node");
@value = &XML::Stream::XPath($node,'last/@test');
is( $#value, 0, "'last/\@test' - Only one match?");
is( $value[0], 5, "correct value?");
@value = &XML::Stream::XPath($node,'last/test1/test2/test3/text()');
is( $#value, 0, "'last/test1/test2/test3/text()' - Only one match?");
is( $value[0], "This is a test.", "correct value?");
@value = &XML::Stream::XPath($node,'last/test1/test2/test3');
is( $#value, 0, "'last/test1/test2/test3' - Only one match?");
is( &XML::Stream::GetXMLData("value",$value[0]), "This is a test.", "correct value?");
my %value = &XML::Stream::XPath($node,'foo/@*');
is( scalar(keys(%value)), 1, "'foo/\@\*' - Only one attribute?");
is( $value{test}, 3, "correct value?");
@value = &XML::Stream::XPath($node,'last//test3');
is( $#value, 0, "'last//test3' - Only one match?");
is( &XML::Stream::GetXMLData("value",$value[0]), "This is a test.", "correct value?");
@value = &XML::Stream::XPath($node,'a//e');
is( $#value, 2, "'a//e' - Only three matches?");
is( &XML::Stream::GetXMLData("tag",$value[0]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[0],"e"), "foo1", "correct value?");
is( &XML::Stream::GetXMLData("tag",$value[1]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[1]), "foo1", "correct value?");
is( &XML::Stream::GetXMLData("tag",$value[2]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[2]), "foo2", "correct value?");
@value = &XML::Stream::XPath($node,'//e');
is( $#value, 3, "'//e' - Only four matches?");
is( &XML::Stream::GetXMLData("tag",$value[0]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[0],"e"), "foo1", "correct value?");
is( &XML::Stream::GetXMLData("tag",$value[1]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[1]), "foo1", "correct value?");
is( &XML::Stream::GetXMLData("tag",$value[2]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[2]), "foo2", "correct value?");
is( &XML::Stream::GetXMLData("tag",$value[3]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[3]), "bar", "correct value?");
@value = &XML::Stream::XPath($node,'a/b//d/e');
is( $#value, 1, "'a/b//d/e' - Only two matches?");
is( &XML::Stream::GetXMLData("tag",$value[0]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[0],"e"), "foo1", "correct value?");
is( &XML::Stream::GetXMLData("tag",$value[1]), "e", "is it <e/>?");
is( &XML::Stream::GetXMLData("value",$value[1]), "foo2", "correct value?");
@value = &XML::Stream::XPath($node,'library//chapter//para/@test');
is( $#value, 1, "'library//chapter//para/\@test' - Only two matches?");
is( $value[0], "b", "correct value?");
is( $value[1], "a", "correct value?");
@value = &XML::Stream::XPath($node,'filter[@id and @mytest="2"]/text()');
is( $#value, 0, "'filter[\@id and \@mytest=\"2\"]/text()' - Only one match?");
is( $value[0], "valueA", "correct value?");
@value = &XML::Stream::XPath($node,'newfilter[@bar and sub="foo1"]');
is( $#value, 0, "'newfilter[\@bar and sub=\"foo1\"]' - Only one match?");
is( &XML::Stream::GetXMLData("tag",$value[0]), "newfilter", "is it <newfilter/>?");
is( &XML::Stream::GetXMLData("value",$value[0],"sub"), "foo1", "correct value?");
@value = &XML::Stream::XPath($node,'startest/*[@test]');
is( $#value, 1, "'startest/*[\@test]' - Only two matches?");
is( &XML::Stream::GetXMLData("tag",$value[0]), "foo", "is the first one <foo/>?");
is( &XML::Stream::GetXMLData("tag",$value[1]), "bing", "is the second one <bing/>?");
@value = &XML::Stream::XPath($node,'startest/*[not(@test)]');
is( $#value, 0, "'startest/*[not(\@test)]' - Only one matches?");
is( &XML::Stream::GetXMLData("tag",$value[0]), "bar", "is it <bar/>?");
@value = &XML::Stream::XPath($node,'startest/*[name() != "foo"]');
is( $#value, 1, "'startest/*[name() != \"foo\"]' - Only two matches?");
is( &XML::Stream::GetXMLData("tag",$value[0]), "bar", "is it <bar/>?");
is( &XML::Stream::GetXMLData("tag",$value[1]), "bing", "is it <bing/>?");
@value = &XML::Stream::XPath($node,'//e[starts-with(text(),"foo")]');
is( $#value, 1, "'//e[starts-with(text(),\"foo\")]' - Only two matches?");
is( &XML::Stream::GetXMLData("value",$value[0]), "foo1", "correct value?");
is( &XML::Stream::GetXMLData("value",$value[1]), "foo2", "correct value?");
}
|
