tests/testthat/test-info.R

test_that("print_info has right names", {
  lapply(
    textdata:::print_info,
    function(x) expect_true(all(names(x) == c("name", "url", "license", "size", "type", "download_mech", "description", "citation")))
  )
})
EmilHvitfeldt/textdata documentation built on June 1, 2024, 1:12 a.m.