Network.Mail.Assumpta.Mock

Provides MockSmtp, a mock instance of MonadSmtp, which simply records (via use of a Writer) any bytes sent through it. (Making it technically a "spy", I think -- see https://martinfowler.com/articles/mocksArentStubs.html.)

Plus a transformer version, MockSmtpT.

Sample use:

>>> runMockSmtp (noop >> quit)
"NOOP\r\nQUIT\r\n"

For a slightly longer example, see "simple-client-session-mock-bs.hs" in the "examples" directory.

Documentation

newtype MockSmtpT m a

Concrete transformer for mock MonadSmtp monads.

Constructors

MockSmtpT

Fields

• runMockSmtpT :: WriterT ByteString m a

Instances

MonadTrans MockSmtpT

Defined in Network.Mail.Assumpta.Mock

Methods

lift :: Monad m => m a -> MockSmtpT m a

Monad m => MonadWriter ByteString (MockSmtpT m)

Defined in Network.Mail.Assumpta.Mock

Methods

writer :: (a, ByteString) -> MockSmtpT m a

tell :: ByteString -> MockSmtpT m ()

listen :: MockSmtpT m a -> MockSmtpT m (a, ByteString)

pass :: MockSmtpT m (a, ByteString -> ByteString) -> MockSmtpT m a

Monad m => Monad (MockSmtpT m)

Defined in Network.Mail.Assumpta.Mock

Methods

(>>=) :: MockSmtpT m a -> (a -> MockSmtpT m b) -> MockSmtpT m b

(>>) :: MockSmtpT m a -> MockSmtpT m b -> MockSmtpT m b

return :: a -> MockSmtpT m a

fail :: String -> MockSmtpT m a

Functor m => Functor (MockSmtpT m)

Defined in Network.Mail.Assumpta.Mock

Methods

fmap :: (a -> b) -> MockSmtpT m a -> MockSmtpT m b

(<$) :: a -> MockSmtpT m b -> MockSmtpT m a

MonadFix m => MonadFix (MockSmtpT m)

Defined in Network.Mail.Assumpta.Mock

Methods

mfix :: (a -> MockSmtpT m a) -> MockSmtpT m a

Applicative m => Applicative (MockSmtpT m)

Defined in Network.Mail.Assumpta.Mock

Methods

pure :: a -> MockSmtpT m a

(<*>) :: MockSmtpT m (a -> b) -> MockSmtpT m a -> MockSmtpT m b

liftA2 :: (a -> b -> c) -> MockSmtpT m a -> MockSmtpT m b -> MockSmtpT m c

(*>) :: MockSmtpT m a -> MockSmtpT m b -> MockSmtpT m b

(<*) :: MockSmtpT m a -> MockSmtpT m b -> MockSmtpT m a

MonadIO m => MonadIO (MockSmtpT m)

Defined in Network.Mail.Assumpta.Mock

Methods

liftIO :: IO a -> MockSmtpT m a

Monad m => MonadSmtp (MockSmtpT m)

In this mock monad, send writes to the underlying Writer; expectCode and tlsUpgrade are no-ops; and getReply returns an empty list. (In breach of the req. that a reply always contains at least one line.)

Defined in Network.Mail.Assumpta.Mock

Methods

send :: ByteString -> MockSmtpT m ()

getReply :: MockSmtpT m Reply

expectCode :: ReplyCode -> MockSmtpT m ()

tlsUpgrade :: MockSmtpT m ()

liftMockSmtpT :: Monad m => m a -> MockSmtpT m a

Lift into MockSmtpT.

type MockSmtp = MockSmtpT Identity

MockSmtp specialized to Identity

runMockSmtp :: MockSmtp a -> ByteString

Run an MonadSmtp computation using a mock, and return the ByteString content written.