Skip to content

Commit a9e9c0e

Browse files
[skip style] [skip vbump] Restyle files
1 parent abcab21 commit a9e9c0e

File tree

1 file changed

+8
-2
lines changed

1 file changed

+8
-2
lines changed

tests/testthat/test-qenv_extract.R

Lines changed: 8 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,19 @@
11
testthat::test_that("`[.` returns empty qenv for names not in qenv", {
2-
data <- within(qenv(), {x = 1; a = 2})
2+
data <- within(qenv(), {
3+
x <- 1
4+
a <- 2
5+
})
36
testthat::expect_warning(
47
testthat::expect_equal(data["y"], qenv()),
58
"None of `names` elements exist in `qenv`. Returning empty `qenv`."
69
)
710
})
811

912
testthat::test_that("`[.` returns limited qenv for some names not in qenv", {
10-
data <- within(qenv(), {x = 1; a = 2})
13+
data <- within(qenv(), {
14+
x <- 1
15+
a <- 2
16+
})
1117
testthat::expect_warning(
1218
testthat::expect_equal(data[c("y", "a")], data["a"]),
1319
"Some elements of `names` do not exist in `qenv`. Skipping those: y."

0 commit comments

Comments
 (0)