tests/testthat/test-PlotContribution.R

In HajkD/myTAI: Evolutionary Transcriptomics

context("Test: PlotContribution() ")

data(PhyloExpressionSetExample)
data(DivergenceExpressionSetExample)

nonStandardExpressionSet <- PhyloExpressionSetExample[, 2:9]


test_that("PlotContribution() works properly with PhyloExpressionSet input...",
          {
                  expect_silent(PlotContribution(PhyloExpressionSetExample, legendName = "PS"))
          })

test_that("PlotContribution() works properly with DivergenceExpressionSet input...",
          {
                  expect_silent(PlotContribution(DivergenceExpressionSetExample, legendName = "DS"))
          })

test_that(
        "is.ExpressionSet() throughs error when no ExpressionSet is entered to PlotContribution()",
        {
                expect_error(
                        PlotContribution(nonStandardExpressionSet, legendName = "PS")
                )
        }
)


test_that("Error occurs when legendName is not specified...", {
        expect_error(
                PlotContribution(PhyloExpressionSetExample),
                "Please specify whether your input ExpressionSet stores 'PS' or 'DS'."
        )
})