tests/testthat/helper.R

In rtodoist: Create and Manage Todolist using 'Todoist.com' API

# Helper functions for rtodoist tests

# Define null coalescing operator for tests
`%||%` <- function(a, b) if (is.null(a)) b else a

# Skip tests if no API token is available
skip_if_no_token <- function() {
  token <- tryCatch(
    get_todoist_api_token(ask = FALSE),
    error = function(e) NULL
  )
  if (is.null(token) || token == "") {
    skip("No Todoist API token available")
  }
}

# Skip on CI environments to avoid rate limiting issues
skip_on_ci_or_cran <- function() {
  skip_on_cran()
  skip_on_ci()
}

# Test project name for integration tests
TEST_PROJECT_NAME <- "depuisclaude"

# Test collaborators
TEST_COLLABORATORS <- c("vincent@thinkr.fr", "murielle@thinkr.fr")

# Skip if test project doesn't exist
skip_if_test_project_missing <- function(project_name = TEST_PROJECT_NAME) {
  token <- tryCatch(
    get_todoist_api_token(ask = FALSE),
    error = function(e) NULL
  )
  if (is.null(token)) {
    skip("No Todoist API token available")
  }

  project_exists <- tryCatch({
    get_project_id(project_name, token = token, create = FALSE)
    TRUE
  }, error = function(e) FALSE)

  if (!project_exists) {
    skip(paste0("Test project '", project_name, "' does not exist"))
  }
}

# Clean up function to delete test project (to be used in teardown)
cleanup_test_project <- function(project_name = TEST_PROJECT_NAME, token = NULL) {
  if (is.null(token)) {
    token <- tryCatch(
      get_todoist_api_token(ask = FALSE),
      error = function(e) NULL
    )
  }
  if (!is.null(token)) {
    tryCatch({
      project_id <- get_project_id(project_name, token = token, create = FALSE)
      delete_project(project_id, token = token, verbose = FALSE)
      message("Deleted test project: ", project_name)
    }, error = function(e) {
      message("Could not delete project: ", e$message)
    })
  }
}