tests/integrated/helper.R

In connectapi: Utilities for Interacting with the 'Posit Connect' Server API

expect_ptype_equal <- function(actual, expected, exact = TRUE) {
  if (!exact) {
    # Keep only the columns from each that are in the other
    shared_names <- intersect(names(actual), names(expected))
    actual <- actual[, shared_names]
    expected <- expected[, shared_names]
  }
  expect_equal(vctrs::vec_ptype(actual), vctrs::vec_ptype(expected))
}

skip_if_connect_older_than <- function(client, version) {
  if (numeric_version(safe_server_version(client)) < numeric_version(version)) {
    skip(paste("Requires Connect >=", version))
  }
}