From 9a9cab4365b6149eee7315e3f7d6fc6127568847 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 30 Sep 2014 13:31:24 +0300 Subject: [PATCH] Demonstrate bug in CSS parsing Pinging @erikd. I think this problem was introduced in the new parser. --- yesod-test/test/main.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/yesod-test/test/main.hs b/yesod-test/test/main.hs index a3658ab9..241d75f9 100644 --- a/yesod-test/test/main.hs +++ b/yesod-test/test/main.hs @@ -11,7 +11,7 @@ import Yesod.Test import Yesod.Test.CssQuery import Yesod.Test.TransversingCSS import Text.XML -import Data.Text (Text) +import Data.Text (Text, pack) import Data.Monoid ((<>)) import Control.Applicative import Network.Wai (pathInfo) @@ -40,6 +40,10 @@ main = hspec $ do let html = "foo

Hello World

" query = "body > p" in findBySelector_ html query @?= ["

Hello World

"] + let query = "form.foo input[name=_token][type=hidden][value]" + html = "
" + expected = "" + in it query $ findBySelector_ html (pack query) @?= [expected] describe "HTML parsing" $ do it "XHTML" $ let html = "foo

Hello World

"