tests/testthat/test_rdf.R

In feedeR: Read RSS, Atom and RDF Feeds

context("RDF")

URL = "http://feeds.nature.com/nplants/rss/current"

document = paste(readLines(URL), collapse = "\n")

test_that("parse RDF feed", {
  feed <<- feed_read(document)
  expect_is(feed, "list")
})

test_that("identify RDF feed", {
  expect_equal(feed_type(feed), "RDF")
})

test_that("read RDF feed", {
  expect_type(feed.extract(URL), "list")
})