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"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.