From: Simon Elliott <simon@browsing.co.uk>
Date: Thu, 19 May 2011 16:32:52 +0000 (+0100)
Subject: additional test
X-Git-Tag: 0.009009~1^2~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTML-Zoom.git;a=commitdiff_plain;h=3688f85a36b7825ad89e8800e5a573c6c9b60166

additional test
---

diff --git a/t/dwim-autoload.t b/t/dwim-autoload.t
index cd63df6..12a6480 100644
--- a/t/dwim-autoload.t
+++ b/t/dwim-autoload.t
@@ -312,7 +312,18 @@ sub code_stream (&) {
       'li.bar' => ['bar'],
     })->to_html;
   is $dwim, '<ul><li class="foo">foo</li><li class="bar">bar</li></ul>',
-    'Multiple selectors from hashref';
+    'Multiple selectors from hashref (via replace_content)';
+}
+
+{
+  ok my $dwim = HTML::Zoom
+  ->from_html(q[<ul><li class="foo"></li><li class="bar"></li></ul>])
+    ->set_attribute({
+      'li.foo' => [ class => 'baz' ],
+      'li.bar' => [ class => 'qux' ],
+    })->to_html;
+  is $dwim, '<ul><li class="baz"></li><li class="qux"></li></ul>',
+    'Multiple selectors from hashref (via set_attribute)';
 }
 
 done_testing;