tests/testthat/test_c14_date_list_classify_material.R

In c14bazAAR: Download and Prepare C14 Dates from Different Source Databases

context("classify material")

#### output ####

result <- classify_material(
  example_c14_date_list,
  quiet = TRUE
)

test_that("classify_material gives back a c14_date_list", {
  expect_s3_class(
    result,
    "c14_date_list"
  )
})

test_that("classify_material gives back a c14_date_list with the additional
          column material_thes", {
  expect_true(
    all(
      c(colnames(example_c14_date_list), "material_thes") %in%
        colnames(result)
    )
  )
})

test_that("classify_material gives back a c14_date_list with the additional
          column material_thes and this column is of type character", {
  expect_type(
    result$material_thes,
    "character"
  )
})

#### messages ####

test_that("classify_material has message output, if quiet == FALSE", {
  expect_message(
    classify_material(
      example_c14_date_list,
      quiet = FALSE
    ),
    NULL
  )
})