tests/testthat/test_read_SPE2R.R

In Luminescence: Comprehensive Luminescence Dating Data Analysis

test_that("Test general functionality", {
  testthat::skip_on_cran()
  local_edition(3)

  ##crash function
  expect_null(read_SPE2R(file = "text"))

  ## default values
  expect_s4_class(
    read_SPE2R(
      "https://github.com/R-Lum/Luminescence/blob/master/tests/testdata/SPEfile.SPE?raw=true"
    ),
    "RLum.Data.Image"
  )

  ##test verbose
  expect_s4_class(
    read_SPE2R(
      "https://github.com/R-Lum/Luminescence/blob/master/tests/testdata/SPEfile.SPE?raw=true",
      verbose = FALSE
    ),
    "RLum.Data.Image"
  )

})