tests/testthat/test-subject.R

In datawookie/emayili: Send Email Messages

test_that("subject: set/get", {
  msg <- envelope() %>% subject("Test message")
  expect_equal(subject(msg), encodable("Test message"))
})

test_that("interpolate", {
  name <- "Alice"
  variables <- list(name = name)

  expect_equal(
    envelope() %>%
      subject("Hello {{name}}!") %>%
      subject(),
    encodable("Hello Alice!")
  )
  expect_equal(
    envelope() %>%
      subject("Hello {{name}}!", .envir = variables) %>%
      subject(),
    encodable("Hello Alice!")
  )
})

test_that("subject: prefix", {
  msg <- envelope() %>% subject("Your message", prefix = "Re:")
  expect_equal(subject(msg), encodable("Re: Your message"))
})

test_that("subject: suffix", {
  msg <- envelope() %>% subject("Message has no body", suffix = "EOM")
  expect_equal(subject(msg), encodable("Message has no body EOM"))
})