tests/testthat/test-assignColours.R

In qPLEXanalyzer: Tools for qPLEX-RIME data analysis

context("Assign Colours")
library(qPLEXanalyzer)

data(exp3_OHT_ESR1)
rawMSnSet <- convertToMSnset(exp3_OHT_ESR1$intensities_qPLEX1,
                               metadata = exp3_OHT_ESR1$metadata_qPLEX1,
                               indExpData = c(7:16),
                               Sequences = 2,
                               Accessions = 6)

# test the function

test_that("assign colours works", {
  expect_equal_to_reference(
    assignColours(rawMSnSet), 
    file="assignColours_sg.rds")
  expect_equal_to_reference(
    assignColours(rawMSnSet, colourBy = "BioRep"), 
    file="assignColours_rep.rds")
})

# test the argument checks

test_that("argument checks - MSnset", {
  expect_error(assignColours(MSnSetObj = 1), 
               regexp = "MSnSetObj has to be of class MSnSet")
})
test_that("argument checks - colourBy", {
  expect_error(assignColours(MSnSetObj = rawMSnSet, colourBy="Wibble"), 
               regexp = "column Wibble not found in the MSnset metadata")
})