tests/testthat/test-rpocket.R

In paylakatel/rpocket: Retrive Pocket Data

context("test-rpocket.R")

test_that("get_data function returns a list", {
  # make sure can find keys file
  expect_true(file.exists(file.path("../..", "keys.r")))
  keys <- file.path("../../keys.r")
  source(keys)

  # get since value
  week_ago <- Sys.Date() - 7
  since <- as.numeric(as.POSIXct(week_ago))

  # get data
  data <- get_data(consumer_key=consumer_key, access_token=access_token, since=since)
  data_list <- class(data)
  expect_match("list", data_list)
})