789bc64b4c
Ignore-this: 9fcdf4cbef8c48ab63cf8852f7c34609 darcs-hash:20121128033250-76d51-fec2cd876579663f85d3b23a9bcf2dc6a469ce94
19 lines
379 B
Haskell
19 lines
379 B
Haskell
import Control.Monad
|
|
import Test.HUnit
|
|
import Test.Tests
|
|
|
|
hunitTests =
|
|
[ ("utf8Tests", utf8Tests)
|
|
, ("utf16Tests", utf16Tests)
|
|
, ("punycodeTests", punycodeTests)
|
|
, ("isoTests", isoTests)
|
|
, ("jisTests", jisTests)
|
|
, ("gb18030Tests", gb18030Tests)
|
|
]
|
|
|
|
main = do
|
|
identityTests
|
|
forM_ hunitTests $ \(name, test) -> do
|
|
putStrLn $ "running " ++ name
|
|
runTestTT test >>= print
|