tests/testthat/test-read_opus.R

In opusreader2: Read Spectroscopic Data from Bruker OPUS Binary Files

test_that("all test files are parsed without warnings and errors", {
  expect_no_error(read_opus(dsn = opus_test_dsn()))
  expect_no_warning(read_opus(dsn = opus_test_dsn()))
})

test_that("all test files are parsed without warnings and errors when
          `data_only = TRUE`", {
  expect_no_error(
    read_opus(dsn = opus_test_dsn(), data_only = TRUE)
  )
  expect_no_warning(
    read_opus(dsn = opus_test_dsn(), data_only = TRUE)
  )
})

test_that("Parsed data inherits from class 'list_opusreader2'", {
  data <- read_opus(dsn = opus_test_dsn(), data_only = TRUE)
  expect_type(data, "list")

  expect_s3_class(data, c("list_opusreader2", "list"), exact = TRUE)
})