blaze-html-0.4.3.3: tests/Util/Tests.hs

module Util.Tests
    ( tests
    ) where

import Test.Framework
import Test.Framework.Providers.HUnit
import Test.HUnit hiding (Test)

import Util.Sanitize (sanitize)

tests :: [Test]
tests = [ testCase "sanitize case 1" sanitize1
        , testCase "sanitize case 2" sanitize2
        ]

-- | Simple sanitize test case
--
sanitize1 :: Assertion
sanitize1 = "class_" @=? sanitize "CLASS"

-- | Simple sanitize test case
--
sanitize2 :: Assertion
sanitize2 = "httpEquiv" @=? sanitize "http-equiv"