diff --git a/tests/testthat/test_fetch.r b/tests/testthat/test_fetch.r
index bf1b4bd..98cb7e1 100644
--- 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)
 })