context("Test: PlotRE() ")

data(PhyloExpressionSetExample)
data(DivergenceExpressionSetExample)

nonStandardExpressionSet <- PhyloExpressionSetExample[, 2:9]

test_that("is.ExpressionSet() throughs error when no ExpressionSet is entered to PlotRE()",
          {
                  expect_error(
                          PlotRE(nonStandardExpressionSet, list(1:3, 4:12), "PS")
                  )
          })


test_that("error occurs when Groups are not specified ", {
        expect_error(
                PlotRE(PhyloExpressionSetExample),
                "Your Groups list does not store any items."
        )
})


test_that(
        "error occurs when PS or DS are specified in Groups which are not present in the ExpressionSet ",
        {
                expect_error(
                        PlotRE(PhyloExpressionSetExample, list(1:3, 4:13), "PS"),
                        "There are items in your Group elements that are not available in the age column of your ExpressionSet."
                )
                expect_error(
                        PlotRE(DivergenceExpressionSetExample, list(1:12), "DS"),
                        "There are items in your Group elements that are not available in the age column of your ExpressionSet."
                )
                
        }
)