diff options
Diffstat (limited to 't/03-html.t')
-rw-r--r-- | t/03-html.t | 13 |
1 files changed, 11 insertions, 2 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' ); |