TST: Explicitly subset Rle instead of using lapply to fix #4

coregenomics · Apr 8, 2018 · 6ad90f6 · 6ad90f6
1 parent ae7968b
commit 6ad90f6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test_utils.R b/tests/testthat/test_utils.R
@@ -3,7 +3,7 @@ context("Utilities")
 test_that("windowAnalysis returns list", {
     result <- windowAnalysis(reads = tx, windowSize = 100)
     expect_is(result, "list")
-    lapply(result, expect_is, "Rle")
+    expect_is(result[[1]], "Rle")
 })
 
 test_that("windowAnalysis returns correct Rle value", {