context("deparse")
test_that("deparse", {
f = function(num, na.ok) {
assertNumber(num)
qassert(na.ok, "B1")
}
expect_true(f(1, TRUE))
expect_error(f(NULL, TRUE), "num")
expect_error(f(1, NULL), "na.ok")
})
Generated by dwww version 1.15 on Sat May 18 15:28:29 CEST 2024.