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)
+})
+
+