tests/testthat/test_DGOassociationNetwork.R

In JoelleJee/DGOplot: DO and GO Enrichment Analyses Plotting

#test_DGOassociationNetwork.R



context("DGOassociationNetwork")



# ==== LOAD DATA =================================================

#

data(geneList)  # load data from DOSE package

gene <- names(geneList)[abs(geneList) > 2]

DGOResult <- enrichDGO(gene, universe = names(geneList))

DGObargraph <- DGObarplot(DGOResult)



#

# ==== END SETUP AND PREPARE ===================================================



test_that("corrupt input generates errors", {
  
  expect_error(DGOnetplot(c()),
               "The input should be a list of 2 enricResult objects.")
  
  r <- c(1,2)
  expect_error(DGOnetplot(r),
               "DO enrichment results and GO enrichment results")
  
  names(r) <- c("DO", "GO")
  expect_error(DGOnetplot(r), "2 of enrichResult objects")
  
})

test_that("valid number of gene ontology groups and showCategory value", {
  
  # check warning message properly produces when
  # showCategory is greater than the number of gene ontology groups
  # in DGO enrichment analysis
  expect_error(DGOnetplot(DGOResult, showCategory = 8),
                 "showCategory must be 6 or less")
  
  # make an empty copy of DGOResult to test that DGObarplot throws an error
  DGObarEmpty <- DGOResult
  DGObarEmpty[["DO"]]@result <- data.frame()
  DGObarEmpty[["GO"]]@result <- data.frame()
  
  expect_error(DGOnetplot(DGObarEmpty), "pvalueCutoff")
  
  # check that if pvalueCutoff is too low, it throws an error
  expect_error(DGOnetplot(DGOResult, pvalueCutoff = 0),
               "pvalueCutoff")
  
})

test_that("a sample input produces the expected output",  {
  
  expect_equal(class(DGObargraph), c("gg", "ggplot"))
  
})


# [END]