inst/tests/test_fetch.r

In rentrez: Entrez in R

context("fetching-records")
test_that("Functions to fetch records & summaries work", {
          #setup
          pop_ids = c("307082412", "307075396", "307075338", "307075274")
          pop_summ <- entrez_summary(db="popset", id=pop_ids)
          sts_summ <- entrez_summary(db="unists", id =33703)
          summ_list_ele <- sts_summ[["Map_Gene_Summary_List"]]
          coi <- entrez_fetch(db = "popset", id = pop_ids[1], 
                              rettype = "fasta")

          #tests
          expect_that(pop_summ[[1]], is_a("esummary"))
          expect_that(length(pop_summ), equals(4))
          sapply(pop_summ, function(x)
                 expect_that(x[["Title"]], matches("Muraenidae")))
          #do lists and structures work?
          expect_that(summ_list_ele, is_a("list"))
          expect_true(length(summ_list_ele) > 0)
          expect_true(length(summ_list_ele[[1]]) >0 )
          #does fetching sequence records work?
          expect_that(length(strsplit(coi, ">")[[1]]), 
                         equals(30))
})