From 3e335ea77b4f33c7ec7bd9d4d7219523bec54d80 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sun, 27 Jan 2013 20:48:56 +0000 Subject: more rebust tests, work with hash randomisation --- .gitignore | 1 + ChangeLog | 3 +++ lib/Tree/Template/Declare.pm | 2 +- lib/Tree/Template/Declare/DAG_Node.pm | 2 +- lib/Tree/Template/Declare/HTML_Element.pm | 2 +- lib/Tree/Template/Declare/LibXML.pm | 2 +- t/03-html.t | 13 +++++++++++-- t/04-xml.t | 8 ++++---- t/05-mixed.t | 4 ++-- 9 files changed, 25 insertions(+), 12 deletions(-) diff --git a/.gitignore b/.gitignore index 417e141..c304544 100644 --- a/.gitignore +++ b/.gitignore @@ -1,6 +1,7 @@ /blib/ /inc/ /META.yml +/MYMETA.* /pm_to_blib /Makefile /Makefile.old diff --git a/ChangeLog b/ChangeLog index e5adda8..2cd9dfe 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ .. -*- mode: rst; coding: utf-8 -*- +0.5 2013-01-27 + - fixed tests broken by better hash randomisation in perl 5.18 + 0.4 2011-02-13 - fixed test for HTML::Element - silenced some critic violations diff --git a/lib/Tree/Template/Declare.pm b/lib/Tree/Template/Declare.pm index c7dc227..46cf784 100644 --- a/lib/Tree/Template/Declare.pm +++ b/lib/Tree/Template/Declare.pm @@ -7,7 +7,7 @@ use Carp; use Data::Dumper; use 5.006; -our $VERSION='0.4'; +our $VERSION='0.5'; { my $exporter=Sub::Exporter::build_exporter({ diff --git a/lib/Tree/Template/Declare/DAG_Node.pm b/lib/Tree/Template/Declare/DAG_Node.pm index aca8082..4345638 100644 --- a/lib/Tree/Template/Declare/DAG_Node.pm +++ b/lib/Tree/Template/Declare/DAG_Node.pm @@ -3,7 +3,7 @@ use strict; use warnings; use Carp; -our $VERSION='0.4'; +our $VERSION='0.5'; sub new { my ($class,$node_class)=@_; diff --git a/lib/Tree/Template/Declare/HTML_Element.pm b/lib/Tree/Template/Declare/HTML_Element.pm index 01f4a15..18dab82 100644 --- a/lib/Tree/Template/Declare/HTML_Element.pm +++ b/lib/Tree/Template/Declare/HTML_Element.pm @@ -4,7 +4,7 @@ use warnings; use Carp; use HTML::Element; -our $VERSION='0.4'; +our $VERSION='0.5'; sub new { my ($class)=@_; diff --git a/lib/Tree/Template/Declare/LibXML.pm b/lib/Tree/Template/Declare/LibXML.pm index 77194c7..9e5fb93 100644 --- a/lib/Tree/Template/Declare/LibXML.pm +++ b/lib/Tree/Template/Declare/LibXML.pm @@ -4,7 +4,7 @@ use warnings; use Carp; use XML::LibXML; -our $VERSION='0.4'; +our $VERSION='0.5'; sub new { my ($class)=@_; diff --git a/t/03-html.t b/t/03-html.t index a4b6df9..6c1348d 100644 --- a/t/03-html.t +++ b/t/03-html.t @@ -32,7 +32,16 @@ my $tree=tree { }; }; -like($tree->as_HTML(), - qr{\APage title

Page para\s*\z}, +my $expected_tree = HTML::Element->new_from_lol( + ['html', + ['head', + ['title','Page title'], + ], + ['body', + ['p','Page para',{class=>'para',id=>'p1'}], + ], + ], +); +ok($tree->same_as($expected_tree), 'HTML tree' ); diff --git a/t/04-xml.t b/t/04-xml.t index 3512469..bd4ada3 100644 --- a/t/04-xml.t +++ b/t/04-xml.t @@ -36,8 +36,8 @@ sub make_tree { { my $tree=make_tree(); -is($tree->serialize(0), - qq{\nsome content\n}, +is($tree->toStringC14N(0), + qq{some content}, 'XML document without default NS' ); } @@ -47,8 +47,8 @@ xmlns ':default' => 'ftp://test/'; { my $tree=make_tree(); -is($tree->serialize(0), - qq{\nsome content\n}, +is($tree->toStringC14N(0), + qq{some content}, 'XML document with default NS' ); } diff --git a/t/05-mixed.t b/t/05-mixed.t index 1546c89..e7e66b1 100644 --- a/t/05-mixed.t +++ b/t/05-mixed.t @@ -31,8 +31,8 @@ my $xmltree= xtree { }; }; -is($xmltree->serialize(0), - qq{\n\n}, +is($xmltree->toStringC14N(0), + qq{}, 'XML document' ); -- cgit v1.2.3