tests/testthat/test_featureLibrary_GPC.R

In jchitpin/blistR:

library(testthat)
library(data.table)
library(openxlsx)

test_that("Test featureLibrary GPC", {

    featureLib <- featureLibrary(lipidType = "GPC",
                                 nameQsession = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/listQsession_GPC.txt",
                                 nameLibrary = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_sampleGPCSMv67.xlsx",
                                 indexFeature = 83,
                                 standard = matrix(c("PC(13:0/0:0)", 184.1),
                                                 ncol = 2, byrow=T))

    trueData <- readRDS("/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_20170117_Weston validation plasma_PC MRM_HX.rds")
    expect_equal(featureLib, trueData)

})