tests/testthat/test_rt_ticket_edit.R

In amoeba/rt: An R Package for the RT REST API

context("ticket/edit")

test_that("we can edit a ticket", {
  ticket_id <- rt_ticket_create("General", "root@localhost", "Ticket to edit")
  rt_ticket_edit(ticket_id, subject = "Edited subject")
  props <- rt_ticket_properties(ticket_id)

  testthat::expect_is(props, "list")
  testthat::expect_true(props$Subject == "Edited subject")
})