From 43217e6ce9a7cae817d391e9bb10a3410c88e6e2 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sat, 18 Apr 2009 15:26:50 +0200 Subject: factories are inherited now, added test --- t/02-inherit.t | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 't/02-inherit.t') diff --git a/t/02-inherit.t b/t/02-inherit.t index fb8e238..f11d116 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,7 +36,7 @@ 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; -- cgit v1.2.3 From de1a2f95f3ff6cf1d09e0f4df10f4c5e1c67aead Mon Sep 17 00:00:00 2001 From: dakkar Date: Sat, 25 Apr 2009 09:42:27 +0200 Subject: updated dependencies, removed work-arounds --- t/02-inherit.t | 3 --- 1 file changed, 3 deletions(-) (limited to 't/02-inherit.t') diff --git a/t/02-inherit.t b/t/02-inherit.t index f11d116..e882b53 100644 --- a/t/02-inherit.t +++ b/t/02-inherit.t @@ -41,9 +41,6 @@ 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; -- cgit v1.2.3