tests/testthat/test_progress.R

In Appsilon/shiny.semantic: Semantic UI Support for Shiny

context("ui progress")

test_that("test progress", {
  # type
  expect_is(progress("progress_input", 10, 100), "shiny.tag")
  # empty input
  expect_error(progress())
  # value higher than total
  expect_error(progress("progress_input", 100, 10))
  # value and percent
  expect_error(progress("progress_input", 100, 10, 50))
  # value input
  si_str <- as.character(progress("progress_input", 10, 100))
  expect_true(grepl("data-value", si_str))
  expect_true(grepl("data-total", si_str))

  # percent input
  si_str <- as.character(progress("progress_input", percent = 50, progress_lab = TRUE))
  expect_true(grepl("data-percent", si_str))
  expect_true(grepl("<div class=\"progress\">", si_str))
})