@@ -55,14 +55,14 @@ testOnlineMessagesSend k = do
5555--
5656-- Inbound calls
5757--
58−
58+testOnlineDomainAdd :: MandrillKey -> Assertion
5959testOnlineDomainAdd k = do
6060 res <- API.addDomain k "foobar.com" Nothing
6161 case res of
6262 MandrillSuccess a -> print a
6363 MandrillFailure e -> fail $ "inbound/add-domain.json " ++ show e
6464
65−
65+testOnlineRouteAdd :: MandrillKey -> Assertion
6666testOnlineRouteAdd k = do
6767 res <- API.addRoute k "foobar.com" "mail-*" "http://requestb.in/19a4frw1" Nothing
6868 case res of