fixed the fetch tests

ropensci · Apr 21, 2016 · 33bc48a · 33bc48a
1 parent 4824892
commit 33bc48a
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/tests/testthat/test_fetch.r b/tests/testthat/test_fetch.r
@@ -5,12 +5,10 @@ pop_ids = c("307082412", "307075396", "307075338", "307075274")
 coi <- entrez_fetch(db = "popset", id = pop_ids[1], 
                     rettype = "fasta")
 xml_rec <- entrez_fetch(db = "popset", id=pop_ids[1], rettype="xml", parsed=TRUE)
-
+raw_rec <- entrez_fetch(db = "popset", id=pop_ids[1], rettype="xml")
 
 test_that("httr does no warn about inferred encoding", {
-    expect_message(
-       raw_rec <- entrez_fetch(db = "popset", id=pop_ids[1], rettype="xml"), NA
-    )
+    expect_message( entrez_fetch(db = "popset", id=pop_ids[1], rettype="uilist"), NA)
 })