From 4b85a66d939c7ac376afef759d2814a9ac333f5d Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 30 Sep 2014 13:34:32 +0300 Subject: [PATCH] Simpler demonstration of descendent selector bug --- yesod-test/test/main.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/yesod-test/test/main.hs b/yesod-test/test/main.hs index 241d75f9..2519717f 100644 --- a/yesod-test/test/main.hs +++ b/yesod-test/test/main.hs @@ -44,6 +44,10 @@ main = hspec $ do html = "
" expected = "" in it query $ findBySelector_ html (pack query) @?= [expected] + it "descendents" $ + let html = "

hello

" + query = "p i" + in findBySelector_ html query @?= ["hello"] describe "HTML parsing" $ do it "XHTML" $ let html = "foo

Hello World

"