tests/testthat/test-helpers.R

test_that("cn function works properly",{
  x <- "test"
  y <- ""
  expect_equal(cn(x,y),"")
  x <- "test"
  y <- "it"
  expect_equal(cn(x,y),"testit")
})
ModelOriented/xai2shiny documentation built on Jan. 30, 2021, 3:02 a.m.