tests/testthat/test-enrichment.R

In abodein/netOmics: Multi-Omics (time-course) network-based integration and interpretation

context("ORA")

test_that("get_interaction_from_ORA fails on invalid imput", {
    query <- c("IL15", "CDHR5", "TGFA", 'C4B')
    expect_error(get_interaction_from_ORA(query, sources = "qowiudjh"))
    expect_error(get_interaction_from_ORA(query, sources = c("GO", "KEGG"))) 
})

test_that("get_interaction_from_ORA works ", {
     query <- c("IL15", "CDHR5", "TGFA", 'C4B')
     expect_is(get_interaction_from_ORA(query, sources = "GO"), "igraph")
     expect_is(get_interaction_from_ORA(query, sources = c("KEGG")), "NULL")
     
     
     query <- list("All" = c("IL15", "CDHR5", "TGFA", 'C4B'),
                   "c1" = c("IL15", "CDHR5", "TGFA"))
     expect_is(get_interaction_from_ORA(query, sources = "GO"), "list.igraph")
     query <- list(c("IL15", "CDHR5", "TGFA", 'C4B'), c("IL15", "CDHR5", "TGFA"))
     expect_is(get_interaction_from_ORA(query, sources = "GO"), "list.igraph")
     
})

test_that("get_ORA works", {
    query <- list("All" = c("IL15", "CDHR5", "TGFA", 'C4B'),
                  "c1" = c("IL15", "CDHR5", "TGFA"))
    expect_is(get_ORA(query), "data.frame")
    query <- c("IL15")
    expect_is(get_ORA(query), "data.frame")
})

# test_that("get_go_info works", {
#     expect_is(get_go_info("GO:0044216"), "data.frame")
# })