Merge branch 'main' of github.com:gesistsa/rtoot

Author: schochastics

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))
   })

tests/testthat/test-get_account_auth.R

@@ -115,7 +115,7 @@ test_that("get_account_lists", {
 
 test_that("get_account_relationships", {
   vcr::use_cassette("get_account_relationships_default", {
-    x <- get_account_relationships(id = id, token = fake_token)
+    x <- get_account_relationships(ids = id, token = fake_token)
   })
   expect_true("tbl_df" %in% class(x))
 })