tests/testthat/test-getPeoplesDaily.R

In jiayiliujiayi/timekiller: Kills time.

test_that("getPeoplesDaily returns science news", {
  x = getPeoplesDaily("headline")
  expect_equal(mode(x), "character")
  expect_equal(class(x), "character")

  x = getPeoplesDaily("latest")
  expect_equal(mode(x), "character")
  expect_equal(class(x), "character")

  x = getPeoplesDaily("tophit")
  expect_equal(mode(x), "character")
  expect_equal(class(x), "character")

})