tests/testthat/test_makeProgressBar.R

In BBmisc: Miscellaneous Helper Functions for B. Bischl

context("makeProgressBar")

test_that("makeProgressBar", {
  cat("\n")
  bar = makeProgressBar()
  expect_class(bar, "ProgressBar")
  for(i in 0:100) {
    bar$set(i)
    Sys.sleep(0.01)
  }
  bar = makeProgressBar(min=10, max=50, label="foo")
  for(i in 11:50) {
    bar$set(i)
    Sys.sleep(0.01)
  }
  bar = makeProgressBar(min=0.1, max=0.2)
  for(i in seq(0.1, 0.2, length.out=5)) {
    bar$set(i)
    Sys.sleep(0.1)
  }
  bar$set(0.2)
  bar$set(0.2)
  bar = makeProgressBar(max=10^6, label="          ")
  for(i in 10^seq(1:6)) {
    bar$set(i, msg=sprintf("%i", i))
    Sys.sleep(0.1)
  }

  bar = makeProgressBar(min=0, max=0)
  bar$set(0)
  bar = makeProgressBar(min=0, max=0)
  bar$inc(0)
})

test_that("makeProgressBar global options", {
  old.style = getOption("BBmisc.ProgressBar.style")
  old.width = getOption("BBmisc.ProgressBar.width")
  options(BBmisc.ProgressBar.style = "off")
  cat("\n")
  bar = makeProgressBar(max=5)
  expect_class(bar, "ProgressBar")
  for(i in 0:5) {
     expect_silent(bar$set(i))
  }
  options(BBmisc.ProgressBar.style = "text", BBmisc.ProgressBar.width = 30)
  cat("\n")
  bar = makeProgressBar(max=5)
  for(i in 0:5) {
     expect_output(print(bar$set(i)))
  }
  options(BBmisc.ProgressBar.style = old.style, BBmisc.ProgressBar.width = old.width)
})