test_that("use_tidy_description() alphabetises dependencies and remotes", {
pkg <- create_local_package()
use_package("usethis")
use_package("desc")
use_package("withr", "Suggests")
use_package("gh", "Suggests")
desc::desc_set_remotes(c("r-lib/styler", "jimhester/lintr"))
use_tidy_description()
desc <- read_utf8(proj_path("DESCRIPTION"))
expect_gt(grep("usethis", desc), grep("desc", desc))
expect_gt(grep("withr", desc), grep("gh", desc))
expect_gt(grep("r\\-lib\\/styler", desc), grep("jimhester\\/lintr", desc))
})
test_that("use_tidy_dependencies() isn't overly informative", {
skip_on_cran()
skip_if_offline("github.com")
create_local_package(fs::path_temp("tidydeps"))
use_package_doc()
withr::local_options(usethis.quiet = FALSE)
expect_snapshot(use_tidy_dependencies())
})
test_that("use_tidy_eval() inserts the template file and Imports rlang", {
skip_if_not_installed("roxygen2")
pkg <- create_local_package()
use_tidy_eval()
expect_match(dir_ls(proj_path("R")), "utils-tidy-eval.R")
expect_match(desc::desc_get("Imports", pkg), "rlang")
})
test_that("use_tidy_GITHUB-STUFF() adds and Rbuildignores files", {
local_interactive(FALSE)
create_local_package()
use_git()
with_mock(
target_repo_spec = function(...) "OWNER/REPO", {
use_tidy_contributing()
use_tidy_support()
}
)
use_tidy_issue_template()
use_tidy_coc()
expect_proj_file(".github/CONTRIBUTING.md")
expect_proj_file(".github/ISSUE_TEMPLATE/issue_template.md")
expect_proj_file(".github/SUPPORT.md")
expect_proj_file(".github/CODE_OF_CONDUCT.md")
expect_true(is_build_ignored("^\\.github$"))
})
test_that("use_tidy_github() adds and Rbuildignores files", {
local_interactive(FALSE)
create_local_package()
use_git()
with_mock(
target_repo_spec = function(...) "OWNER/REPO",
use_tidy_github()
)
expect_proj_file(".github/CONTRIBUTING.md")
expect_proj_file(".github/ISSUE_TEMPLATE/issue_template.md")
expect_proj_file(".github/SUPPORT.md")
expect_proj_file(".github/CODE_OF_CONDUCT.md")
expect_true(is_build_ignored("^\\.github$"))
})
test_that("styling the package works", {
skip_if(getRversion() < 3.2)
skip_if_no_git_user()
skip_if_not_installed("styler")
pkg <- create_local_package()
use_r("bad_style")
path_to_bad_style <- proj_path("R/bad_style.R")
write_utf8(path_to_bad_style, "a++2\n")
capture_output(use_tidy_style())
expect_identical(read_utf8(path_to_bad_style), "a + +2")
file_delete(path_to_bad_style)
})
test_that("styling of non-packages works", {
skip_if(getRversion() < 3.2)
skip_if_no_git_user()
skip_if_not_installed("styler")
proj <- create_local_project()
path_to_bad_style <- proj_path("R/bad_style.R")
use_r("bad_style")
write_utf8(path_to_bad_style, "a++22\n")
capture_output(use_tidy_style())
expect_identical(read_utf8(path_to_bad_style), "a + +22")
file_delete(path_to_bad_style)
})
Generated by dwww version 1.15 on Tue Jul 2 08:35:40 CEST 2024.