utf8-string-1.0.2/tests/Tests.hs

2 import Test.HUnit (Test (TestCase, TestList, TestLabel), assertEqual, errors, failures, runTestTT)
11 tests = TestList [test_1, test_2, test_3, test_4, test_5, test_6]
20   TestList [test_2_1, test_2_2, test_2_3]
24   TestList $ map TestCase $
35   TestList $ map TestCase $
46   TestList $ map TestCase $
56   TestList [test_3_1, test_3_2, test_3_3, test_3_4, test_3_5]
60   TestList $ map TestCase $
78   TestList $ map TestCase $
92   TestList $ map TestCase $
115   TestList $ map TestCase $
124   TestList [test_4_1, test_4_2, test_4_3]
127 test_4_1 = TestLabel "4.1" $ TestList $ map TestCase $
137   TestList $ map TestCase $
147   TestList $ map TestCase $
157   TestList [test_5_1, test_5_2, test_5_3]
161   TestList $ map TestCase $
173   TestList $ map TestCase $
187   TestList $ map TestCase $
194   TestList $ map TestCase $