assumpta-core-0.1.0.2: examples/simple-client-session-mock-bs.hs

{-# LANGUAGE OverloadedStrings #-}

-- Program that runs a short mock SMTP session.
-- and shows the bytestring that would be sent
-- to a server.

module Main where


import           Data.Monoid
import qualified Data.ByteString.Char8 as BS
import qualified Data.Text as T
import qualified Data.Text.Encoding as TE

import           Network.Mail.Assumpta.MonadSmtp
import qualified Network.Mail.Assumpta.Mock as Mock

sampleMesg :: BS.ByteString
sampleMesg = BS.intercalate crlf [
    "Date: Tue, 21 Jan 2020 02:28:37 +0800"
  , "To: neddie.seagoon@gmail.com"
  , "From: jim.moriarty@gmail.com"
  , "Subject: test Tue, 21 Jan 2020 02:28:37 +0800"
  , ""
  , "Sapristi nyuckoes!"
  ]

-- The sender and recipient supplied to the
-- SMTP server are what is used to route the
-- message; any 'To:' and 'From:' fields
-- in the message are completely ignored for this
-- purpose.
sender, recipient :: BS.ByteString
sender = "somesender@mycorp.com"
recipient = "somerecipient@mozilla.org"

main :: IO ()
main = do
  let toBinary = TE.encodeUtf8 . T.pack 
      port = 2025
  let res = Mock.runMockSmtp (do
          expectGreeting
          ehlo "my-local-host.my-domain"
          -- Properly, we should escape periods at the start of a
          -- line. But we know there aren't any
          sendRawMail sender [recipient] sampleMesg
          quit)
  BS.putStrLn "Bytestring sent was:"
  BS.putStrLn "====="
  BS.putStrLn res
  BS.putStrLn "====="