tests/testthat/test-simulateNormFactors.R

In aoles/DEFormats: Differential gene expression data formats converter

library("DESeq2")
source("utils.R")

context("Simulate normalization factors")

test_that("output is a matrix of desired dimensions and dimnames", {
  expect_is(simulateNormFactors(), "matrix")
  n = 100L
  expect_equal(nrow(simulateNormFactors(n = n)), n)
  m = 4L
  expect_equal(ncol(simulateNormFactors(m = m)), m)
  dimnames = list(as.character(1:n), as.character(1:m))
  expect_equal(dimnames(simulateNormFactors(n = n, m = m, dimnames = dimnames)), dimnames)
})

test_that("the counts table is random and reproducible", {
  expect_identical(simulateNormFactors(), simulateNormFactors())
  expect_different(simulateNormFactors(seed = 0L), simulateNormFactors(seed = 1L))
})

test_that("calling the function doesn't change the global state of the random number generator", {
  expect_rng_unchanged(simulateNormFactors)
})