From: Joe Higton <draxil@gmail.com>
Date: Mon, 11 Oct 2010 16:08:36 +0000 (+0100)
Subject: Test to show bad error message on malformed selector
X-Git-Tag: release_0.009004~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTML-Zoom.git;a=commitdiff_plain;h=c9448e2171d246c09274ccb5585cf62573d57089

Test to show bad error message on malformed selector
---

diff --git a/t/selectors.t b/t/selectors.t
index 9933e43..46e8439 100644
--- a/t/selectors.t
+++ b/t/selectors.t
@@ -96,6 +96,19 @@ ok( check_select( '[prop=moo]'), '[attr=bar]' );
 is( check_select('span[class=career],[prop=moo]'), 2,
     'Multiple selectors: el[attr=bar],[attr=foo]');
 
+TODO:{
+    local $TODO = 'Fix selector error messages';
+    # selector parse error test:
+    eval{
+        HTML::Zoom->from_html('<span att="bar"></span>')
+          ->select('[att=bar')
+          ->replace_content('cats')
+          ->to_html;
+    };
+    like( $@, qr/Error parsing dispatch specification/,
+          'Malformed attribute selector results in a helpful error' );
+};
+
 =pod
 
 # sel1 sel2
@@ -115,6 +128,8 @@ is( HTML::Zoom->from_html('<table><tr><td></td></tr><tr><td></td></tr></table>')
    '<table><tr><td>frew</td></tr><tr><td>frew</td></tr></table>',
    'sel1 sel2 sel3 works' );
 
+
+
 =cut
 
 done_testing;