tests/testthat/test_rt_ticket_properties.R

In rt: Interface to the 'Request Tracker' API

context("ticket/properties")

test_that("we can get properties of a ticket", {
  testthat::skip_on_cran()
  skip_unless_integration()

  ticket <- rt_ticket_create("General")
  props <- rt_ticket_properties(ticket)

  testthat::expect_is(props, "list")
  testthat::expect_equal(props$id, paste0("ticket/", ticket))
})

test_that("trying to get properties of a non-existent ticket errors", {
  testthat::skip_on_cran()
  skip_unless_integration()

  testthat::expect_error(rt_ticket_properties(9999), "does not exist")
})