tests/testthat/test-utils_general.R

In jdreyf/ezlimma: Streamlines and extends limma package

context("utils general")

test_that("df_signif doesn't corrupt inputs", {
  test.df <- data.frame("num1-2"=1:4, num2=5:8, char1=letters[1:4], char2=letters[5:8], check.names=FALSE)
  expect_equal(df_signif(test.df[,2:4]), test.df[,2:4])
  expect_equal(df_signif(test.df[,1:3]), test.df[,1:3])
  expect_equal(df_signif(test.df[,3:4]), test.df[,3:4])
  expect_equal(df_signif(test.df[,1:2]), test.df[,1:2])
})

test_that("logfc2fc", {
  expect_equal(logfc2fc(2), 4)
  expect_equal(logfc2fc(0), 1)
  expect_equal(logfc2fc(-2), -4)
})