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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.