test/TestSuite.hs

   1 import Test.HUnit
   2
   3 import Cidr (cidr_tests)
   4 import IPv4Address (ipv4address_tests)
   5 import Maskable (maskable_tests)
   6 import Octet (octet_tests)
   7
   8 test_suite = TestList (concat [cidr_tests,
   9                                ipv4address_tests,
  10                                maskable_tests,
  11                                octet_tests])
  12
  13 main :: IO Counts
  14 main = do
  15   runTestTT test_suite