tests/testthat/test_convert_Concentration2DoseRate.R

In Luminescence: Comprehensive Luminescence Dating Data Analysis

test_that("basic checks", {
  testthat::skip_on_cran()
  local_edition(3)

  ## template
  template <- expect_s3_class(convert_Concentration2DoseRate(), "data.frame")

  ## break function
  expect_error(convert_Concentration2DoseRate(input = "fail"),
               regexp = "input must be of type 'data.frame or 'matrix'")

  expect_error(convert_Concentration2DoseRate(input = data.frame(x = 1, y = 2)),
               regexp = "number of rows/columns in input does not match the requirements. See manual!")

  expect_error(
    convert_Concentration2DoseRate(suppressMessages(convert_Concentration2DoseRate()), conversion = "fail"),
    regexp = "You have not entered a valid conversion. Please check your spelling and consult the documentation!")

  template[[1]] <- "fail"
  expect_error(convert_Concentration2DoseRate(template), regexp = "As mineral only 'FS' or 'Q' is supported!")

  ## run function
  ## for FS
  df <-
    data.frame(
      Mineral = "FS",
      K = 2.13,
      K_SE = 0.07,
      Th = 9.76,
      Th_SE = 0.32,
      U = 2.24,
      U_SE = 0.12,
      GrainSize = 200,
      WaterContent = 30,
      WaterContent_SE = 5
    )

   expect_s4_class(object = convert_Concentration2DoseRate(df), class = "RLum.Results")

   ## for Q
   df$Mineral <- "Q"
   expect_s4_class(object = convert_Concentration2DoseRate(df), class = "RLum.Results")

})