tests/testthat/test_analyse_Al2O3C_ITC.R

In Luminescence: Comprehensive Luminescence Dating Data Analysis

##Full check
test_that("Full check", {
  skip_on_cran()
  local_edition(3)

   ##check stops
   ##RLum-object
   expect_error(object = analyse_Al2O3_ITC(object = "test"))

   ##input curve type
   a <- set_RLum(class = "RLum.Data.Curve", recordType = "OSL", data = matrix(1:20, ncol = 2))
   b <- set_RLum(class = "RLum.Data.Curve", recordType = "TL")
   object <- set_RLum(class = "RLum.Analysis", records = list(a,b))
   expect_error(object = analyse_Al2O3_ITC(object))

   ##check with example data
   ##load data
   data(ExampleData.Al2O3C, envir = environment())

   ##run analysis
   expect_s4_class(analyse_Al2O3C_ITC(data_ITC), "RLum.Results")

})