tests/testthat/test-utils.R

In daranzolin/rperseus: Get Texts from the Perseus Digital Library

context("Utility functions")

test_that("Correct index is scraped and returned by get_full_text_index", {
  skip_on_cran()

  ind <- get_full_text_index("greekLit/tlg0059/tlg011/perseus-grc2")
  expect_equal(ind, "172-223")
})

test_that("Lots of Jesus talk extracted from the Gospel of Matthew", {
  skip_on_cran()

  text_url <- get_text_url("urn:cts:greekLit:tlg0031.tlg001.perseus-eng2", "1.1-28.20")
  jc <- extract_text(text_url)
  jc <- length(purrr::flatten_chr(stringr::str_extract_all(jc$text, "Jesus")))
  expect_gt(jc, 100)

})