diff --git a/yesod-test/test/main.hs b/yesod-test/test/main.hs
index f29d9217..2bd6067d 100644
--- a/yesod-test/test/main.hs
+++ b/yesod-test/test/main.hs
@@ -44,6 +44,14 @@ main = hspec $ do
html = ""
expected = ""
in it query $ findBySelector_ html (pack query) @?= [expected]
+ it "descendents and children" $
+ let html = "
hello
"
+ query = "p > b u"
+ in findBySelector_ html query @?= ["hello"]
+ it "hyphenated classes" $
+ let html = "
hello
"
+ query = "p.foo-bar u"
+ in findBySelector_ html query @?= ["hello"]
it "descendents" $
let html = "