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