tests/testthat/test_get_dates.R

In nevrome/c14databases: Download and Prepare C14 Dates from Different Source Databases

context("database parsers and helper functions")

#### get_all_parser_functions ####

parser_functions <- c14bazAAR:::get_all_parser_functions()

test_that("get_all_parser_functions gives back a list", {
  expect_type(
    parser_functions, "list"
  )
})

test_that("get_all_parser_functions gives back a list with more then one entry", {
  expect_gt(
    length(parser_functions), 1
  )
})

test_that("get_all_parser_functions gives back a list of functions", {
  expect_true(
    all(sapply(parser_functions, is.function))
  )
})

#### get_all_dates ####

test_that("get_all_dates works as intended", {
  skip_on_cran()
  all_dates <- c14bazAAR::get_all_dates()
  expect_true(
    c14bazAAR::is.c14_date_list(all_dates)
  )
  expect_gt(
    nrow(all_dates), 1
  )
})