tests/testthat/test-drop.R

In vjcitn/MultiAssayExperiment: Software for the integration of multi-omics experiments in Bioconductor

context("drop argument for rows works as it should")

example("MultiAssayExperiment")

test_that("when drop is TRUE, length of ExperimentList is correct", {
  expect_true(length(myMultiAssayExperiment[FALSE, , , drop = TRUE]) == 0L)
})
test_that("when drop is FALSE, length is the same", {
  expect_true(length(myMultiAssayExperiment[FALSE, , , drop = FALSE])
              == length(myMultiAssayExperiment))
})

context("drop arugment for columns works as it should")

test_that("when drop is TRUE, length of ExperimentList is correct", {
  expect_true(length(myMultiAssayExperiment[, FALSE, , drop = TRUE]) == 0L)
})
test_that("when drop is FALSE, length is the same", {
  expect_true(length(myMultiAssayExperiment[, FALSE, , , drop = FALSE])
              == length(myMultiAssayExperiment))
})