tests/testthat/test-detectInfusionScans.R

context('detectInfusionScans')

test_that('detectInfusionScans works',{
	file <- system.file('example-data/1.mzML.gz',package = 'binneR')
	
	scans <- detectInfusionScans(file)
	
	expect_type(scans,'integer')
	expect_identical(scans,as.integer(c(5:13)))
})
aberHRML/binneR documentation built on Aug. 25, 2023, 1:33 p.m.