summaryrefslogtreecommitdiff
path: root/t/02-inherit.t
diff options
context:
space:
mode:
authordakkar <dakkar@sardina.(none)>2009-04-30 21:50:05 +0200
committerdakkar <dakkar@sardina.(none)>2009-04-30 21:50:05 +0200
commita2ad1449e5f0fa52c03c486966131b5528f2a04a (patch)
tree37037ff63bc337e374481c6033e07b022c1ffec6 /t/02-inherit.t
parentadded a prerq I had forgotten (diff)
parentbetter perl version requirements (diff)
downloadTree-Transform-XSLTish-a2ad1449e5f0fa52c03c486966131b5528f2a04a.tar.gz
Tree-Transform-XSLTish-a2ad1449e5f0fa52c03c486966131b5528f2a04a.tar.bz2
Tree-Transform-XSLTish-a2ad1449e5f0fa52c03c486966131b5528f2a04a.zip
Merge branch 'master' of git@luxion:Tree-Transform-XSLTish
Conflicts: Makefile.PL
Diffstat (limited to 't/02-inherit.t')
-rw-r--r--t/02-inherit.t14
1 files changed, 9 insertions, 5 deletions
diff --git a/t/02-inherit.t b/t/02-inherit.t
index fb8e238..e882b53 100644
--- a/t/02-inherit.t
+++ b/t/02-inherit.t
@@ -1,8 +1,15 @@
#!perl
package TransformA;{
- use Tree::Transform::XSLTish;
+ use Tree::Transform::XSLTish ':engine';
use strict;
use warnings;
+ use Tree::XPathEngine;
+ use Test::Most;
+
+ engine_factory {
+ ok 1,'custom factory called';
+ Tree::XPathEngine->new();
+ };
default_rules;
@@ -29,14 +36,11 @@ package TransformB;{
}
package main;
-use Test::Most qw(no_plan die);
+use Test::Most tests=>2,'die';
use strict;
use warnings;
use Tree::DAG_Node::XPath;
-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::DAG_Node::XPath->new();
$tree->name('base');
$tree->new_daughter->name("coso$_") for 1..5;