more test

RinteRface · Mar 22, 2024 · 56b4c3d · 56b4c3d
1 parent e4b7542
commit 56b4c3d
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/testthat/test-f7Progress.R b/tests/testthat/test-f7Progress.R
@@ -15,6 +15,14 @@ test_that("progress works", {
   app$expect_values(input = "obs")
 })
 
+test_that("f7Progress works", {
+  progress <- f7Progress(id = "progress", 100, "green")
+  expect_s3_class(progress, "shiny.tag")
+  expect_identical(progress$attribs$class, "progressbar color-green")
+  expect_identical(progress$attribs$id, "progress")
+  expect_identical(progress$attribs$`data-progress`, 100)
+})
+
 test_that("updateF7Progress function work", {
   session <- as.environment(list(
     ns = identity,