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
|
test_fun <- function() {
lifeCycle(newfun = "new_test", package = "BiocBaseUtils")
}
expect_warning(
test_fun(),
"'test_fun' is deprecated\\."
)
expect_warning(
test_fun(),
"Use 'new_test' instead\\."
)
expect_warning(
test_fun(),
"See help\\('BiocBaseUtils-deprecated'\\)\\."
)
test_fun <- function() {
lifeCycle(
newfun = "new_test", package = "BiocBaseUtils", cycle = "defunct"
)
}
expect_error(
test_fun(),
"'test_fun' is defunct\\."
)
expect_error(
test_fun(),
"Use 'new_test' instead\\."
)
expect_error(
test_fun(),
"See help\\('BiocBaseUtils-defunct'\\)\\."
)
|
