tests/testthat/test-arnold.R

In PESData/awardFindR: awardFindR

test_that("Arnold returns expected results", {
  skip_on_cran()
  suppressMessages(vcr::use_cassette("arnold", serialize_with="json", {
    one_result <- suppressMessages(
      .standardize_arnold("qualitative research", "2020-01-02", "2020-01-03",
                          FALSE))
    expect_equal(1, nrow(one_result))
  }))
})