diff --git a/yesod-test/test/main.hs b/yesod-test/test/main.hs
index 9e3a62ff..bd3e2bc0 100644
--- a/yesod-test/test/main.hs
+++ b/yesod-test/test/main.hs
@@ -4,8 +4,10 @@ import Test.Hspec.Monadic
import Test.Hspec.HUnit ()
import Yesod.Test.CssQuery
+import Yesod.Test.TransversingCSS
parseQuery_ = either error id . parseQuery
+findBySelector_ x = either error id . findBySelector x
main :: IO ()
main = hspecX $ do
@@ -13,3 +15,12 @@ main = hspecX $ do
it "elements" $ parseQuery_ "strong" @?= [[DeepChildren [ByTagName "strong"]]]
it "child elements" $ parseQuery_ "strong > i" @?= [[DeepChildren [ByTagName "strong"], DirectChildren [ByTagName "i"]]]
it "comma" $ parseQuery_ "strong.bar, #foo" @?= [[DeepChildren [ByTagName "strong", ByClass "bar"]], [DeepChildren [ById "foo"]]]
+ describe "find by selector" $ do
+ it "XHTML" $
+ let html = "fooHello World
"
+ query = "body > p"
+ in findBySelector_ html query @?= ["Hello World
"]
+ it "HTML" $
+ let html = "foo
Hello World
"
+ query = "body > p"
+ in findBySelector_ html query @?= ["Hello World
"]
diff --git a/yesod-test/yesod-test.cabal b/yesod-test/yesod-test.cabal
index 5894713e..079e64cf 100644
--- a/yesod-test/yesod-test.cabal
+++ b/yesod-test/yesod-test.cabal
@@ -36,7 +36,7 @@ library
, text
exposed-modules: Yesod.Test
Yesod.Test.CssQuery
- other-modules: Yesod.Test.TransversingCSS
+ Yesod.Test.TransversingCSS
ghc-options: -Wall
test-suite test