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) })
Generated by dwww version 1.15 on Sat Jun 15 20:23:25 CEST 2024.