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

Demonstrate bug in CSS parsing

Browse Source 
Pinging @erikd. I think this problem was introduced in the new parser.
This commit is contained in:
Michael Snoyman 2014-09-30 13:31:24 +03:00
parent a39962b72d
commit 9a9cab4365
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,7 +11,7 @@ import Yesod.Test
import Yesod.Test.CssQuery import Yesod.Test.CssQuery
import Yesod.Test.TransversingCSS import Yesod.Test.TransversingCSS
import Text.XML import Text.XML
import Data.Text (Text) import Data.Text (Text, pack)
import Data.Monoid ((<>)) import Data.Monoid ((<>))
import Control.Applicative import Control.Applicative
import Network.Wai (pathInfo) import Network.Wai (pathInfo)
@ -40,6 +40,10 @@ main = hspec $ do
let html = "<html><head><title>foo</title></head><body><br><p>Hello World</p></body></html>" let html = "<html><head><title>foo</title></head><body><br><p>Hello World</p></body></html>"
query = "body > p" query = "body > p"
in findBySelector_ html query @?= ["<p>Hello World</p>"] in findBySelector_ html query @?= ["<p>Hello World</p>"]
let query = "form.foo input[name=_token][type=hidden][value]"
html = "<input name='_token' type='hidden' value='foo'><form class='foo'><input name='_token' type='hidden' value='bar'></form>"
expected = "<input name=\"_token\" type=\"hidden\" value=\"bar\" />"
in it query $ findBySelector_ html (pack query) @?= [expected]
describe "HTML parsing" $ do describe "HTML parsing" $ do
it "XHTML" $ it "XHTML" $
let html = "<html><head><title>foo</title></head><body><p>Hello World</p></body></html>" let html = "<html><head><title>foo</title></head><body><p>Hello World</p></body></html>"