add test for toast

RinteRface · Mar 22, 2024 · f669c08 · f669c08
1 parent f324abf
commit f669c08
Show file tree

Hide file tree

Showing 3 changed files with 47 additions and 24 deletions.
diff --git a/R/f7Toast.R b/R/f7Toast.R
@@ -14,30 +14,9 @@
 #' @param ... Other options. See \url{https://framework7.io/docs/toast.html#toast-parameters}.
 #' @param session Shiny session.
 #'
-#' @export
+#' @example inst/examples/toast/app.R
 #'
-#' @examples
-#' if (interactive()) {
-#'  library(shiny)
-#'  library(shinyMobile)
-#'  shinyApp(
-#'   ui = f7Page(
-#'     title = "Toast",
-#'     f7SingleLayout(
-#'       navbar = f7Navbar(title = "f7Toast"),
-#'       f7Button(inputId = "toast", label = "Open Toast")
-#'     )
-#'   ),
-#'   server = function(input, output, session) {
-#'     observeEvent(input$toast, {
-#'       f7Toast(
-#'         position = "top",
-#'         text = "I am a toast. Eat me!"
-#'       )
-#'     })
-#'   }
-#'  )
-#' }
+#' @export
 f7Toast <- function(text, position = c("bottom", "top", "center"),
                     closeButton = TRUE, closeButtonText = "close",
                     closeButtonColor = "red", closeTimeout = 3000, icon = NULL,
@@ -59,7 +38,7 @@ f7Toast <- function(text, position = c("bottom", "top", "center"),
       ...
     )
   )
-  # see my-app.js function
+  # see components/init.js
   session$sendCustomMessage(
     type = "toast",
     message = jsonlite::toJSON(

diff --git a/inst/examples/toast/app.R b/inst/examples/toast/app.R
@@ -0,0 +1,23 @@
+library(shiny)
+library(shinyMobile)
+
+app <- shinyApp(
+  ui = f7Page(
+    title = "Toast",
+    f7SingleLayout(
+      navbar = f7Navbar(title = "f7Toast"),
+      f7Button(inputId = "toast", label = "Open Toast")
+    )
+  ),
+  server = function(input, output, session) {
+    observeEvent(input$toast, {
+      f7Toast(
+        position = "top",
+        text = "I am a toast. Eat me!"
+      )
+    })
+  }
+)
+
+if (interactive() || identical(Sys.getenv("TESTTHAT"), "true")) app
+
diff --git a/tests/testthat/test-f7Toast.R b/tests/testthat/test-f7Toast.R
@@ -0,0 +1,21 @@
+test_that("Toast works", {
+  session <- as.environment(list(
+    ns = identity,
+    sendCustomMessage = function(type, message) {
+      session$lastCustomMessage <- list(type = type, message = message)
+    }
+  ))
+
+  f7Toast(
+    position = "top",
+    text = "I am a toast. Eat me!",
+    session = session
+  )
+
+  res <- session$lastCustomMessage
+  res$message <- jsonlite::fromJSON(res$message)
+  expect_length(res, 2)
+  expect_equal(res$type, "toast")
+  expect_length(res$message, length(formals(f7Toast)) - 3)
+  expect_equal(res$message$closeTimeout, formals(f7Toast)$closeTimeout)
+})