mx_set_map,
normalize_string )
import Forward (
- Forward( Forward ),
+ Forward(),
address_domain,
dropby_goto_domains,
fwd,
pretty_print,
strings_to_forwards )
-import MxList ( MxList(..) )
+import MxList ( MxList( get_mxs ) )
-- | Type synonym to make the signatures below a little more clear.
-- WARNING: Also defined in the "Forward" module.
let droplist = ["mx.EXAMple.com", "mx2.example.COM"]
let normal_droplist = map normalize_string droplist
let actual = dropby_mxlist normal_droplist mx_map fwds
- let expected = []
+ let expected = [] :: [Forward]
actual @?= expected
where
desc = "dropby_mxlist only performs comparisons on normalized names"