tests/testthat/test-schema.R

In ctrialsgov: Query Data from U.S. National Library of Medicine's Clinical Trials Database

test_that("schema works", {
  expect_equal(ctgov_schema(), "")

  ctgov_schema("test")
  expect_equal(ctgov_schema(), "test")

  expect_error(ctgov_set_schema(c("a", "b")))
  expect_error(ctgov_set_schema(3))

  ctgov_schema("")
  expect_equal(format_schema(), "")

  ctgov_schema("test")
  expect_equal(format_schema(), "test.")
})