tests/testthat/test_histPlot.R

In CeTF: Coexpression for Transcription Factors using Regulatory Impact Factors and Partial Correlation and Information Theory analysis

context("histPlot")

data('simNorm')
results0 <- list()
results <- PCIT(simNorm[1:10, ])

test_that('histPlot throws an error when there are no result', {
  expect_error(histPlot(results0))
})

test_that('histPlot throws an error when the wrong element of the list is selected', {
  expect_error(histPlot(results$tab))
})