test(query): add tests for query_chroms

huishenlab · Oct 16, 2024 · 3a48e8b · 3a48e8b
1 parent b3b2781
commit 3a48e8b
Show file tree

Hide file tree

Showing 7 changed files with 11 additions and 0 deletions.
diff --git a/inst/extdata/chrom_test/a.bed.gz b/inst/extdata/chrom_test/a.bed.gz
diff --git a/inst/extdata/chrom_test/a.bed.gz.tbi b/inst/extdata/chrom_test/a.bed.gz.tbi
diff --git a/inst/extdata/chrom_test/b.bed.gz b/inst/extdata/chrom_test/b.bed.gz
diff --git a/inst/extdata/chrom_test/b.bed.gz.tbi b/inst/extdata/chrom_test/b.bed.gz.tbi
diff --git a/inst/extdata/chrom_test/c.bed.gz b/inst/extdata/chrom_test/c.bed.gz
diff --git a/inst/extdata/chrom_test/c.bed.gz.tbi b/inst/extdata/chrom_test/c.bed.gz.tbi
diff --git a/tests/testthat/test-query.R b/tests/testthat/test-query.R
@@ -0,0 +1,11 @@
+extdata <- system.file("extdata/chrom_test", package = "iscream")
+bedfiles <- list.files(extdata, pattern = "*.bed.gz$", full.names = T)
+chrs <- sort(paste0("chr", c(seq(1:22), "M", "X", "Y")))
+
+test_that("query_chroms", {
+  expect_equal(
+    chrs,
+    query_chroms(bedfiles)
+  )
+})
+