Add snapshot test for no_prompt = FALSE

quarto-dev · Jan 24, 2024 · 0818256 · 0818256
1 parent 68b6df5
commit 0818256
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/tests/testthat/_snaps/use.md b/tests/testthat/_snaps/use.md
@@ -0,0 +1,10 @@
+# quarto_use_binder works
+
+    Code
+      quarto_use_binder(no_prompt = FALSE)
+    Condition
+      Error in `quarto_use_binder()`:
+      ! `quarto use binder` requires explicit approval as it will write some configurations files to your project.
+      > Set `no_prompt = TRUE` if you agree.
+      i See more at <https://quarto.org/docs/projects/binder.html>
+
diff --git a/tests/testthat/test-use.R b/tests/testthat/test-use.R
@@ -10,7 +10,7 @@ test_that("Installing an extension", {
 })
 
 test_that("quarto_use_binder errors < 1.4", {
-  skip_if_quarto(ver = 1.4)
+  skip_if_quarto(ver = "1.4")
   expect_snapshot(
     error = TRUE,
     quarto_use_binder(),
@@ -21,7 +21,8 @@ test_that("quarto_use_binder errors < 1.4", {
 
 test_that("quarto_use_binder works", {
   skip_on_cran()
-  skip_if_no_quarto(ver = 1.4)
+  skip_if_no_quarto(ver = "1.4")
+
   project <- local_quarto_project(
     c("---",
       "title: Histogram",
@@ -31,6 +32,11 @@ test_that("quarto_use_binder works", {
       "hist(rnorm(100))",
       "```")
   )
+  expect_snapshot(
+    error = TRUE,
+    quarto_use_binder(no_prompt = FALSE)
+  )
   withr::local_dir(project)
+  skip_if_no_quarto(ver = "1.5")
   quarto_use_binder(no_prompt = TRUE)
 })