#!/usr/bin/perl
use strict;
use Test::More;
use MyTest::TopNode;
use strict;
plan tests => 9;
# Tests here
my $xml = qq!<foo><stalk beans="3" /><stalk beans="4" /><stalk /></foo>!;
my $tree = MyTest::TopNode->new( xml => $xml);
isa_ok($tree, 'MyTest::TopNode', "Tree object");
can_ok($tree, 'stalk');
is ("${tree}", $xml, "Stringify tree");
my @res = $tree->four_beans;
cmp_ok(@res, '==', 1, "One node returned");
my $node = $res[0];
isa_ok($node, 'MyTest::MultiChild', "Result is an object of correct class");
is ("${node}", '<stalk beans="4" />', "Stringify ok");
@res = $tree->n_beans(3);
cmp_ok(@res, '==', 1, "One node returned");
$node = $res[0];
isa_ok($node, 'MyTest::MultiChild', "Result is an object of correct class");
is ("${node}", '<stalk beans="3" />', "Stringify ok");