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
|
test_that("basic legacy UI actions behave as expected", {
# suppress test silencing
withr::local_options(list(usethis.quiet = FALSE))
expect_snapshot({
ui_line("line")
ui_todo("to do")
ui_done("done")
ui_oops("oops")
ui_info("info")
ui_code_block(c("x <- 1", "y <- 2"))
ui_warn("a warning")
})
})
test_that("legacy UI actions respect usethis.quiet = TRUE", {
withr::local_options(list(usethis.quiet = TRUE))
expect_no_message({
ui_line("line")
ui_todo("to do")
ui_done("done")
ui_oops("oops")
ui_info("info")
ui_code_block(c("x <- 1", "y <- 2"))
})
})
test_that("ui_stop() works", {
expect_usethis_error(ui_stop("an error"), "an error")
})
test_that("ui_silence() suppresses output", {
# suppress test silencing
withr::local_options(list(usethis.quiet = FALSE))
expect_output(ui_silence(ui_line()), NA)
})
|
