tests/testthat/test-func_trem_get.R

In tremendousr: Easily Send Rewards and Incentives with 'Tremendous' from R

test_that("trem_get throws errors - no client or API Key", {

  expect_error(
    trem_get(path = "funding_sources"),
    regexp = "Tremendous API Client required.")

})

test_that("trem_get works (funding sources) - with client", {

  skip_on_cran()
  skip_on_travis()


  test_client <- trem_client_new(api_key = NULL, # Uses system env API key
                                 sandbox = TRUE)


  vcr::use_cassette("trem-get_funding-sources_client", {
    funding_sourcesClient <- trem_get(test_client,
                                      path = "funding_sources",
                                      parse = TRUE)
  })

  expect_type(funding_sourcesClient, "list")
  expect_named(funding_sourcesClient, "funding_sources")

  expect_s3_class(funding_sourcesClient$funding_sources, "data.frame")
  expect_named(funding_sourcesClient$funding_sources, c("method", "id", "meta"))

  expect_type(funding_sourcesClient$funding_sources$method, "character")
  expect_type(funding_sourcesClient$funding_sources$id, "character")
  expect_s3_class(funding_sourcesClient$funding_sources$meta, "data.frame")

})

test_that("trem_get works (orders) - with client", {

  skip_on_cran()
  skip_on_travis()


  test_client <- trem_client_new(api_key = NULL, # Uses system env API key
                                 sandbox = TRUE)


  vcr::use_cassette("trem-get_orders_client", {
    ordersClient <- trem_get(test_client,
                             path = "orders",
                             parse = TRUE)
  })

  expect_type(ordersClient, "list")
  expect_named(ordersClient, "orders")

  expect_s3_class(ordersClient$orders, "data.frame")
  expect_named(ordersClient$orders, c("id", "external_id", "created_at",
                                "status", "payment", "rewards"))

  expect_type(ordersClient$order$id, "character")
  expect_type(ordersClient$orders$external_id, "character")
  expect_type(ordersClient$orders$created_at, "character")
  expect_type(ordersClient$orders$status, "character")
  expect_s3_class(ordersClient$orders$payment, "data.frame")
  expect_type(ordersClient$orders$rewards, "list")

})