tests/testthat/test-notion_get_user.R

In Songyosr/Rnotion: What the Package Does (One Line, Title Case)

library(httr)
library(Rnotion)
library(jsonlite)

test_that("notion_get_user works", {
  expect_error(notion_get_user(query = "Totally Wrong!"))
  actual <- notion_get_user()
  expect_equal(httr::http_status(actual) ,httr::http_status(200))
  expect_true(httr::has_content(actual))
  expect_length(httr::content(actual)$results, 2)
})