Add test for new ... message

rstudio · Nov 16, 2023 · 718c44c · 718c44c
1 parent e0ac9ab
commit 718c44c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/tests/testthat/_snaps/pin-upload-download.md b/tests/testthat/_snaps/pin-upload-download.md
@@ -16,6 +16,11 @@
     Message
       Guessing `name = 'test.txt'`
       Creating new version '20120304T050607Z-xxxxx'
+    Code
+      pin_upload(board, path, "test", c("blue", "green"))
+    Condition
+      Error in `pin_upload()`:
+      ! Arguments after the dots `...` must be named, like `tags = "my-great-tag"`.
 
 # can pin file called data.txt
 

diff --git a/tests/testthat/test-pin-upload-download.R b/tests/testthat/test-pin-upload-download.R
@@ -20,6 +20,7 @@ test_that("pin_upload generated useful messages", {
 
     path <- fs::file_touch(fs::path_temp("test.txt"))
     pin_upload(board, path)
+    pin_upload(board, path, "test", c("blue", "green"))
   })
 })
-Original file line number
+Diff line change
@@ Expand Up / @@ -20,6 +20,7 @@ test_that("pin_upload generated useful messages", { @@
         path <- fs::file_touch(fs::path_temp("test.txt"))
         pin_upload(board, path)
+        pin_upload(board, path, "test", c("blue", "green"))
       })
     })
@@ Expand Down @@