tests/testthat/test-plosword.R

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

context("plosword")

skip_on_cran()
skip_if_offline()

test_that("plosword returns the correct value", {
	vcr::use_cassette("plosword1", {
    expect_that(names(plosword('Helianthus')), equals("Number of articles with search term"))
  })
})

test_that("plosword returns the correct class", {
  vcr::use_cassette("plosword2", {
  	expect_that(plosword(list('monkey','Helianthus','sunflower','protein','whale'), vis = 'TRUE')[[2]],
  							is_a("ggplot"))
  })
})