Running ‘testthat.R’ [6s/10s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rdracor)
  > 
  > test_check("rdracor")
  [ FAIL 33 | WARN 0 | SKIP 0 | PASS 7 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-core.R:21:3'): dracor_sparql() returns xml_document by default ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-core.R:21:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::dracor_sparql("SELECT * WHERE {?s ?p ?o} LIMIT 10")
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-core.R:28:3'): dracor_sparql() returns character with parse = FALSE ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-core.R:28:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::dracor_sparql(...)
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-core.R:37:3'): API info is 1 x 4 ───────────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(dim(dracor_api_info()), c(1, 4)) at test-core.R:37:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::dracor_api_info()
    5.   ├─tibble::as_tibble(dracor_api("https://dracor.org/api/info", expected_type = "application/json"))
    6.   └─rdracor::dracor_api("https://dracor.org/api/info", expected_type = "application/json")
    7.     └─httr::GET(request, httr::accept(expected_type))
    8.       └─httr:::request_perform(req, hu$handle$handle)
    9.         ├─httr:::request_fetch(req$output, req$url, handle)
   10.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-core.R:41:3'): dracor_sparql() returns xml_document ────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-core.R:41:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::dracor_sparql("SELECT * WHERE {?s ?p ?o} LIMIT 10")
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-core.R:48:3'): dracor_sparql() with parse = FALSE returns character ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-core.R:48:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::dracor_sparql(...)
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor.R:2:3'): Cal corpus is S3 class 'dracor' ────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(get_dracor("cal"), "dracor") at test-dracor.R:2:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_dracor("cal")
    5.   └─rdracor:::get_available_corpus_names()
    6.     └─rdracor::get_dracor_meta()
    7.       ├─rdracor:::dracor_meta(...)
    8.       │ └─utils::type.convert(...)
    9.       └─rdracor::dracor_api(...)
   10.         └─httr::GET(request, httr::accept(expected_type))
   11.           └─httr:::request_perform(req, hu$handle$handle)
   12.             ├─httr:::request_fetch(req$output, req$url, handle)
   13.             └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   14.               └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor.R:11:3'): several corpora are downloaded via get_dracor() if character vector
            is provided ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(get_dracor(c("tat", "span")), "tbl_df") at test-dracor.R:11:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_dracor(c("tat", "span"))
    5.   └─rdracor:::get_available_corpus_names()
    6.     └─rdracor::get_dracor_meta()
    7.       ├─rdracor:::dracor_meta(...)
    8.       │ └─utils::type.convert(...)
    9.       └─rdracor::dracor_api(...)
   10.         └─httr::GET(request, httr::accept(expected_type))
   11.           └─httr:::request_perform(req, hu$handle$handle)
   12.             ├─httr:::request_fetch(req$output, req$url, handle)
   13.             └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   14.               └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor.R:15:3'): is.dracor() works for 'dracor' object ─────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_true(is.dracor(get_dracor("cal"))) at test-dracor.R:15:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─rdracor:::is.dracor(get_dracor("cal"))
    5. └─rdracor::get_dracor("cal")
    6.   └─rdracor:::get_available_corpus_names()
    7.     └─rdracor::get_dracor_meta()
    8.       ├─rdracor:::dracor_meta(...)
    9.       │ └─utils::type.convert(...)
   10.       └─rdracor::dracor_api(...)
   11.         └─httr::GET(request, httr::accept(expected_type))
   12.           └─httr:::request_perform(req, hu$handle$handle)
   13.             ├─httr:::request_fetch(req$output, req$url, handle)
   14.             └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   15.               └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor.R:25:5'): summary() work for 'dracor' object if there is no info on some years ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-dracor.R:25:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nchar(capture.output(summary(get_dracor("tat"))))
    5. ├─utils::capture.output(summary(get_dracor("tat")))
    6. │ └─base::withVisible(...elt(i))
    7. ├─base::summary(get_dracor("tat"))
    8. └─rdracor::get_dracor("tat")
    9.   └─rdracor:::get_available_corpus_names()
   10.     └─rdracor::get_dracor_meta()
   11.       ├─rdracor:::dracor_meta(...)
   12.       │ └─utils::type.convert(...)
   13.       └─rdracor::dracor_api(...)
   14.         └─httr::GET(request, httr::accept(expected_type))
   15.           └─httr:::request_perform(req, hu$handle$handle)
   16.             ├─httr:::request_fetch(req$output, req$url, handle)
   17.             └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   18.               └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor.R:34:5'): writtenYear with format 'YYYY/YYYY' is processed as integer in column writtenYearFinish ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_is(get_dracor("rus")$writtenYearFinish, "integer") at test-dracor.R:34:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_dracor("rus")
    5.   └─rdracor:::get_available_corpus_names()
    6.     └─rdracor::get_dracor_meta()
    7.       ├─rdracor:::dracor_meta(...)
    8.       │ └─utils::type.convert(...)
    9.       └─rdracor::dracor_api(...)
   10.         └─httr::GET(request, httr::accept(expected_type))
   11.           └─httr:::request_perform(req, hu$handle$handle)
   12.             ├─httr:::request_fetch(req$output, req$url, handle)
   13.             └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   14.               └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor.R:39:3'): get_character_plays() for Maria Stuart returns at least 2 plays ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_gte(...) at test-dracor.R:39:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(get_character_plays(char_wiki_id = "Q131412"))
    5. └─rdracor::get_character_plays(char_wiki_id = "Q131412")
    6.   └─rdracor::dracor_api(...)
    7.     └─httr::GET(request, httr::accept(expected_type))
    8.       └─httr:::request_perform(req, hu$handle$handle)
    9.         ├─httr:::request_fetch(req$output, req$url, handle)
   10.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor_meta.R:2:3'): get_dracor_meta() returns dracor_meta object ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(get_dracor_meta(), "dracor_meta") at test-dracor_meta.R:2:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_dracor_meta()
    5.   ├─rdracor:::dracor_meta(...)
    6.   │ └─utils::type.convert(...)
    7.   └─rdracor::dracor_api(...)
    8.     └─httr::GET(request, httr::accept(expected_type))
    9.       └─httr:::request_perform(req, hu$handle$handle)
   10.         ├─httr:::request_fetch(req$output, req$url, handle)
   11.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   12.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor_meta.R:6:3'): is.dracor_meta() works for 'dracor_meta' object ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_true(is.dracor_meta(get_dracor_meta())) at test-dracor_meta.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─rdracor:::is.dracor_meta(get_dracor_meta())
    5. └─rdracor::get_dracor_meta()
    6.   ├─rdracor:::dracor_meta(...)
    7.   │ └─utils::type.convert(...)
    8.   └─rdracor::dracor_api(...)
    9.     └─httr::GET(request, httr::accept(expected_type))
   10.       └─httr:::request_perform(req, hu$handle$handle)
   11.         ├─httr:::request_fetch(req$output, req$url, handle)
   12.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   13.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-dracor_meta.R:14:3'): summary for dracor_meta object is visible ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
      ▆
   1. └─rdracor::get_dracor_meta() at test-dracor_meta.R:14:2
   2.   ├─rdracor:::dracor_meta(...)
   3.   │ └─utils::type.convert(...)
   4.   └─rdracor::dracor_api(...)
   5.     └─httr::GET(request, httr::accept(expected_type))
   6.       └─httr:::request_perform(req, hu$handle$handle)
   7.         ├─httr:::request_fetch(req$output, req$url, handle)
   8.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   9.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-net.R:2:3'): get_net_cooccur_metrics returns list ──────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-net.R:2:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_net_cooccur_metrics("pushkin-boris-godunov", "rus")
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-net.R:6:3'): column names for get_net_cooccur_edges() are valid ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-net.R:6:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_net_cooccur_edges("pushkin-boris-godunov", "rus")
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-net.R:13:3'): get_net_cooccur_gexf() returns valid object ──────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_gexf("pushkin-boris-godunov", "rus") at test-net.R:13:2
   2.   └─rdracor::dracor_api(...)
   3.     └─httr::GET(request, httr::accept(expected_type))
   4.       └─httr:::request_perform(req, hu$handle$handle)
   5.         ├─httr:::request_fetch(req$output, req$url, handle)
   6.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   7.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-net.R:23:3'): cooccur_igraph is returned by get_net_cooccur_igraph() ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-net.R:23:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_net_cooccur_igraph("gogol-zhenitba", "rus")
    5.   └─rdracor::get_play_cast(play = play, corpus = corpus, as_tibble = FALSE)
    6.     └─rdracor::dracor_api(...)
    7.       └─httr::GET(request, httr::accept(expected_type))
    8.         └─httr:::request_perform(req, hu$handle$handle)
    9.           ├─httr:::request_fetch(req$output, req$url, handle)
   10.           └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.             └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-net.R:30:3'): label_cooccur_igraph() return come NA for big network ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-i", "shake") at test-net.R:30:2
   2.   └─rdracor::get_play_cast(play = play, corpus = corpus, as_tibble = FALSE)
   3.     └─rdracor::dracor_api(...)
   4.       └─httr::GET(request, httr::accept(expected_type))
   5.         └─httr:::request_perform(req, hu$handle$handle)
   6.           ├─httr:::request_fetch(req$output, req$url, handle)
   7.           └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   8.             └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-net.R:37:5'): label_cooccur_igraph() do not return NA after max_graph_size adjustment ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-i", "shake") at test-net.R:37:4
   2.   └─rdracor::get_play_cast(play = play, corpus = corpus, as_tibble = FALSE)
   3.     └─rdracor::dracor_api(...)
   4.       └─httr::GET(request, httr::accept(expected_type))
   5.         └─httr:::request_perform(req, hu$handle$handle)
   6.           ├─httr:::request_fetch(req$output, req$url, handle)
   7.           └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   8.             └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-net.R:43:3'): summary.cooccur_igraph() prints appropriate number of rows ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-i", "shake") at test-net.R:43:2
   2.   └─rdracor::get_play_cast(play = play, corpus = corpus, as_tibble = FALSE)
   3.     └─rdracor::dracor_api(...)
   4.       └─httr::GET(request, httr::accept(expected_type))
   5.         └─httr:::request_perform(req, hu$handle$handle)
   6.           ├─httr:::request_fetch(req$output, req$url, handle)
   7.           └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   8.             └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-net.R:48:3'): relations_igraph is returned by get_net_relations_igraph() ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-net.R:48:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_net_relations_igraph("gogol-zhenitba", "rus")
    5.   └─rdracor::get_net_relations_edges(...)
    6.     └─rdracor::dracor_api(...)
    7.       └─httr::GET(request, httr::accept(expected_type))
    8.         └─httr:::request_perform(req, hu$handle$handle)
    9.           ├─httr:::request_fetch(req$output, req$url, handle)
   10.           └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.             └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-play.R:2:3'): get_play_metadata returns list ───────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-play.R:2:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_play_metadata("pushkin-boris-godunov", "rus")
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-play.R:6:3'): rdf is not empty ─────────────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
      ▆
   1. └─rdracor::get_play_rdf("pushkin-boris-godunov", "rus") at test-play.R:6:2
   2.   └─rdracor::dracor_api(...)
   3.     └─httr::GET(request, httr::accept(expected_type))
   4.       └─httr:::request_perform(req, hu$handle$handle)
   5.         ├─httr:::request_fetch(req$output, req$url, handle)
   6.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   7.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-play.R:12:3'): boris godunov cast has 79 characters ────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-play.R:12:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(get_play_cast("pushkin-boris-godunov", "rus"))
    5. └─rdracor::get_play_cast("pushkin-boris-godunov", "rus")
    6.   └─rdracor::dracor_api(...)
    7.     └─httr::GET(request, httr::accept(expected_type))
    8.       └─httr:::request_perform(req, hu$handle$handle)
    9.         ├─httr:::request_fetch(req$output, req$url, handle)
   10.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   11.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-tei_to_df.R:2:3'): tei_to_df converts tei object to tibble ─────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-tei_to_df.R:2:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─rdracor::tei_to_df(get_text_tei(corpus = "rus", play = "gogol-zhenitba"))
    5. │ └─tei %>% xml2::xml_ns_strip()
    6. ├─xml2::xml_ns_strip(.)
    7. │ └─xml2::xml_find_all(x, "//namespace::*[name()='']/parent::*")
    8. └─rdracor::get_text_tei(corpus = "rus", play = "gogol-zhenitba")
    9.   └─rdracor::dracor_api(...)
   10.     └─httr::GET(request, httr::accept(expected_type))
   11.       └─httr:::request_perform(req, hu$handle$handle)
   12.         ├─httr:::request_fetch(req$output, req$url, handle)
   13.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   14.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-tei_to_df.R:9:3'): get_text_df returns tibble ──────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-tei_to_df.R:9:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─rdracor::get_text_df(corpus = "rus", play = "gogol-zhenitba")
    5. │ ├─get_text_tei(play = play, corpus = corpus) %>% tei_to_df()
    6. │ └─rdracor::get_text_tei(play = play, corpus = corpus)
    7. │   └─rdracor::dracor_api(...)
    8. │     └─httr::GET(request, httr::accept(expected_type))
    9. │       └─httr:::request_perform(req, hu$handle$handle)
   10. │         ├─httr:::request_fetch(req$output, req$url, handle)
   11. │         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   12. │           └─curl::curl_fetch_memory(url, handle = handle)
   13. ├─rdracor::tei_to_df(.)
   14. │ └─tei %>% xml2::xml_ns_strip()
   15. └─xml2::xml_ns_strip(.)
   16.   └─xml2::xml_find_all(x, "//namespace::*[name()='']/parent::*")
  ── Error ('test-text.R:2:3'): tei text is not empty ────────────────────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
      ▆
   1. └─rdracor::get_text_tei("pushkin-boris-godunov", "rus") at test-text.R:2:2
   2.   └─rdracor::dracor_api(...)
   3.     └─httr::GET(request, httr::accept(expected_type))
   4.       └─httr:::request_perform(req, hu$handle$handle)
   5.         ├─httr:::request_fetch(req$output, req$url, handle)
   6.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   7.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-text.R:8:3'): get_text_chr_spoken() returns text ───────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-text.R:8:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_text_chr_spoken("pushkin-boris-godunov", "rus")
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-text.R:17:5'): get_text_chr_spoken() for Boris Godunov, UNKNOWN gender returns more than one value ──
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_gt(...) at test-text.R:17:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_text_chr_spoken(...)
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-text.R:27:3'): get_text_chr_spoken_bych() returns data.frame ───
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-text.R:27:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_text_chr_spoken_bych("pushkin-boris-godunov", "rus")
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-text.R:34:3'): get_text_chr_stage() returns text ───────────────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-text.R:34:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_text_chr_stage("pushkin-boris-godunov", "rus")
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  ── Error ('test-text.R:41:3'): get_text_chr_stage_with_sp() returns text ───────
  Error in `curl::curl_fetch_memory(url, handle = handle)`: SSL peer certificate or SSH remote key was not OK: [dracor.org] SSL certificate problem: certificate has expired
  Backtrace:
       ▆
    1. ├─testthat::expect_type(...) at test-text.R:41:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_text_chr_stage_with_sp(...)
    5.   └─rdracor::dracor_api(...)
    6.     └─httr::GET(request, httr::accept(expected_type))
    7.       └─httr:::request_perform(req, hu$handle$handle)
    8.         ├─httr:::request_fetch(req$output, req$url, handle)
    9.         └─httr:::request_fetch.write_memory(req$output, req$url, handle)
   10.           └─curl::curl_fetch_memory(url, handle = handle)
  
  [ FAIL 33 | WARN 0 | SKIP 0 | PASS 7 ]
  Error: Test failures
  Execution halted