+test_min_host1 :: Test
+test_min_host1 =
+ TestCase $ assertEqual "The minimum host in 10.0.0.0/24 is 10.0.0.0" expected actual
+ where
+ actual = show $ min_host (cidr_from_string "10.0.0.0/24")
+ expected = "10.0.0.0"
+
+
+test_max_host1 :: Test
+test_max_host1 =
+ TestCase $ assertEqual "The maximum host in 10.0.0.0/24 is 10.0.0.255" expected actual
+ where
+ actual = show $ min_host (cidr_from_string "10.0.0.0/24")
+ expected = "10.0.0.255"
+
+