From 56b4c3da68916b86318463097f4be48d4d484f01 Mon Sep 17 00:00:00 2001
From: DivadNojnarg <dgranjon@ymail.com>
Date: Fri, 22 Mar 2024 20:26:48 +0100
Subject: [PATCH] more test

---
 tests/testthat/test-f7Progress.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/testthat/test-f7Progress.R b/tests/testthat/test-f7Progress.R
index abdac0c1..4b672462 100644
--- 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,