feat: Add mailtrap server

DESCRIPTION

@@ -79,5 +79,5 @@ SystemRequirements: The function render() requires Pandoc (http://pandoc.org).
   To use PGP/GnuPG encryption requires gpg.
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 KeepSource: true

NAMESPACE

@@ -36,6 +36,7 @@ export(local)
 export(mailersend)
 export(mailfence)
 export(mailgun)
+export(mailtrap)
 export(normalise)
 export(parties)
 export(priority)

R/server.R

@@ -443,3 +443,33 @@ smtpbucket <- function(...) {
 
   eval(fcall, parent.frame())
 }
+
+#' @rdname server
+#'
+#' @section SMTP Bucket:
+#'
+#' SMTP Bucket is a fake SMTP server that captures all the messages it receives
+#' and makes them available through a website or REST API.
+#'
+#' @export
+#'
+#' @examples
+#'
+#' # SMTP Bucket server.
+#' smtp <- smtpbucket()
+mailtrap <- function(sandbox = FALSE, bulk = FALSE, ...) {
+  fcall <- match.call(expand.dots = TRUE)
+
+  fcall[[1]] <- server
+  fcall$port <- 587
+
+  if (sandbox) {
+    fcall$host <- "sandbox.smtp.mailtrap.io"
+  } else if (bulk) {
+    fcall$host <- "bulk.smtp.mailtrap.io"
+  } else {
+    fcall$host <- "live.smtp.mailtrap.io"
+  }
+
+  eval(fcall, parent.frame())
+}

tests/testthat/setup.R

@@ -85,6 +85,8 @@ SMTP_USERNAME_SENDINBLUE <- Sys.getenv("SENDINBLUE_SMTP_USERNAME")
 SMTP_PASSWORD_SENDINBLUE <- Sys.getenv("SENDINBLUE_SMTP_PASSWORD")
 SMTP_USERNAME_MAILERSEND <- Sys.getenv("MAILERSEND_SMTP_USERNAME")
 SMTP_PASSWORD_MAILERSEND <- Sys.getenv("MAILERSEND_SMTP_PASSWORD")
+SMTP_USERNAME_MAILTRAP <- Sys.getenv("MAILTRAP_SMTP_USERNAME")
+SMTP_PASSWORD_MAILTRAP <- Sys.getenv("MAILTRAP_SMTP_PASSWORD")
 
 EMAIL_FROM <- ifelse(is.na(SMTP_USERNAME_GMAIL), "alice@gmail.com", SMTP_USERNAME_GMAIL)
 EMAIL_TO <- ifelse(is.na(SMTP_USERNAME_GMAIL), "bob@yahoo.com", SMTP_USERNAME_GMAIL)
@@ -135,6 +137,12 @@ smtp_mailersend <- mailersend(
 
 smtp_smtpbucket <- smtpbucket()
 
+smtp_mailtrap <- mailtrap(
+  sandbox = TRUE,
+  username = SMTP_USERNAME_MAILTRAP,
+  password = SMTP_PASSWORD_MAILTRAP
+)
+
 # TEMPLATE ---------------------------------------------------------------------
 
 TEMPLATE_HTML_CONTENT <- "<p>Hello {{ name }}!</p>"