24 lines
524 B
Haskell
24 lines
524 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import Control.Monad (mapM_)
|
||
|
|
import Test.QuickCheck
|
||
|
|
|
||
|
|
import Template
|
||
|
|
import Util
|
||
|
|
|
||
|
|
main = do
|
||
|
|
runTests "Template" $ do
|
||
|
|
quickCheck prop_template_encode_id
|
||
|
|
quickCheck prop_substitute_id
|
||
|
|
quickCheck prop_substitute_case1
|
||
|
|
|
||
|
|
runTests "Util" $ do
|
||
|
|
quickCheck prop_trim_length
|
||
|
|
quickCheck prop_trim_id
|
||
|
|
quickCheck prop_stripHTML_length
|
||
|
|
quickCheck prop_stripHTML_id
|
||
|
|
|
||
|
|
where
|
||
|
|
runTests name action = do putStrLn name
|
||
|
|
action
|