From bd79f587e9ed00e818daa51551d292990edc15e9 Mon Sep 17 00:00:00 2001
From: James Eapen <james.eapen@vai.org>
Date: Fri, 29 Nov 2024 12:39:32 -0500
Subject: [PATCH] test(utils): get_granges_string

---
 tests/testthat/test-granges.R | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 tests/testthat/test-granges.R

diff --git a/tests/testthat/test-granges.R b/tests/testthat/test-granges.R
new file mode 100644
index 0000000..c19dd12
--- /dev/null
+++ b/tests/testthat/test-granges.R
@@ -0,0 +1,10 @@
+options("iscream.threads" = 1)
+
+regions <- c("chr1:1-6", "chr1:7-10", "chr1:11-14")
+gr <- GenomicRanges::GRanges(regions)
+
+test_that("Test GRanges to string", {
+  expect_equal(get_granges_string(gr), regions)
+})
+
+