From edf2866eb2f3b6cdb4e9619530aeddac397a8ae6 Mon Sep 17 00:00:00 2001
From: yixuanchen <116841407+yixuan-chen-elisa@users.noreply.github.com>
Date: Wed, 3 Apr 2024 22:10:13 -0400
Subject: [PATCH] Update test_read.modkit.R

---
 tests/testthat/test_read.modkit.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/testthat/test_read.modkit.R b/tests/testthat/test_read.modkit.R
index 5de00ef..e68f750 100644
--- 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")
 })