vcr::use_cassette("get_jobs()", {
test_that("enable_repo() works", {
skip_on_cran()
# 'repo' and 'user' need to be set explicitly because `github_info()` will
# fail to lookup the git repo when running code coverage
# calls `get_workflows()` and `get_pipelines()` internally
out <- suppressMessages(
get_jobs(
repo = Sys.getenv("CIRCLE_REPO"),
user = Sys.getenv("CIRCLE_OWNER")
)
)
expect_s3_class(out, "circle_collection")
})
})
vcr::use_cassette("get_build_artifacts()", {
test_that("get_build_artifacts() works", {
skip_on_cran()
# 'repo' and 'user' need to be set explicitly because `github_info()` will
# fail to lookup the git repo when running code coverage
expect_s3_class(
get_build_artifacts(
repo = Sys.getenv("CIRCLE_REPO"),
user = Sys.getenv("CIRCLE_OWNER")
),
"circle_api"
)
})
})
vcr::use_cassette("retry_workflow()", {
test_that("retry_workflow() works", {
skip_on_cran()
# 'repo' and 'user' need to be set explicitly because `github_info()` will
# fail to lookup the git repo when running code coverage
workflow_id <- suppressMessages(
get_workflows(
repo = Sys.getenv("CIRCLE_REPO"),
user = Sys.getenv("CIRCLE_OWNER")
)[[10]]$id
)
expect_s3_class(
retry_workflow(workflow_id),
"circle_api"
)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.