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