tests/testthat/test-createVideo.R

context("createVideo")

test_that("canCreateVideo", {
  WPT <- server()
  history <- getHistory(WPT, days = 10L, filter = "google.com")
  tests <- tail(history[["Test ID"]], 5)
  vidRes <- createVideo(WPT, tests = tests)
  expect_identical(names(vidRes), c("videoId", "jsonUrl", "userUrl"))
})
johndharrison/webpagetestr documentation built on May 19, 2019, 5:14 p.m.