tests/testthat/test-get_activity.R

context("test-get_activity.R")

test_that("get_activity works", {
  res <- get_activity()

  expect_is(res, "list")
  expect_is(res$streams, "list")
  expect_is(res$bandwidth, "list")
  expect_is(res$sessions, "data.frame")
  expect_error(get_activity(url = "google.de"))
})

Try the tauturri package in your browser

Any scripts or data that you put into this service are public.

tauturri documentation built on May 2, 2019, 1:07 p.m.