tests/testthat/test-parcel_create.R

In ropenscilabs/ponyexpress: Automate sending email with 'Gmail'

context("parcel_create")

test_that("parcel_create behaves", {
  df <- data.frame(
    name = c("Lucy", "Karthik"),
    email = c("example@email.com", "example@email.com")
  )

  template <- "Dear {name},

   This is a friendly email from me.

   XO,
   Lucy"

  parcel <- parcel_create(df,
              sender_name = "Lucy",
              sender_email = "lucydagostino@gmail.com",
              subject = "Happy email!",
              template = template)
  expect_is(parcel, "data.frame")
  expect_identical(names(parcel), c("To","From","Subject","body"))
})