tests/testthat/test_print_debug.R

In ihmeuw/ihme.covid: Shared functions for IHME's covid-19 research

test_that("print_debug is convenient and clear", {
  foo <- 4
  bar <- 7
  msg <- "This is not a test"

  expect_message(print_debug(foo), "foo: 4")

  expect_message(print_debug(foo, bar, msg), "foo: 4")
  expect_message(print_debug(foo, bar, msg), "bar: 7")
  expect_message(print_debug(foo, bar, msg), "msg: This is not a test")
})

test_that("Typos, NA, and NULL values are handled", {
  nu <- NULL
  na <- NA

  expect_message(print_debug(na), "na: NA")
  expect_message(print_debug(nu), "nu: NULL")
  expect_message(print_debug(baz), "baz: ERROR - no baz defined")
})

test_that("vector values are sensible", {
  # use fixed = TRUE to do non-regex based comparisons
  num.vals <- c(1, 4, 19)
  expect_message(print_debug(num.vals), "num.vals: c(1, 4, 19)", fixed = TRUE)

  char.vals <- c("foo", "bar", "baz")
  expect_message(print_debug(char.vals), "char.vals: c('foo', 'bar', 'baz')", fixed = TRUE)
})

test_that("nested calls work", {
  container <- list(ids = c(1, 2, 4))
  expect_message(print_debug(container$ids), "container$ids: c(1, 2, 4)", fixed = TRUE)
})