test_that("use_[cran|bioc]_badge() don't error", {
create_local_package()
expect_error_free(use_cran_badge())
expect_error_free(use_bioc_badge())
})
test_that("use_lifecycle_badge() handles bad and good input", {
create_local_package()
expect_snapshot(error = TRUE, {
use_lifecycle_badge()
use_lifecycle_badge("eperimental")
})
expect_error_free(use_lifecycle_badge("stable"))
})
test_that("use_binder_badge() needs a github repository", {
skip_if_no_git_user()
create_local_project()
use_git()
expect_error(use_binder_badge(), class = "usethis_error_bad_github_remote_config")
})
test_that("use_rscloud_badge() handles bad and good input", {
create_local_project()
expect_error(use_rscloud_badge())
expect_error(use_rscloud_badge(123))
expect_error(use_rscloud_badge("http://rstudio.cloud/123"))
expect_error_free(use_rscloud_badge("https://rstudio.cloud/project/123"))
expect_error_free(use_rscloud_badge("https://rstudio.cloud/spaces/123/project/123"))
})
test_that("use_badge() does nothing if badge seems to pre-exist", {
create_local_package()
href <- "https://cran.r-project.org/package=foo"
writeLines(href, proj_path("README.md"))
expect_false(use_badge("foo", href, "SRC"))
})
Generated by dwww version 1.15 on Tue Jul 2 09:11:16 CEST 2024.