tests/testthat/test-ophil.R

In PESData/awardFindR: awardFindR

test_that("Expected results", {
  skip_on_cran()
  suppressMessages(vcr::use_cassette("ophil", serialize_with="json", match_requests_on = c("method", "host"), {
    ophil <- .standardize_ophil("qualitative", "2012-01-01", "2020-01-01",
                                FALSE)
  }))
  expect_gt(nrow(ophil), 1)
})