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 --- t/03-html.t | 13 +++++++++++-- t/04-xml.t | 8 ++++---- t/05-mixed.t | 4 ++-- 3 files changed, 17 insertions(+), 8 deletions(-) (limited to 't') 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