tests/testthat/test-report-plain.R

In evanodell/cqcr: Access 'Care Quality Commission' Data

test_that("plaintext reports works", {
  skip_on_cran()

  report2 <- cqc_reports("41d035b1-43e7-4857-be33-cf1b57cf4311",
    plain_text = TRUE
  )

  expect_true(is.character(report2))
  expect_gt(nchar(report2), 10000)
})