tests/testthat/test_names_RLum.R

In Luminescence: Comprehensive Luminescence Dating Data Analysis

test_that("Test whether function works", {
  testthat::skip_on_cran()
  local_edition(3)

  data(ExampleData.RLum.Analysis, envir = environment())
  expect_silent(names_RLum(IRSAR.RF.Data))
  expect_type(names_RLum(IRSAR.RF.Data), "character")

  ##test a list of such elements
  expect_type(names_RLum(list(IRSAR.RF.Data,IRSAR.RF.Data, "a")), "list")

})