test-utils.R
In err: Customizable Object Sensitive Messages

context("utils")

test_that("err", {
  expect_error(err(), "^$")
  expect_error(err(1,2), "^12$")
  expect_error(err(NULL), "character[(]0[)]")
})

test_that("wrn", {
  expect_warning(wrn(), "^$")
  expect_warning(wrn(1,2), "^12$")
})

test_that("msg", {
  expect_message(msg(), "^\n$")
  expect_message(msg(1,2), "^12\n$")
})

test_that("p", {
  expect_identical(p(character(0)), character(0))
  expect_identical(p("e"), "e")
  expect_identical(p("e", "1"), "e 1")
  expect_identical(p(c("e", "f"), "1"), c("e 1", "f 1"))
  expect_identical(p("e", "1", sep = "--"), "e--1")
  expect_identical(p("e", "1", sep = "--", collapse = "__"), "e--1")
  expect_identical(p(c("e", "f"), "1", sep = "--", collapse = "__"), "e--1__f--1")
})

test_that("p0", {
  expect_identical(p0(character(0)), character(0))
  expect_identical(p0("e"), "e")
  expect_identical(p0("e", "1"), "e1")
  expect_identical(p0(c("e", "f"), "1"), c("e1", "f1"))
  expect_identical(p0(c("e", "f"), "1", collapse = "__"), "e1__f1")
})