tests/testthat/test_04_requests.R

In BirdStudiesCanada/naturecounts: Access and download data on plant and animal populations from NatureCounts

test_that("nc_requests() shows 'web' requests", {

  expect_silent(r <- nc_requests(username = "testuser")) %>%
    expect_s3_class("data.frame")
  expect_equal(nrow(r), 0)

  skip_if_not(have_auth())
  expect_silent(r <- nc_requests(username = "steffilazerte2")) %>%
    expect_s3_class("data.frame")
  expect_gt(nrow(r), 1)
  expect_equal(unique(r$request_origin), "web")
  expect_true(any(r$status == "approved"))
})

test_that("nc_requests() shows 'api' requests", {
  expect_silent(r <- nc_requests(username = "testuser", type = "api")) %>%
    expect_s3_class("data.frame")
  expect_gt(nrow(r), 5)
  expect_equal(unique(r$request_origin), "api")
  expect_true(any(r$status == "approved"))

  skip_if_not(have_auth())
  expect_silent(r <- nc_requests(username = "steffilazerte2", type = "api")) %>%
    expect_s3_class("data.frame")
  expect_gt(nrow(r), 5)
  expect_equal(unique(r$request_origin), "api")
  expect_true(any(r$status == "approved"))
})

test_that("nc_requests() shows 'all' requests", {
  expect_silent(r <- nc_requests(username = "testuser", type = "all")) %>%
    expect_s3_class("data.frame")
  expect_gt(nrow(r), 5)
  expect_equal(unique(r$request_origin), "api")
  expect_true(any(r$status == "approved"))

  skip_if_not(have_auth())
  expect_silent(r <- nc_requests(username = "steffilazerte2", type = "all")) %>%
    expect_s3_class("data.frame")
  expect_gt(nrow(r), 5)
  expect_equal(sort(unique(r$request_origin)), c("api", "mixed", "web"))
  expect_true(any(r$status == "approved"))
})