tests/testthat/test-pg_identify.R

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")
})

Try the pangaear package in your browser

Any scripts or data that you put into this service are public.

pangaear documentation built on May 14, 2021, 9:05 a.m.