tests/testthat/test-function-catChangesIf.R

#library(testthat)
#library(kwb.utils)

test_that("catChangesIf() works", {

  f <- catChangesIf

  expect_error(f())
  expect_output(f(TRUE, 1:2, 2:3))
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.