tests/testthat/test-makeMessage.R

test_that("Function return one element atomic char vector", {
  story <- "Whole story so far."
  event <- "New part of story."
  expect_equal(length(makeMessage(story, event)), 1)
  expect_true(is.atomic(makeMessage(story, event)))
  expect_true(is.character(makeMessage(story, event, newPara = TRUE)))
})
Rapporteket/raptools documentation built on May 1, 2022, 6:42 a.m.