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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
test_that("valid_package_name() enforces valid package names", {
# Contain only ASCII letters, numbers, and '.'
# Have at least two characters
# Start with a letter
# Not end with '.'
expect_true(valid_package_name("aa"))
expect_true(valid_package_name("a7"))
expect_true(valid_package_name("a.2"))
expect_false(valid_package_name("a"))
expect_false(valid_package_name("a-2"))
expect_false(valid_package_name("2fa"))
expect_false(valid_package_name(".fa"))
expect_false(valid_package_name("aa\u00C0")) # \u00C0 is a-grave
expect_false(valid_package_name("a3."))
})
test_that("valid_file_name() enforces valid file names", {
# Contain only ASCII letters, numbers, '-', and '_'
expect_true(valid_file_name("aa.R"))
expect_true(valid_file_name("a7.R"))
expect_true(valid_file_name("a-2.R"))
expect_true(valid_file_name("a_2.R"))
expect_false(valid_file_name("aa\u00C0.R")) # \u00C0 is a-grave
expect_false(valid_file_name("a?3.R"))
})
# use_dependency ----------------------------------------------------------
test_that("we message for new type and are silent for same type", {
create_local_package()
withr::local_options(usethis.quiet = FALSE)
expect_snapshot(
use_dependency("crayon", "Imports")
)
expect_silent(use_dependency("crayon", "Imports"))
})
test_that("we message for version change and are silent for same version", {
create_local_package()
withr::local_options(usethis.quiet = FALSE)
expect_snapshot(
use_dependency("crayon", "Imports")
)
expect_snapshot(
use_dependency("crayon", "Imports", min_version = "1.0.0")
)
expect_silent(use_dependency("crayon", "Imports", min_version = "1.0.0"))
expect_snapshot(
use_dependency("crayon", "Imports", min_version = "2.0.0")
)
expect_snapshot(
use_dependency("crayon", "Imports", min_version = "1.0.0")
)
})
## https://github.com/r-lib/usethis/issues/99
test_that("use_dependency() upgrades a dependency", {
create_local_package()
withr::local_options(usethis.quiet = FALSE)
expect_snapshot(use_dependency("usethis", "Suggests"))
expect_match(desc::desc_get("Suggests"), "usethis")
expect_snapshot(use_dependency("usethis", "Imports"))
expect_match(desc::desc_get("Imports"), "usethis")
expect_no_match(desc::desc_get("Suggests"), "usethis")
})
## https://github.com/r-lib/usethis/issues/99
test_that("use_dependency() declines to downgrade a dependency", {
create_local_package()
withr::local_options(usethis.quiet = FALSE)
expect_snapshot(use_dependency("usethis", "Imports"))
expect_match(desc::desc_get("Imports"), "usethis")
expect_snapshot(use_dependency("usethis", "Suggests"))
expect_match(desc::desc_get("Imports"), "usethis")
expect_no_match(desc::desc_get("Suggests"), "usethis")
})
test_that("can add LinkingTo dependency if other dependency already exists", {
create_local_package()
use_dependency("rlang", "Imports")
withr::local_options(usethis.quiet = FALSE)
expect_snapshot(
use_dependency("rlang", "LinkingTo")
)
deps <- proj_deps()
expect_setequal(deps$type, c("Imports", "LinkingTo"))
expect_setequal(deps$package, "rlang")
})
test_that("use_dependency() does not fall over on 2nd LinkingTo request", {
create_local_package()
local_interactive(FALSE)
use_dependency("rlang", "LinkingTo")
withr::local_options(usethis.quiet = FALSE)
expect_snapshot(use_dependency("rlang", "LinkingTo"))
})
# https://github.com/r-lib/usethis/issues/1649
test_that("use_dependency() can level up a LinkingTo dependency", {
create_local_package()
use_dependency("rlang", "LinkingTo")
use_dependency("rlang", "Suggests")
withr::local_options(usethis.quiet = FALSE)
expect_snapshot(use_package("rlang"))
deps <- proj_deps()
expect_setequal(deps$type, c("Imports", "LinkingTo"))
expect_setequal(deps$package, "rlang")
})
|
