-- v4sequence = v4seq_member | v4sequence ";" v4seq_member
-- v4seq_member = v4octet | v4octet ".." v4octet
--
-module IPv4Pattern
+module IPv4Pattern (
+ IPv4Pattern,
+ addresses,
+ ipv4pattern_tests,
+ v4pattern)
where
import Text.Parsec.String ( Parser )
import Text.Read ( readMaybe )
-import Pretty
+import Pretty ( Pretty(..) )
-- * Octets
-- * Tests
+ipv4pattern_tests :: TestTree
+ipv4pattern_tests =
+ testGroup "IPv4Pattern Tests" [ v4octet_tests ]
+
+
v4octet_tests :: TestTree
v4octet_tests =
testGroup