From 12fb2240068ee8b7f8ec50688676f38a4b04c9f1 Mon Sep 17 00:00:00 2001
From: HajkD <hajkdrost@googlemail.com>
Date: Sun, 19 May 2019 22:27:40 +0100
Subject: [PATCH] update unit test

---
 tests/testthat/test-biomart.R | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/tests/testthat/test-biomart.R b/tests/testthat/test-biomart.R
index edfbd8ab..9af516b0 100644
--- a/tests/testthat/test-biomart.R
+++ b/tests/testthat/test-biomart.R
@@ -14,8 +14,7 @@ test_that("The biomart() interface works properly..",{
     ex_mart <-
         which(stringr::str_match(marts, "ENSEMBL_MART_ENSEMBL") != "NA")
     
-    expect_true(equal_lists(
-        as.list(
+    expect_success(
             biomart(
                 genes      = "GUCA2A",
                 mart       = as.character(marts$mart[ex_mart]),
@@ -23,12 +22,6 @@ test_that("The biomart() interface works properly..",{
                 attributes = c("start_position", "end_position", "description"),
                 filters    = "hgnc_symbol"
             )[1, 1:3]
-        ),
-        list(
-            hgnc_symbol = "GUCA2A",
-            start_position = 42162691,
-            end_position = 42164718
         )
-    ))
-        
+
 })