fix test

RinteRface · May 23, 2024 · 65c5dae · 65c5dae
1 parent fc364c1
commit 65c5dae
Show file tree

Hide file tree

Showing 4 changed files with 21 additions and 3 deletions.
diff --git a/inst/examples/login/app.R b/inst/examples/login/app.R
@@ -24,7 +24,11 @@ app <- shinyApp(
   server = function(input, output, session) {
     loginData <- f7LoginServer(id = "login")
 
-    exportTestValues(res = loginData)
+    exportTestValues(
+      status = loginData$status(),
+      user = loginData$user(),
+      password = loginData$password()
+    )
 
     output$user <- renderText({
       req(loginData$user)

diff --git a/tests/testthat/_snaps/f7Login/login-app-001.new.json b/tests/testthat/_snaps/f7Login/login-app-001.new.json
@@ -0,0 +1,7 @@
+{
+  "export": {
+    "password": "",
+    "status": true,
+    "user": ""
+  }
+}
diff --git a/tests/testthat/_snaps/f7Login/login-app-002.new.json b/tests/testthat/_snaps/f7Login/login-app-002.new.json
@@ -0,0 +1,7 @@
+{
+  "export": {
+    "password": "pwd",
+    "status": false,
+    "user": "usr"
+  }
+}
diff --git a/tests/testthat/test-f7Login.R b/tests/testthat/test-f7Login.R
@@ -9,12 +9,12 @@ test_that("login works", {
     name = "login-app"
   )
 
-  app$expect_values(input = "login", export = "res")
+  app$expect_values(input = "login", export = TRUE)
 
   app$set_inputs("login-user" = "usr", "login-password" = "pwd")
   app$wait_for_idle(2000)
   # Wait for any animation to complete
   app$click(selector = "#login-submit")
   app$wait_for_idle(2000)
-  app$expect_values(input = "login", export = "res")
+  app$expect_values(input = "login", export = TRUE)
 })