tests/testthat/test_bin_RLumData.R

In Luminescence: Comprehensive Luminescence Dating Data Analysis

## load data
data(ExampleData.CW_OSL_Curve, envir = environment())

test_that("input validation", {
  testthat::skip_on_cran()

  expect_error(bin_RLum.Data(set_RLum("RLum.Data.Spectrum")),
               "'object' contains no data")
})

test_that("check class and length of output", {
  testthat::skip_on_cran()

  curve <- set_RLum(class = "RLum.Data.Curve",
                    recordType = "OSL",
                    data = as.matrix(ExampleData.CW_OSL_Curve))

  expect_s4_class(bin_RLum.Data(curve), class = "RLum.Data.Curve")
  expect_length(bin_RLum.Data(curve)[,1], 500)
  expect_equal(sum(bin_RLum.Data(curve)[,2]), 119200)
  expect_equal(sum(bin_RLum.Data(curve, bin = 5)[1,2]), 41146)
})