Update test_read.modkit.R

hansenlab · Apr 4, 2024 · edf2866 · edf2866
1 parent c7d1993
commit edf2866
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/testthat/test_read.modkit.R b/tests/testthat/test_read.modkit.R
@@ -2,23 +2,23 @@ context("read.modkit")
 
 # TODO: Re-factor read.modkit() and update tests accordingly
 test_that("read.modkit() works for BED files without 5hmc", {
-    infile <- system.file("extdata", "modkit/chr21.chr22.HG002.top1000.other_mod.bed.gz",
+    infile <- system.file("extdata", "modkit/chr21.chr22.HG002.top1000.bed.gz",
                           package = "bsseq")
     bsseq <- read.modkit(files = infile,
                          colData = NULL,
                          rmZeroCov = FALSE,
                          strandCollapse = TRUE)
 
-    lapply(bsseq, function(x) {expect_is(x, "BSseq")})
+    expect_is(bsseq, "BSseq")
 })
 
 test_that("read.modkit() works for BED files with 5hmc", {
-    infile <- system.file("extdata", "modkit/Hypo1.first40Bed.txt",
+    infile <- system.file("extdata", "modkit/Hypo1.first50Bed.txt",
                           package = "bsseq")
     bsseq <- read.modkit(files = infile,
                          colData = NULL,
                          rmZeroCov = FALSE,
                          strandCollapse = TRUE)
 
-    lapply(bsseq, function(x) {expect_is(x, "BSseq")})
+    expect_is(bsseq, "BSseq")
 })