use lib "t/lib";
use Test::More tests=>105;
BEGIN{ use_ok("XML::Stream","Node","Tree"); }
my @value;
foreach my $type ("tree","node")
{
my $parser = new XML::Stream::Parser(style=>$type);
isa_ok($parser,"XML::Stream::Parser");
$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?");
}