inst/unitTests/test_convertMSP2MSP.R

In PlantDefenseMetabolism/MetCirc: Navigating mass spectral similarity in high-resolution MS/MS metabolomics data

data("convertMSP2MSP", package = "MetCirc")
msp <- convertMSP2MSP(msp2msp)
## START unit test convertMSP2MSP
test_convertMSP2MSP <- function() {
    checkEquals(dim(msp@msp), c(697, 2))
    checkEquals(length(msp@mz), 22)
    checkTrue(is.numeric(msp@mz))
    checkTrue(is.numeric(msp@rt))
    checkTrue(is.character(msp@names))
    checkTrue(is.character(msp@classes))
    checkTrue(is.character(msp@information))
    checkTrue(is.character(msp@adduct))
    checkException(
        convertMSP2MSP(data.frame(x = c("a", "b", "c"), y = c(1, 2, 3))))
    checkException(
        convertMSP2MSP(data.frame(x = c("NAME: ", "RETENTIONTIME: ", "c"), y = c(1, 2, 3))))
}
## END unit test convertMSP2MSP