tests/testthat/test_structure_RLum.R

In Luminescence: Comprehensive Luminescence Dating Data Analysis

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

  data(ExampleData.RLum.Analysis, envir = environment())
  expect_silent(structure_RLum(IRSAR.RF.Data))
  expect_s3_class(structure_RLum(IRSAR.RF.Data), "data.frame")

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

})