diff --git a/tests/testthat/test_utils.R b/tests/testthat/test_utils.R
index a711824..f70617c 100644
--- 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", {