From 7b5e92490d48b6766b74fc81671092fa14a4c663 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Fri, 19 Jan 2024 19:32:43 +0100 Subject: [PATCH] Test modern domain parser --- test/Main.purs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/test/Main.purs b/test/Main.purs index 3888aa7..74fe5e8 100644 --- a/test/Main.purs +++ b/test/Main.purs @@ -3,6 +3,7 @@ module Test.Main where import GenericParser.Parser (Parser(..)) import GenericParser.DomainParser.Common (ldh_str, DomainError(..)) import GenericParser.DomainParserRFC1035 as RFC1035 +import GenericParser.DomainParser as ModernDomains import Prelude (Unit, discard, show, ($), (<>), map) import Data.Either (Either(..)) @@ -56,7 +57,8 @@ main = do "xblah.a5555.org", "xblah.a66666.org", "xblah.a777777.org", - "xblah.a8888888.org" + "xblah.a8888888.org", + "_dmarc.example.com" ] test_series "ldh_str" ldh_str fromCharArray showerror domains log "" @@ -67,3 +69,5 @@ main = do test_series "RFC1035.sub_eof" RFC1035.sub_eof id showerror domains log "" test_series "RFC1035.domain" RFC1035.domain id showerror domains + log "" + test_series "ModernDomains.domain" ModernDomains.domain id showerror domains