--- a
+++ b/tests/testthat/test-enrichment.R
@@ -0,0 +1,33 @@
+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")
+# })