added a few more Mojo::DOM tests

mojolicious · May 30, 2011 · c9a7c7f · c9a7c7f
1 parent a6fe287
commit c9a7c7f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/lib/Mojo/DOM.pm b/lib/Mojo/DOM.pm
@@ -196,7 +196,7 @@ sub attrs {
 
   # Not a tag
   my $tree = $self->tree;
-  return if $tree->[0] eq 'root';
+  return {} if $tree->[0] eq 'root';
 
   # Hash
   my $attrs = $tree->[2];

diff --git a/t/mojo/dom.t b/t/mojo/dom.t
@@ -5,7 +5,7 @@ use warnings;
 
 use utf8;
 
-use Test::More tests => 583;
+use Test::More tests => 587;
 
 # "Homer gave me a kidney: it wasn't his, I didn't need it,
 #  and it came postage due- but I appreciated the gesture!"
@@ -1732,6 +1732,8 @@ $dom->a->B->c->each(sub { push @results, $_->text });
 is_deeply \@results, [qw/bar baz/], 'right results';
 is $dom->a->B->c, qq/<c id="three">bar<\/c>\n<c ID="four">baz<\/c>/,
   'right result';
+is_deeply [keys %$dom], [], 'root has no attributes';
+is $dom->find('#nothing'), '', 'no result';
 
 # Direct hash access to attributes in HTML mode
 $dom = Mojo::DOM->new(<<EOF);
@@ -1765,3 +1767,5 @@ $dom->a->b->c->each(sub { push @results, $_->text });
 is_deeply \@results, [qw/bar baz/], 'right results';
 is $dom->a->b->c, qq/<c id="three">bar<\/c>\n<c id="four">baz<\/c>/,
   'right result';
+is_deeply [keys %$dom], [], 'root has no attributes';
+is $dom->find('#nothing'), '', 'no result';