tests/testthat/test-show_tdlcrkmatrix.R

test_that("Checking show_tdlcrkmatrix class", {
  result <- show_tdlcrkmatrix(tdldat)
  expect_is(result, 'ggplot')
})
test_that("Checking show_tdlcrkmatrix class argument", {
  expect_error(show_tdlcrkmatrix(tdldat, class = 'asdf'))
})
test_that("Checking show_tdlcrkmatrix score argument", {
  expect_error(show_tdlcrkmatrix(tdldat, score = 'asdf'))
})
tbep-tech/tbeptools documentation built on April 13, 2025, 4:50 p.m.