Fix test

2014-09-30 13:37:04 +03:00 · 2014-09-30 13:37:04 +03:00 · c8e2aaf2a8
commit c8e2aaf2a8
parent 4b85a66d93
1 changed files with 1 additions and 1 deletions
--- a/yesod-test/test/main.hs
+++ b/yesod-test/test/main.hs
@ -45,7 +45,7 @@ main = hspec $ do
            expected = "<input name=\"_token\" type=\"hidden\" value=\"bar\" />"
         in it query $ findBySelector_ html (pack query) @?= [expected]
        it "descendents" $
-            let html = "<p><b><i>hello</i></b></p>"
+            let html = "<html><p><b><i>hello</i></b></p></html>"
                query = "p i"
             in findBySelector_ html query @?= ["<i>hello</i>"]
    describe "HTML parsing" $ do