tests/testthat/test-class-invoice.R

In sevenbridges2: The 'Seven Bridges Platform' API Client

test_that("Invoice initialization works", {
  # Item object creation works
  testthat::expect_no_error(asInvoice(auth = setup_auth_object))

  # Item object class and methods are set
  checkmate::assert_r6(
    setup_invoice_obj,
    classes = c("Item", "Invoice"),
    public = c(
      "approval_date", "pending", "id", "href", "invoice_period",
      "analysis_costs", "total"
    )
  )
})

test_that("Invoice print method works", {
  testthat::skip_on_ci()
  testthat::skip_on_cran()
  testthat::expect_snapshot(setup_invoice_obj$print())
})