diff --git a/tests/testthat/test-get_gene_infoR.R b/tests/testthat/test-get_gene_infoR.R
new file mode 100644
index 0000000..d13b2f5
--- /dev/null
+++ 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"))
+})