tests/testthat/test_mail.R

In certe-medical-epidemiology/certemail: A Certe R Package for Automated Mailing

# ===================================================================== #
#  An R package by Certe:                                               #
#  https://github.com/certe-medical-epidemiology                        #
#                                                                       #
#  Licensed as GPL-v2.0.                                                #
#                                                                       #
#  Developed at non-profit organisation Certe Medical Diagnostics &     #
#  Advice, department of Medical Epidemiology.                          #
#                                                                       #
#  This R package is free software; you can freely use and distribute   #
#  it for both personal and commercial purposes under the terms of the  #
#  GNU General Public License version 2.0 (GNU GPL-2), as published by  #
#  the Free Software Foundation.                                        #
#                                                                       #
#  We created this package for both routine data analysis and academic  #
#  research and it was publicly released in the hope that it will be    #
#  useful, but it comes WITHOUT ANY WARRANTY OR LIABILITY.              #
# ===================================================================== #

my_secrets_file <- tempfile(fileext = ".yaml")
Sys.setenv(secrets_file = my_secrets_file)
writeLines(c("mail.auto_cc: ''",
             "mail.auto_bcc: ''",
             "mail.export_path: ''"),
           my_secrets_file)

test_that("mail works", {
  expect_message(mail("test body", "test subject", to = "to@domain.com",
                      cc = NULL, bcc = NULL, reply_to = NULL,
                      account = NULL))
   m <- mail(mtcars[1:5, ], "test subject", to = "to@domain.com",
             cc = NULL, bcc = NULL, reply_to = NULL,
             account = NULL, send = FALSE)
  expect_s3_class(m, "certe_mail")
  expect_s3_class(m, "blastula_message")
  expect_output(print(m))

  m2 <- mail(mail_image(image_path = system.file("test.jpg", package = "certemail")),
             "test subject", to = "to@domain.com",
             cc = NULL, bcc = NULL, reply_to = NULL,
             account = NULL, send = FALSE, markdown = FALSE)
  expect_s3_class(m2, "certe_mail")

  expect_true(mail_on_error(1 + 1 == 2, account = NULL))
  expect_message(suppressWarnings(mail_on_error(1 + 1 == nonexistingobject, account = NULL)))
})

test_that("download works", {
  expect_message(download_mail_attachment(account = NULL))
})

test_that("properties work", {
  expect_identical(get_name(account = NULL), NA_character_)
  expect_identical(get_job_title(account = NULL), NA_character_)
  expect_identical(get_department(account = NULL), NA_character_)
  expect_identical(get_address(account = NULL), NA_character_)
  expect_identical(get_phone_numbers(account = NULL), NA_character_)
  expect_identical(get_mail_address(account = NULL), NA_character_)
  expect_identical(get_inbox_name(account = NULL), NA_character_)
  expect_identical(get_drafts_name(account = NULL), NA_character_)
  expect_identical(get_certe_name(NULL, account = NULL), NA_character_)
  expect_identical(get_certe_name_and_job_title(NULL, account = NULL), NA_character_)
  expect_identical(get_certe_signature(account = NULL), NULL)

  # fake Microsoft365R object
  fake_account <- structure(list(
    properties = list(displayName = "test1",
                      jobTitle = "test2",
                      department = "test3",
                      streetAddress = "test4",
                      postalCode = NULL,
                      city = "test6",
                      mobilePhone = "test7",
                      businessPhones = list(phone1 = "test8", phone2 = "test9"),
                      mail = "test10"),
    get_inbox = function() list(properties = list(displayName = "test11")),
    get_drafts = function() list(properties = list(displayName = "test12")),
    create_email = function() NULL),
    class = c("ms_outlook", "ms_object", "list"))

  expect_true(is_valid_o365(fake_account))

  expect_identical(get_name(account = fake_account), "test1")
  expect_identical(get_job_title(account = fake_account), "test2")
  expect_identical(get_department(account = fake_account), "test3")
  expect_identical(get_address(account = fake_account), "test4 test6")
  expect_identical(get_phone_numbers(account = fake_account), c("test7", "test8", "test9"))
  expect_identical(get_mail_address(account = fake_account), "test10")
  expect_identical(get_inbox_name(account = fake_account), "test11")
  expect_identical(get_drafts_name(account = fake_account), "test12")
  expect_identical(get_certe_name(NULL, account = fake_account), "test1")
  expect_identical(get_certe_name_and_job_title(NULL, account = fake_account), "test1 | test2")
  expect_s3_class(get_certe_signature(account = fake_account), "certe_signature")
})

test_that("utils work", {
  expect_error(validate_mail_address("nothing"))
  expect_error(validate_mail_address("nothing@test"))
  expect_error(validate_mail_address("test.com"))
  expect_identical(validate_mail_address("a@test.com"), "a@test.com")
  expect_null(validate_mail_address(NULL))
  expect_null(validate_mail_address(""))

  expect_false(is_valid_o365(NULL))
  expect_false(is_valid_o365("test"))
})