diff options
author | dakkar <dakkar@thenautilus.net> | 2013-01-27 20:48:56 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2013-01-27 20:49:15 +0000 |
commit | 3e335ea77b4f33c7ec7bd9d4d7219523bec54d80 (patch) | |
tree | e0afd8976fd3929c14a8b695d2a9d9b77d978b92 /t/03-html.t | |
parent | prep for version 0.4 (diff) | |
download | Tree-Template-Declare-0.5.tar.gz Tree-Template-Declare-0.5.tar.bz2 Tree-Template-Declare-0.5.zip |
more rebust tests, work with hash randomisationv0.5
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' ); |