Add vcr testing framework and example unittests for get_public_timeline

.gitattributes

@@ -0,0 +1,2 @@
+* text=auto
+tests/fixtures/**/* -diff

DESCRIPTION

@@ -19,6 +19,7 @@ Suggests:
     knitr,
     rmarkdown,
     testthat (>= 3.0.0),
-    rstudioapi
+    rstudioapi,
+    vcr (>= 0.6.0)
 VignetteBuilder: knitr
 Config/testthat/edition: 3

tests/testthat/setup-rtoot.R

@@ -0,0 +1,7 @@
+library("vcr") # *Required* as vcr is set up on loading
+invisible(
+  vcr::vcr_configure(
+         filter_sensitive_data = list("<<<MASTODON TOKEN>>>" = Sys.getenv('RTOOT_DEFAULT_TOKEN')),
+         dir = vcr::vcr_test_path("fixtures")
+       ))
+vcr::check_cassette_names()

tests/testthat/test-get_public_timeline.R

@@ -0,0 +1,26 @@
+test_that("get_public_timeline", {
+  vcr::use_cassette("get_public_timeline_default", {
+    x <- get_public_timeline()
+  })
+  expect_true(nrow(x) != 0)
+  expect_true("tbl_df" %in% class(x))
+  vcr::use_cassette("get_public_timeline_notparse", {
+    x <- get_public_timeline(parse = FALSE)
+  })
+  expect_false("tbl_df" %in% class(x))
+  vcr::use_cassette("get_public_timeline_instance", {
+    x <- get_public_timeline(instance = "mastodon.social")
+  })
+  expect_true(nrow(x) != 0)
+  expect_true("tbl_df" %in% class(x)) ## we can't test because it can contain statuses from another instance
+  vcr::use_cassette("get_public_timeline_instance_local", {
+    x <- get_public_timeline(local = TRUE, limit = 10)
+  })
+  ## it should have only one type of hostname
+  expect_equal(length(unique(sapply(x$uri, function(uri) httr::parse_url(uri)$hostname))), 1)
+  vcr::use_cassette("get_public_timeline_anonymous", {
+    x <- get_public_timeline(instance = "mastodon.social", anonymous = TRUE)
+  })
+  expect_true(nrow(x) != 0)
+  expect_true("tbl_df" %in% class(x)) ## we can't test because it can contain statuses from another instance
+})