From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 10 Jun 2011 20:20:22 +0000 (+0200)
Subject: Failing test for mixed-case attr name matching
X-Git-Tag: release_0.009007_1~3^2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b2ea04ecbc1a2dbf4aaf789a7352628dc63091f;p=catagits%2FHTML-Zoom.git

Failing test for mixed-case attr name matching
---

diff --git a/t/selectors.t b/t/selectors.t
index 5b6a60a..c8b5b11 100644
--- a/t/selectors.t
+++ b/t/selectors.t
@@ -72,6 +72,17 @@ is( HTML::Zoom->from_html('<div frew="yo"></div>'.$stub)
     '<div frew="yo">grg</div>'.$stub,
     'E[attr=val] works' );
 
+{
+    local $TODO = 'mixed-case attribute names are broken';
+    # el[Attr=foo]
+    is( HTML::Zoom->from_html('<div FreW="yo"></div>'.$stub)
+        ->select('div[FreW=yo]')
+        ->replace_content('grg')
+        ->to_html,
+        '<div FreW="yo">grg</div>'.$stub,
+        'E[attr=val] works with mixed-case attribute names' );
+}
+
 # el[attr=foo\.bar]
 is( HTML::Zoom->from_html('<div frew="yo.yo"></div>'.$stub)
     ->select('div[frew=yo\.yo]')