test_util.R
In feedeR: Read RSS, Atom and RDF Feeds

context("URL")

test_that("insert missing http://", {
  expect_equal(clean.url("feeds.feedburner.com/RBloggers"), "http://feeds.feedburner.com/RBloggers")
})

context("Date/Time")

test_that("handling of date/time like 'Fri, 05 Aug 2016 13:28:00 +0000'", {
  expect_equal(parse.date("Fri, 05 Aug 2016 13:28:00 +0000"), as.POSIXct(as.POSIXct("2016-08-05 13:28:00", tz = "UTC")))
})

test_that("Y-m-d H:M:S z", {
  expect_equal(parse.date("2016-08-05T06:28:00-07:00"), as.POSIXct("2016-08-05 13:28:00", tz = "UTC"))
  expect_equal(parse.date("2016-08-19T10:32:28+01:00"), as.POSIXct("2016-08-19 09:32:28", tz = "UTC"))
})

test_that("a b d H:M:S z Y", {
  expect_equal(parse.date("Mon Oct 17 08:41:11 UTC 2016"), as.POSIXct("2016-10-17 08:41:11", tz = "UTC"))
})

test_that("handling of date/time like '5 Aug 2016 13:28:00'", {
  expect_equal(parse.date("5 Aug 2016 13:28:00"), as.POSIXct(as.POSIXct("2016-08-05 13:28:00", tz = "UTC")))
})

test_that("handling of date/time like '5 Aug 2016 10:28:00 -0300'", {
  expect_equal(parse.date("5 Aug 2016 10:28:00 -0300"), as.POSIXct(as.POSIXct("2016-08-05 13:28:00", tz = "UTC")))
})

# - http://feeds.feedburner.com/analisemacro?format=xml
#
# Dates in posts are fine but <lastBuildDate> has funky format.
#
test_that("handling of date/time like 'sáb, 24 dez 2016 13:40:30 +0000'", {
  expect_equal(parse.date("5 Aug 2016 10:28:00 -0300"), as.POSIXct(as.POSIXct("2016-08-05 13:28:00 UTC", tz = "UTC")))
})