Switches to expect_values instead of snapshots

mlverse · Apr 3, 2024 · abd2f54 · abd2f54
1 parent a5e8213
commit abd2f54
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 46 deletions.
diff --git a/tests/testthat/_snaps/app-server/001.json b/tests/testthat/_snaps/app-server/001.json
@@ -1,16 +1,5 @@
 {
-  "input": {
-    "close": 0,
-    "options": 0,
-    "prompt": "",
-    "submit": 0,
-    "tabs": null
-  },
   "output": {
-    "provider": "Test",
-    "stream": ""
-  },
-  "export": {
 
   }
 }
diff --git a/tests/testthat/_snaps/app-server/002.json b/tests/testthat/_snaps/app-server/002.json
@@ -1,21 +1,5 @@
 {
-  "input": {
-    "close": 0,
-    "i_data": "0",
-    "i_files": "0",
-    "i_history": false,
-    "options": 1,
-    "prompt": "",
-    "prompt2": "Use the R language, the tidyverse, and tidymodels",
-    "saved": 0,
-    "submit": 1,
-    "tabs": null
-  },
   "output": {
-    "provider": "Test",
-    "stream": ""
-  },
-  "export": {
 
   }
 }
diff --git a/tests/testthat/_snaps/app-server/003.json b/tests/testthat/_snaps/app-server/003.json
@@ -1,21 +1,5 @@
 {
-  "input": {
-    "close": 0,
-    "i_data": "0",
-    "i_files": "0",
-    "i_history": false,
-    "options": 1,
-    "prompt": "",
-    "prompt2": "Use the R language, the tidyverse, and tidymodels",
-    "saved": 1,
-    "submit": 1,
-    "tabs": null
-  },
   "output": {
-    "provider": "Test",
-    "stream": ""
-  },
-  "export": {
 
   }
 }
diff --git a/tests/testthat/_snaps/app-server/004.json b/tests/testthat/_snaps/app-server/004.json
@@ -0,0 +1,5 @@
+{
+  "output": {
+
+  }
+}
diff --git a/tests/testthat/test-app-server.R b/tests/testthat/test-app-server.R
@@ -5,13 +5,15 @@ test_that("chattr app initial values are consistent", {
     shiny_app,
     options = list("chattr-shiny-test" = TRUE)
   )
-  app$expect_values(screenshot_args = FALSE)
+  app$expect_values(output = "submit", screenshot_args = FALSE)
   app$set_inputs(prompt = "hello", allow_no_input_binding_ = TRUE)
   app$click("submit")
+  app$expect_values(output = "submit", screenshot_args = FALSE)
   app$click("options")
-  app$expect_values(screenshot_args = FALSE)
+  app$expect_values(output = "options", screenshot_args = FALSE)
   app$click("saved")
-  app$expect_values(screenshot_args = FALSE)
+  app$expect_values(output = "saved", screenshot_args = FALSE)
+  app$click("open")
 })
 
 test_that("Split content function", {