library(ctrialsgov)

test_that("sample data loads okay", {
  ctgov_load_sample()
  res <- ctgov_query(description_kw = "cancer")
  expect_equal(ncol(res), 32L)
})