tests/testthat.R

In sneumann/MsBackendMsp: Mass Spectrometry Data Backend for NIST msp Files

library(testthat)
library(MsBackendMsp)

## Run specific (backend) package tests
test_check("MsBackendMsp")

## Run additional tests from Spectra:
test_suite <- system.file("test_backends", "test_MsBackend",
                          package = "Spectra")

fls <- system.file("extdata", "minimona.msp", package = "MsBackendMsp")
be <- MsBackendMsp()
be <- backendInitialize(
    be, fls, mapping = spectraVariableMapping(MsBackendMsp(), "mona"))

test_dir(test_suite, stop_on_failure = TRUE)