prepare,
sFetchAllRows')
import Database.HDBC.Sqlite3 ( connectSqlite3 )
-import System.Console.CmdArgs.Default ( Default(..) )
+import System.Console.CmdArgs.Default ( Default( def ) )
import Test.Tasty ( TestTree, testGroup )
import Test.Tasty.HUnit ( (@?=), testCase )
-import Configuration ( Configuration(..) )
+import Configuration ( Configuration( domain_query,
+ exclude_mx,
+ forward_query) )
import DNS (
MxSetMap,
NormalDomain,
mx_set_map,
normalize_string )
import 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"