passes the first test!

1 files changed, 9 insertions, 3 deletions

diff --git a/t/01-basic.t b/t/01-basic.t
index e9b285b..a6eb0ba 100644
--- a/t/01-basic.t
+++ b/t/01-basic.t
@@ -9,7 +9,7 @@ package BasicTransform;{
  };
 
  tree_rule match => '*', action => sub {
-     return $_[0]->it->name;
+     return $_[0]->it->name, $_[0]->apply_rules;
  }
 
 }
@@ -20,11 +20,17 @@ use strict;
 use warnings;
 use Tree::DAG_Node::XPath;
 
+sub Tree::DAG_Node::XPath::Root::xpath_get_root_node { return $_[0] }
+
 my $tree=Tree::DAG_Node::XPath->new();
+$tree->name('base');
 $tree->new_daughter->name("coso$_") for 1..5;
 
 my $trans=BasicTransform->new();
 
-my @results=$trans->apply_rules($tree);
+#explain 'root children:',$tree->xpath_get_root_node->xpath_get_child_nodes;
+#explain 'root children:',$trans->engine->findnodes('*',$tree);
+
+my @results=$trans->transform($tree);
 
-is_deeply \@results,[qw(root coso1 coso2 coso3 coso4 coso5)];
+is_deeply \@results,[qw(root base coso1 coso2 coso3 coso4 coso5)];