tests/testthat/test_internals_Thermochronometry.R

In Luminescence: Comprehensive Luminescence Dating Data Analysis

input.xls <- test_path("_data/CLBR.xlsx")
input.csv <- file.path(test_path("_data"),
                       paste0("CLBR_IR", c(50, 100, 150, 225), ".csv"))

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

  expect_error(.import_ThermochronometryData(list()),
               "'file' cannot be an empty list")
  expect_error(.import_ThermochronometryData("filename", output_type = "error"),
               "File 'filename' does not exist")
  expect_error(.import_ThermochronometryData(input.xls),
               "File extension 'xlsx' is not supported, only 'csv' is valid")
  expect_error(.import_ThermochronometryData(c(input.csv, input.xls)),
               "File extension 'xlsx' is not supported, only 'csv' is valid")
  expect_error(.import_ThermochronometryData("error"),
               "File 'error' does not exist")
  expect_error(.import_ThermochronometryData(c(input.csv, "error")),
               "File 'error' does not exist")
})

test_that("check functionality", {
  testthat::skip_on_cran()

  expect_snapshot_RLum(.import_ThermochronometryData(input.csv))
  expect_type(.import_ThermochronometryData(input.csv, output_type = "list"),
              "list")
})