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/01-basic.t | 3 --- t/02-inherit.t | 3 --- t/03-byname.t | 3 --- t/04-errors.t | 3 --- t/05-html-tree.t | 6 ++---- t/perlcriticrc | 1 + 6 files changed, 3 insertions(+), 16 deletions(-) (limited to 't') diff --git a/t/01-basic.t b/t/01-basic.t index e947e7a..a8e2474 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -37,9 +37,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; 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; diff --git a/t/03-byname.t b/t/03-byname.t index 8c3723f..a16b2d6 100644 --- a/t/03-byname.t +++ b/t/03-byname.t @@ -22,9 +22,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; diff --git a/t/04-errors.t b/t/04-errors.t index ae02713..6656933 100644 --- a/t/04-errors.t +++ b/t/04-errors.t @@ -5,9 +5,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; diff --git a/t/05-html-tree.t b/t/05-html-tree.t index eb990e8..2973d25 100644 --- a/t/05-html-tree.t +++ b/t/05-html-tree.t @@ -18,12 +18,10 @@ package main; use Test::Most 'die'; use strict; use warnings; -eval 'use XML::XPathEngine;use HTML::TreeBuilder::XPath;'; -plan skip_all => 'XML::XPathEngine and HTML::TreeBuilder::XPath needed for this test' if $@; +eval 'use XML::XPathEngine;use HTML::TreeBuilder::XPath 0.10;'; +plan skip_all => 'XML::XPathEngine and HTML::TreeBuilder::XPath 0.10 needed for this test' if $@; plan tests=> 1; -sub HTML::TreeBuilder::XPath::Root::getRootNode { return $_[0] } - my $tree=HTML::TreeBuilder::XPath->new(); $tree->parse(<<'HTML');$tree->eof; diff --git a/t/perlcriticrc b/t/perlcriticrc index 4185498..5ad1ad7 100644 --- a/t/perlcriticrc +++ b/t/perlcriticrc @@ -9,3 +9,4 @@ color = 1 [-Subroutines::RequireArgUnpacking] [-Subroutines::ProtectPrivateSubs] [-ControlStructures::ProhibitUnlessBlocks] +[-CodeLayout::RequireTidyCode] -- cgit v1.2.3