add a (test) spec for the entity conversion module -- it checks the behavior on named html entities and (decimal and hexadecimal) numeric html entities

This commit is contained in:
Alp Mestanogullari 2014-07-08 08:47:18 +02:00
parent cfbc080c24
commit 7fdf455908

View File

@ -0,0 +1,32 @@
{-# LANGUAGE OverloadedStrings #-}
module Text.Taggy.EntitiesSpec where
import Test.Hspec
import Text.Taggy.Entities
spec :: Spec
spec = do
describe "convertEntities" $ do
it "converts " to \"" $
convertEntities """
`shouldBe` "\""
it "converts å to å" $
convertEntities "å"
`shouldBe` "å"
it "converts å to å" $
convertEntities "å"
`shouldBe` "å"
it "leaves alone &quot" $
convertEntities "&quot"
`shouldBe` "&quot"
it "leaves alone &#xe5" $
convertEntities "&#xe5"
`shouldBe` "&#xe5"
it "leaves alone &#229" $
convertEntities "&#229"
`shouldBe` "&#229"