1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
test_that("sets version for imports & depends dependencies", {
skip_if_offline()
withr::local_options(list(repos = c(CRAN = "https://cloud.r-project.org")))
create_local_package()
use_package("usethis")
use_package("desc", "Depends")
use_latest_dependencies()
deps <- proj_deps()
expect_equal(
deps$version[deps$package %in% c("usethis", "desc")] == "*",
c(FALSE, FALSE)
)
})
test_that("doesn't affect suggests", {
skip_if_offline()
withr::local_options(list(repos = c(CRAN = "https://cloud.r-project.org")))
create_local_package()
use_package("cli", "Suggests")
use_latest_dependencies()
deps <- proj_deps()
expect_equal(deps$version[deps$package == "cli"], "*")
})
test_that("does nothing for a base package", {
skip_if_offline()
withr::local_options(list(repos = c(CRAN = "https://cloud.r-project.org")))
create_local_package()
use_package("tools")
# if usethis ever depends on a recommended package, we could test that here too
use_latest_dependencies()
deps <- proj_deps()
expect_equal(deps$version[deps$package == "tools"], "*")
})
|
