fix tests 2 ...

RinteRface · May 6, 2024 · 6975d03 · 6975d03
1 parent 937c548
commit 6975d03
Show file tree

Hide file tree

Showing 37 changed files with 83 additions and 1 deletion.
diff --git a/tests/testthat/_snaps/deprecated.md b/tests/testthat/_snaps/deprecated.md
@@ -71,6 +71,19 @@
     Output
       <div class="menu-dropdown-divider"></div>
 
+---
+
+    Code
+      session <- as.environment(list(ns = identity, sendInputMessage = function(
+        inputId, message) {
+        session$lastInputMessage <- list(inputId = inputId, message = message)
+      }))
+      updateF7MenuDropdown("id", session)
+    Condition
+      Warning:
+      `updateF7MenuDropdown()` was deprecated in shinyMobile 2.0.0.
+      i updateF7MenuDropdown has been removed from Framework7 and there is no replacement in shinyMobile.
+
 ---
 
     Code

diff --git a/tests/testthat/test-deprecated.R b/tests/testthat/test-deprecated.R
@@ -5,7 +5,7 @@ test_that("deprecated messages work", {
   expect_snapshot(f7MenuDropdown(label = "label"))
   expect_snapshot(f7MenuDropdownDivider())
 
-  expect_error({
+  expect_snapshot({
     session <- as.environment(list(
       ns = identity,
       sendInputMessage = function(inputId, message) {

diff --git a/tests/testthat/test-f7ActionSheet.R b/tests/testthat/test-f7ActionSheet.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("send custom message", {
   session <- as.environment(list(
     ns = identity,

diff --git a/tests/testthat/test-f7AutoComplete.R b/tests/testthat/test-f7AutoComplete.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("autocomplete works", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()

diff --git a/tests/testthat/test-f7Button.R b/tests/testthat/test-f7Button.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("button works as expected", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()

diff --git a/tests/testthat/test-f7Card.R b/tests/testthat/test-f7Card.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("card works", {
   expect_s3_class(f7Card(), "shiny.tag")
   expect_identical(f7Card()$attribs$class, "card")

diff --git a/tests/testthat/test-f7Checkbox.R b/tests/testthat/test-f7Checkbox.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("checkbox tag", {
   checkbox <- f7Checkbox("check", "Checkbox")
   expect_s3_class(checkbox, "shiny.tag.list")

diff --git a/tests/testthat/test-f7ColorPicker.R b/tests/testthat/test-f7ColorPicker.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("color picker works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7DatePicker.R b/tests/testthat/test-f7DatePicker.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("date picker works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Fabs.R b/tests/testthat/test-f7Fabs.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("fabs works as expected", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()

diff --git a/tests/testthat/test-f7Form.R b/tests/testthat/test-f7Form.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("form works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Gauge.R b/tests/testthat/test-f7Gauge.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("gauge tags works", {
   gauge <- f7Gauge(id = "test", value = 10)
   expect_s3_class(gauge, "shiny.tag")

diff --git a/tests/testthat/test-f7Login.R b/tests/testthat/test-f7Login.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("login works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Message.R b/tests/testthat/test-f7Message.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("messages work as expected", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()

diff --git a/tests/testthat/test-f7Navbar.R b/tests/testthat/test-f7Navbar.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("navbar works", {
   expect_s3_class(f7Navbar(), "shiny.tag")
   expect_identical(f7Navbar()$attribs$class, "navbar")

diff --git a/tests/testthat/test-f7Panel.R b/tests/testthat/test-f7Panel.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("panel works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7PhotoBrowser.R b/tests/testthat/test-f7PhotoBrowser.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("photobrowser works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Picker.R b/tests/testthat/test-f7Picker.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("picker works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Popover.R b/tests/testthat/test-f7Popover.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("popover works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Popup.R b/tests/testthat/test-f7Popup.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("popup works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Progress.R b/tests/testthat/test-f7Progress.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("progress works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Radio.R b/tests/testthat/test-f7Radio.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("radio works as expected", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()

diff --git a/tests/testthat/test-f7Searchbar.R b/tests/testthat/test-f7Searchbar.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("searchbar tag works", {
   searchbar <- f7Searchbar(
     id = "test",

diff --git a/tests/testthat/test-f7Select.R b/tests/testthat/test-f7Select.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("select works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Sheet.R b/tests/testthat/test-f7Sheet.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("sheet works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Slider.R b/tests/testthat/test-f7Slider.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("slider works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7SmartSelect.R b/tests/testthat/test-f7SmartSelect.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("smartselect works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7SplitLayout.R b/tests/testthat/test-f7SplitLayout.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("Split layout works as expected", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()

diff --git a/tests/testthat/test-f7Stepper.R b/tests/testthat/test-f7Stepper.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("stepper works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Swiper.R b/tests/testthat/test-f7Swiper.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("swiper slide works", {
   slide <- f7Slide()
   expect_s3_class(slide, "shiny.tag")

diff --git a/tests/testthat/test-f7Table.R b/tests/testthat/test-f7Table.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("table works", {
   expect_true(inherits(f7Table(mtcars), "shiny.tag"))
 

diff --git a/tests/testthat/test-f7Tabs.R b/tests/testthat/test-f7Tabs.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("tabs works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Text.R b/tests/testthat/test-f7Text.R
@@ -1,4 +1,5 @@
 library(htmltools)
+library(shinytest2)
 
 test_that("f7Text tag works", {
   text_input <- f7Text("ee", "label", value = "text")

diff --git a/tests/testthat/test-f7Toggle.R b/tests/testthat/test-f7Toggle.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("toggle works", {
   skip_on_cran()
   shiny_app_path <-

diff --git a/tests/testthat/test-f7Tooltip.R b/tests/testthat/test-f7Tooltip.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("tooltips work as expected", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()

diff --git a/tests/testthat/test-f7Treeview.R b/tests/testthat/test-f7Treeview.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("Treeview works as expected", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()

diff --git a/tests/testthat/test-f7VirtualList.R b/tests/testthat/test-f7VirtualList.R
@@ -1,3 +1,5 @@
+library(shinytest2)
+
 test_that("virtualList works as expected", {
   # Don't run these tests on the CRAN build servers
   skip_on_cran()