tests/testthat/test-function-defaultIf_is_null.R

test_that("defaultIf(is.null, x, default) returns default for x = NULL", {
  expect_equal(defaultIf(is.null, NULL, 10), 10)
  expect_equal(defaultIf(is.null, NULL, "abc"), "abc")
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.