more tests for panel

R/f7Panel.R

@@ -101,7 +101,7 @@ f7PanelMenu <- function(..., id = NULL) {
   }
 
   shiny::tags$div(
-    class = "list links-list",
+    class = "list links-list list-dividers",
     shiny::tags$ul(
       class = "panel-menu ",
       ...,

tests/testthat/_snaps/mac-4.3/f7Dialog/dialog-app-005.json

@@ -1,6 +1,6 @@
 {
   "input": {
     "comfirm_dialog": true,
-    "prompt_dialog": ""
+    "prompt_dialog": "test"
   }
 }

tests/testthat/_snaps/mac-4.3/f7Dialog/dialog-app-006.json

@@ -5,6 +5,6 @@
       "user": "",
       "password": "test"
     },
-    "prompt_dialog": ""
+    "prompt_dialog": "test"
   }
 }

tests/testthat/test-f7Panel.R

@@ -15,3 +15,40 @@ test_that("panel works", {
   app$wait_for_idle(1000)
   app$expect_values(input = inputs)
 })
+
+test_that("panel tag works", {
+  id <- "test"
+  panel <- f7Panel(id = id)
+  expect_s3_class(panel, "shiny.tag")
+
+  # structure
+  expect_identical(panel$attribs$class, "panel panel-left panel-reveal")
+  expect_length(panel$children, 2)
+  expect_identical(panel$children[[1]]$attribs$`data-for`, id)
+  expect_identical(panel$children[[2]]$attribs$class, "page")
+
+  # Config
+  config <- jsonlite::fromJSON(panel$children[[1]]$children[[1]])
+  expect_length(config, 1)
+  expect_identical(config[["effect"]], "reveal")
+})
+
+test_that("panel menu works", {
+  panel_menu <- f7PanelMenu(id = "menu")
+  expect_s3_class(panel_menu, "shiny.tag")
+
+  # structure
+  expect_identical(panel_menu$attribs$class, "list links-list list-dividers")
+  expect_identical(panel_menu$children[[1]]$attribs$id, "menu")
+})
+
+test_that("panel item works", {
+  panel_item <- f7PanelItem("Title", "tab1", active = TRUE)
+  expect_s3_class(panel_item, "shiny.tag")
+  expect_identical(panel_item$name, "li")
+  expect_identical(panel_item$children[[1]]$attribs$`data-tab`, "#tab1")
+  expect_identical(
+    panel_item$children[[1]]$attribs$class,
+    "tab-link tab-link-active"
+  )
+})