From 6ad90f69ca5e292da55c95b842abc56110244b26 Mon Sep 17 00:00:00 2001
From: Pariksheet Nanda <pariksheet.nanda@uconn.edu>
Date: Sun, 8 Apr 2018 12:02:20 -0400
Subject: [PATCH] TST: Explicitly subset Rle instead of using lapply to fix #4

---
 tests/testthat/test_utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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", {