tests/testthat/test-progress.R

In pROC: Display and Analyze ROC Curves

library(pROC)
data(aSAH)


test_that("can get bar works", {
	my_progress <- pROC:::roc_utils_get_progress_bar("text")
	expect_equal(names(my_progress), c("init", "step", "term"))
})

test_that("progress = text works", {
	expect_output(var(r.wfns, method="bootstrap", boot.n=2, progress="text"))
})

test_that("progress = none works", {
	expect_silent(var(r.wfns, method="bootstrap", boot.n=2, progress="none"))
})