Fix defer() in test mm_authorize() sets credentials

asadow · Nov 18, 2023 · 0437be2 · 0437be2
1 parent 7e061fc
commit 0437be2
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/tests/testthat/test-authorize.R b/tests/testthat/test-authorize.R
@@ -29,10 +29,12 @@ test_that("mm_authorize() gives bad url error", {
 
 test_that("mm_authorize() sets credentials", {
   skip_on_cran()
+  key_original <- mm_key()
+  url_original <- mm_url()
   withr::defer({
     mm_authorize(
-      key = testing_key(),
-      url = "https://api.megamation.com/uog/dl",
+      key = key_original,
+      url = url_original,
       overwrite = TRUE
     )
   })