get_gene_info unit tests

mattssca · Jan 9, 2024 · 1f30f86 · 1f30f86
1 parent 3c2bbce
commit 1f30f86
Showing 1 changed file with 36 additions and 0 deletions.
diff --git a/tests/testthat/test-get_gene_infoR.R b/tests/testthat/test-get_gene_infoR.R
@@ -0,0 +1,36 @@
+#load pacakges
+library(testthat)
+
+
+test_that("Check for rows and column consistencies", {
+  expect_equal(nrow(get_gene_info(these_genes = "MYC", 
+                                  projection = "grch37", 
+                                  raw = TRUE)), 1)
+
+  expect_equal(nrow(get_gene_info(these_genes = "MYC", 
+                                  projection = "hg38", 
+                                  raw = TRUE)), 1)
+
+  expect_equal(ncol(get_gene_info(these_genes = "MYC", 
+                                  projection = "grch37", 
+                                  raw = TRUE)), 26)
+
+  expect_equal(ncol(get_gene_info(these_genes = "MYC", 
+                                  projection = "hg38", 
+                                  raw = TRUE)), 26)
+
+  expect_equal(ncol(get_gene_info(these_genes = "MYC", 
+                                  projection = "grch37", 
+                                  raw = FALSE)), 19)
+
+  expect_equal(ncol(get_gene_info(these_genes = "MYC", 
+                                  projection = "hg38", 
+                                  raw = FALSE)), 19)
+})
+
+
+test_that("Expected to fail", {
+  expect_error(get_gene_info(raw = TRUE))
+  expect_error(get_gene_info(these_genes = "MYC",
+                             projection = "hg19"))
+})