Skip to content

Commit

Permalink
update unit test
Browse files Browse the repository at this point in the history
  • Loading branch information
HajkD committed May 19, 2019
1 parent 9d2ee84 commit 12fb224
Showing 1 changed file with 2 additions and 9 deletions.
11 changes: 2 additions & 9 deletions tests/testthat/test-biomart.R
Original file line number Diff line number Diff line change
Expand Up @@ -14,21 +14,14 @@ 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]),
dataset = "hsapiens_gene_ensembl",
attributes = c("start_position", "end_position", "description"),
filters = "hgnc_symbol"
)[1, 1:3]
),
list(
hgnc_symbol = "GUCA2A",
start_position = 42162691,
end_position = 42164718
)
))


})

0 comments on commit 12fb224

Please sign in to comment.