From e4a7b2d1f8dc0c01ab4622460d164498791cd611 Mon Sep 17 00:00:00 2001 From: chainsawriot Date: Sat, 21 Feb 2026 16:07:56 +0100 Subject: [PATCH] Fix #189 --- tests/testthat/test-auth_verify.R | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-auth_verify.R b/tests/testthat/test-auth_verify.R index 61e6b80..39f1c39 100644 --- a/tests/testthat/test-auth_verify.R +++ b/tests/testthat/test-auth_verify.R @@ -1,14 +1,26 @@ test_that("verify_envvar (Good case)", { ## The cassette was created with a valid envvar + ## But here is a fake + withr::local_envvar( + RTOOT_DEFAULT_TOKEN = paste0( + paste0(rep("a", 43), collapse = ""), + ";user;fosstodon.org" + ) + ) vcr::use_cassette("envvar", { - expect_error(capture_message(verify_envvar()), NA) + expect_error(x <- capture_message(verify_envvar()), NA) }) + expect_false("simpleError" %in% class(x)) }) test_that("verify_envvar (Good case), silent", { ## The cassette was created with a valid envvar - skip_on_ci() - skip_on_cran() + withr::local_envvar( + RTOOT_DEFAULT_TOKEN = paste0( + paste0(rep("a", 43), collapse = ""), + ";user;fosstodon.org" + ) + ) vcr::use_cassette("envvar_silent", { expect_silent(verify_envvar(verbose = FALSE)) })