1 {-# LANGUAGE NoMonomorphismRestriction #-}
3 import Test.QuickCheck (Args(..), quickCheckWith, stdArgs)
5 import Cidr (cidr_tests,
6 prop_all_cidrs_contain_themselves,
7 prop_contains_proper_intransitive)
9 import IPv4Address (ipv4address_tests)
10 import Octet (octet_tests)
12 -- The list of HUnit tests.
13 test_suite = TestList (concat [cidr_tests,
27 qc prop_all_cidrs_contain_themselves
28 qc prop_contains_proper_intransitive
31 args = stdArgs { maxDiscard = 5000 }
32 qc = quickCheckWith args