tests/testthat/test-pg_identify.R

In pangaear: Client for the 'Pangaea' Database

context("pg_identify")

test_that("pg_identify works", {
  vcr::use_cassette("pg_identify2", {
    aa <- pg_identify()
  })

  expect_is(aa, "pg_identify")
  expect_is(unclass(aa), "list")

  expect_type(aa$repositoryName, "character")
  expect_type(aa$baseURL, "character")
  expect_type(aa$protocolVersion, "character")
})