haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix test

Browse Source
This commit is contained in:
Michael Snoyman 2014-09-30 13:37:04 +03:00
parent 4b85a66d93
commit c8e2aaf2a8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-test/test/main.hs
View File

@ -45,7 +45,7 @@ main = hspec $ do
expected = "<input name=\"_token\" type=\"hidden\" value=\"bar\" />" expected = "<input name=\"_token\" type=\"hidden\" value=\"bar\" />"
in it query $ findBySelector_ html (pack query) @?= [expected] in it query $ findBySelector_ html (pack query) @?= [expected]
it "descendents" $ 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" query = "p i"
in findBySelector_ html query @?= ["<i>hello</i>"] in findBySelector_ html query @?= ["<i>hello</i>"]
describe "HTML parsing" $ do describe "HTML parsing" $ do