R/test_get_limit.R

In jchrom/trelloRtests: Informal Tests For trelloR

#' Test GET limit
#'
#' Test GET limit.
#' @param url Public board URL
#' @param model_data Model data (leave NULL)
#' @export

test_get_limit = function(url = NULL, model_data = NULL) {

  if (is.null(url))
    url = "https://trello.com/b/nC8QJJoZ/trello-development-roadmap"

  pop_env(model_data)

  board.id  = get_id_board(url)

  # Test limits: df
  df.5     = get_board_actions(board.id, limit = 5)
  df.1005  = get_board_actions(board.id, limit = 1005)
  df.0     = get_board_actions(board.id, limit = 0)
  df.minus = tryCatch(
    get_board_actions(board.id, limit = -5),
    error = function(e) message(e$message)
  )

  # Test limits: response
  rs.5     = get_board_actions(board.id, limit = 5, response = "response")
  rs.1005  = get_board_actions(board.id, limit = 1005, response = "response")
  rs.0     = get_board_actions(board.id, limit = 0, response = "response")
  rs.minus = tryCatch(
    get_board_actions(board.id, limit = -5, response = "response"),
    error = function(e) message(e$message)
  )

  mget(ls()[!grepl("token", ls())])
}