From 718c44c9cc0dad970cae5fa4904c6c72bcc644da Mon Sep 17 00:00:00 2001 From: Julia Silge Date: Wed, 15 Nov 2023 20:07:59 -0700 Subject: [PATCH] Add test for new `...` message --- tests/testthat/_snaps/pin-upload-download.md | 5 +++++ tests/testthat/test-pin-upload-download.R | 1 + 2 files changed, 6 insertions(+) diff --git a/tests/testthat/_snaps/pin-upload-download.md b/tests/testthat/_snaps/pin-upload-download.md index da2816b8..d5018cac 100644 --- 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 index 22a639d7..1d1a4b3d 100644 --- 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")) }) })