File: Main.hs

package info (click to toggle)
haskell-encoding 0.10.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,392 kB
  • sloc: haskell: 4,372; ansic: 11; makefile: 4
file content (18 lines) | stat: -rw-r--r-- 418 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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