mirror of
https://github.com/alpmestan/taggy.git
synced 2024-10-05 19:37:44 +03:00
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:
parent
cfbc080c24
commit
7fdf455908
32
tests/Text/Taggy/EntitiesSpec.hs
Normal file
32
tests/Text/Taggy/EntitiesSpec.hs
Normal 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 "" $
|
||||
convertEntities """
|
||||
`shouldBe` """
|
||||
|
||||
it "leaves alone å" $
|
||||
convertEntities "å"
|
||||
`shouldBe` "å"
|
||||
|
||||
it "leaves alone å" $
|
||||
convertEntities "å"
|
||||
`shouldBe` "å"
|
Loading…
Reference in New Issue
Block a user