diff options
Diffstat (limited to 't/02-xslt.t')
-rw-r--r-- | t/02-xslt.t | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/t/02-xslt.t b/t/02-xslt.t index 58206e8..ac6bf42 100644 --- a/t/02-xslt.t +++ b/t/02-xslt.t @@ -2,10 +2,10 @@ package main; use Test::Most 'die'; BEGIN { -eval 'use Tree::DAG_Node::XPath; require Tree::Transform::XSLTish'; -plan skip_all => 'Tree::DAG_Node::XPath and Tree::Transform::XSLTish needed for this test' if $@; +eval 'use Tree::DAG_Node::XPath 0.10; require Tree::Transform::XSLTish'; +plan skip_all => 'Tree::DAG_Node::XPath 0.10 and Tree::Transform::XSLTish needed for this test' if $@; } -plan tests => 1; +plan tests => 3; package Copy;{ use Tree::Transform::XSLTish; @@ -16,12 +16,14 @@ use warnings; tree_rule match => '/', action => sub { tree { + main::diag 'root'; $_[0]->apply_rules; }; }; tree_rule match => '*', priority => 0, action => sub { node { + main::diag 'node '.$_[0]->it->name; name $_[0]->it->name; attribs %{$_[0]->it->attributes}; $_[0]->apply_rules; @@ -36,9 +38,6 @@ use warnings; use Tree::Template::Declare builder => Tree::Template::Declare::DAG_Node->new('Tree::DAG_Node::XPath'); use Data::Dumper; -sub Tree::DAG_Node::XPath::Root::xpath_get_root_node { return $_[0] } -sub Tree::DAG_Node::XPath::Root::xpath_get_parent_node { return } - my $tree=tree { node { name 'root'; @@ -60,6 +59,9 @@ diag "transforming"; my $trans=Copy->new(); my ($tree2)=$trans->transform($tree); +ok(defined $tree,'built'); +ok(defined $tree2,'transformed'); + diag "comparing"; is($tree->tree_to_lol_notation(), $tree2->tree_to_lol_notation(), |