tests/testthat/test-plossubject.R

In rplos: Interface to the Search API for 'PLoS' Journals

context("plossubject")

skip_on_cran()
skip_if_offline()

test_that("plossubject returns the correct class", {
	vcr::use_cassette("plossubject", {
  	tt <- plossubject(q='marine ecology', fl = 'id,journal', fq='doc_type:full', limit = 9)

  	expect_that(tt$data, is_a("data.frame"))
  	expect_that(dim(tt$data), equals(c(9,2)))
  	expect_that(tt$data$journal, is_a("character"))
  })
})