tests/testthat/test-read_multi.R

In wincowgerDEV/OpenSpecy: Analyze, Process, Identify, and Share Raman and (FT)IR Spectra

# Create temp dir for testthat
tmp <- file.path(tempdir(), "OpenSpecy-testthat")
dir.create(tmp, showWarnings = F)

data("raman_hdpe")

test_that("reading in multi files doesn't throw error", {
  
  #Check new configuration
  expect_silent(multi <- read_extdata("testdata_zipped.zip") |> read_any(c_spec = F))
  expect_type(multi, "list")
  expect_false(is_OpenSpecy(multi))
  expect_true(all(vapply(multi, is_OpenSpecy, FUN.VALUE = logical(1))))
    
  expect_message(multi <- read_extdata("testdata_zipped.zip") |> read_any() |> c_spec())
  expect_silent(multi <- read_extdata("testdata_zipped.zip") |> read_any())
  expect_s3_class(multi, "OpenSpecy")

  expect_equal(multi$wavenumber, raman_hdpe$wavenumber)
  expect_equal(multi$spectra$intensity, raman_hdpe$spectra$intensity)
  expect_equal(multi$spectra$intensity.1, raman_hdpe$spectra$intensity)
  expect_equal(multi$spectra$intensity.2, raman_hdpe$spectra$intensity)
})

# Tidy up
unlink(tmp, recursive = T)