tests/testthat/test-PDtoMSstatsTMTFormat.R

In huang704/MSstatsTMT: Protein Significance Analysis in shotgun mass spectrometry-based proteomic experiments with tandem mass tag (TMT) labeling

context("PDtoMSstatsTMTFormat")
context("MaxQtoMSstatsTMTFormat")
context("SpectroMinetoMSstatsTMTFormat")

test_that("PDtoMSstatsTMTFormat works", {

    expect_error(PDtoMSstatsTMTFormat(input = MSstatsTMT::raw.pd[, !colnames(MSstatsTMT::raw.pd) == "Protein.Accessions"], # missing columns in input
                                    annotation = MSstatsTMT::annotation.pd))

    expect_error(PDtoMSstatsTMTFormat(input = MSstatsTMT::raw.pd,
                                      annotation = MSstatsTMT::annotation.pd[, !colnames(MSstatsTMT::annotation.pd) == "Condition"])) # missing columns in annotation

})

test_that("MaxQtoMSstatsTMTFormat works", {

    expect_error(MaxQtoMSstatsTMTFormat(evidence = MSstatsTMT::evidence, proteinGroups = MSstatsTMT::proteinGroups,
                                        annotation = MSstatsTMT::annotation.pd)) # wrong annotation file

})

test_that("SpectroMinetoMSstatsTMTFormat works", {

    expect_error(SpectroMinetoMSstatsTMTFormat(input = MSstatsTMT::raw.mine,
                                        annotation = MSstatsTMT::annotation.mine,
                                        summaryforMultipleRows = min)) # wrong argument value

})