tests/testthat/test-read_multi.R

In 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", {
  expect_silent(multi <- read_extdata("testdata_zipped.zip") |> read_any())
  expect_s3_class(multi, "OpenSpecy")

  read_extdata("testdata_zipped.zip") |> read_any(share = tmp) |>
    expect_message() |> expect_message() |> expect_message() |>
    expect_warning() |> expect_warning() |> expect_warning()

  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)