Skip to content
Snippets Groups Projects
Commit d8e3e564 authored by Todor Kondić's avatar Todor Kondić
Browse files

tests: Add tests for state.R

parent 7cec0b03
No related branches found
No related tags found
No related merge requests found
File added
STATE_DATA <- readRDS(system.file("testdata","test-state.rds",package="shinyscreen"))
test_that("pack_ms2_w_summ",{
summ = STATE_DATA$out$tab$summ
ms2 = STATE_DATA$extr$ms2
res = pack_ms2_w_summ(summ,ms2)
expect_identical(res[1,adduct],'[M+H]+')
expect_identical(res[1,tag],'AA')
expect_identical(res[1,ID],'100')
expect_equal(res[1,an],5413)
expect_equal(res[1,mz],182.0816)
expect_identical(res[29,adduct],'[M+H]+')
expect_identical(res[29,tag],'WT')
expect_identical(res[29,ID],'112')
expect_equal(res[29,an],2838)
expect_equal(res[29,mz],268.1045)
})
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment