blistR:

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

test_that("Test featureLibrary SPH", {

    featureLib <- featureLibrary(lipidType = "SPH",
                                 nameQsession = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/listQsession_SPH.txt",
                                 nameLibrary = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_sampleSphingolipidsv109.xlsx",
                                 indexFeature = 83,
                                 standard = matrix(c("C16-D31 Ceramide", 264.3,
                                                     "SM(d18:1/18:1-d9)", 184.1),
                                                   ncol = 2, byrow = T))

    trueData <- readRDS("/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/testthat_Validation Sphingo GT Jan 20 2017 only 192 samples Jan 27 2017.rds")
    expect_equal(featureLib, trueData)

})