+
+
+
+
+
+-- HUnit Tests
+
+test_contains =
+ TestCase $ assertEqual "10.1.1.0/23 contains 10.1.1.0/24" (cidr1 `contains` cidr2) True
+ where
+ cidr1 = cidr_from_string "10.1.1.0/23"
+ cidr2 = cidr_from_string "10.1.1.0/24"
+
+
+cidr_tests = [ test_contains ]