Nothing
testthat::context("Connections")
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("startConnectionWithYoutube connectionWithYoutube=FALSE",{
testthat::skip_if_not_installed("tuber")
connection <- Connections$new()
testthat::expect_error(connection$startConnectionWithYoutube(),
"[Connections][startConnectionWithYoutube][FATAL] Youtube API keys are not defined on bdpar.Options",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("startConnectionWithYoutube connectionWithYoutube=TRUE",{
testthat::skip_if_not_installed("tuber")
connection <- Connections$new()
connection$.__enclos_env__$private$connectionWithYoutube <- TRUE
testthat::expect_null(connection$startConnectionWithYoutube())
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("addNumRequestToYoutube",{
#Path where the configuration file are located
connection <- Connections$new()
connection$addNumRequestToYoutube()
testthat::expect_equal(connection$.__enclos_env__$private$numRequestToYoutube,
1)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("checkRequestToYoutube numRequest < numRequestMax",{
testthat::skip_if_not_installed("tuber")
connection <- Connections$new()
connection$.__enclos_env__$private$numRequestToYoutube <- 0
connection$.__enclos_env__$private$numRequestMaxToYoutube <- 1
testthat::expect_null(connection$checkRequestToYoutube())
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getNumRequestMaxToYoutube",{
testthat::skip_if_not_installed("tuber")
connection <- Connections$new()
testthat::expect_type(connection$getNumRequestMaxToYoutube(), "double")
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.