summaryrefslogtreecommitdiff
path: root/t/02-inherit.t
diff options
context:
space:
mode:
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;