diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/03-html.t | 13 | ||||
| -rw-r--r-- | t/04-xml.t | 8 | ||||
| -rw-r--r-- | t/05-mixed.t | 4 |
3 files changed, 17 insertions, 8 deletions
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{\A<html><head><title>Page title</title></head><body><p class="para" id="p1">Page para</body></html>\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' ); @@ -36,8 +36,8 @@ sub make_tree { { my $tree=make_tree(); -is($tree->serialize(0), - qq{<?xml version="1.0"?>\n<stuff><test:elem1 xmlns:test="http://test/" test:buh="testing" id="1"><test:sub1>some content</test:sub1></test:elem1><elem2 id="2"/></stuff>\n}, +is($tree->toStringC14N(0), + qq{<stuff><test:elem1 xmlns:test="http://test/" id="1" test:buh="testing"><test:sub1>some content</test:sub1></test:elem1><elem2 id="2"></elem2></stuff>}, 'XML document without default NS' ); } @@ -47,8 +47,8 @@ xmlns ':default' => 'ftp://test/'; { my $tree=make_tree(); -is($tree->serialize(0), - qq{<?xml version="1.0"?>\n<stuff xmlns="ftp://test/"><test:elem1 xmlns:test="http://test/" test:buh="testing" id="1"><test:sub1>some content</test:sub1></test:elem1><elem2 id="2"/></stuff>\n}, +is($tree->toStringC14N(0), + qq{<stuff xmlns="ftp://test/"><test:elem1 xmlns:test="http://test/" id="1" test:buh="testing"><test:sub1>some content</test:sub1></test:elem1><elem2 id="2"></elem2></stuff>}, '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{<?xml version="1.0"?>\n<stuff><test:elem1 xmlns:test="http://test/" test:buh="testing" id="1"><test:sub1/></test:elem1><elem2 id="2"/></stuff>\n}, +is($xmltree->toStringC14N(0), + qq{<stuff><test:elem1 xmlns:test="http://test/" id="1" test:buh="testing"><test:sub1></test:sub1></test:elem1><elem2 id="2"></elem2></stuff>}, 'XML document' ); |