diff options
author | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-18 16:10:05 +0100 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@dechirico.(none)> | 2009-03-18 16:10:05 +0100 |
commit | 2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0 (patch) | |
tree | a9ee6c4eaa068134dca9018b025cad6bf8f125bf /t | |
parent | passes the first test! (diff) | |
download | Tree-Transform-XSLTish-2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0.tar.gz Tree-Transform-XSLTish-2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0.tar.bz2 Tree-Transform-XSLTish-2d6b0e4d2bfe6f69fc52021d274a9ded1b7cecf0.zip |
default rules
Diffstat (limited to 't')
-rw-r--r-- | t/01-basic.t | 30 |
1 files changed, 25 insertions, 5 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index a6eb0ba..305b67b 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -14,6 +14,23 @@ package BasicTransform;{ } +package OtherTransform;{ + use Tree::Transform; + use strict; + use warnings; + + default_rules; + + tree_rule match => 'coso1', action => sub { + return 'coso1'; + }; + + tree_rule match => 'base/coso2', action => sub { + return 'coso2'; + } + +} + package main; use Test::Most qw(no_plan die); use strict; @@ -26,11 +43,14 @@ my $tree=Tree::DAG_Node::XPath->new(); $tree->name('base'); $tree->new_daughter->name("coso$_") for 1..5; +{ my $trans=BasicTransform->new(); - -#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 base coso1 coso2 coso3 coso4 coso5)]; +} + +{ +my $trans=OtherTransform->new(); +my @results=$trans->transform($tree); +is_deeply \@results,[qw(coso1 coso2)]; +} |