tests/testthat/test-header.R

In fgcz/rawR: Direct Access to Orbitrap Data and Beyond

#R

context("FileHeader")

library(rawrr)

test_that("check readFileHeader", {
  M <- readFileHeader(sampleFilePath())
  
  expect_identical(M$`Scan range`, c(1, 574))
  expect_vector(M$`Scan range`)
  expect_equal(M$`Scan range`, c(1, 574))
})

test_that("check readFileHeader error.", {
  rawfile <- "this file does not exists"
  expect_error(S <- readFileHeader(rawfile))
})