tests/testthat/test-print-methods.R

In GegznaV/multiROC: Tools for ROC Analyis

context("print-methods")

test_that("print methos do not throw error", {
  set.seed(1)
  x_ <- rnorm(10)
  gr_ <- gl(n = 2, k = 5, length = 10)

  # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  res_list_1 <- roc_analysis(x_, gr_)
  out_1 <- capture_output(print(res_list_1))
  expect_is(out_1, "character")
  # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  data(fluorescence)
  res_list_2 <- roc_manyroc(fluorescence[, , 500 ~ 502], fluorescence$gr)
  out_2 <- capture_output(print(res_list_2))
  expect_is(out_2, "character")
  # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
})