tests/testthat/test_wp_trend.R

In wikipediatrend: Public Subject Attention via Wikipedia Page View Statistics

context("wp_trend()")
# ----------------------------------------------------------

test_that("wp_trend()", {
  expect_silent(
    wp_trend(page = "Test")
  )
  
  expect_silent(
   res <- wp_trend(page = "Test", from = "2016-01-01", to = "2016-01-01")
  )
  
  expect_silent(
    plot(res)
  )
  
  expect_warning({
    print.wp_df(res) 
  }, NA)
  
  expect_error({
    print.wp_df(res) 
  }, NA)
  
})