expect_setequal(x, y)
tests that every element ofx
occurs iny
, and that every element ofy
occurs inx
.expect_contains(x, y)
tests thatx
contains every element ofy
(i.e.y
is a subset ofx
).expect_in(x, y)
tests every element ofx
is iny
(i.e.x
is a subset ofy
).expect_mapequal(x, y)
treats lists as if they are mappings between names and values. Concretely, this dropsNULL
s in both objects and sorts named components.
Usage
expect_setequal(object, expected)
expect_mapequal(object, expected)
expect_contains(object, expected)
expect_in(object, expected)
Arguments
- object, expected
Computation and value to compare it to.
Both arguments supports limited unquoting to make it easier to generate readable failures within a function or for loop. See quasi_label for more details.
Details
Note that expect_setequal()
ignores names, and you will be warned if both
object
and expected
have them.
Examples
expect_setequal(letters, rev(letters))
show_failure(expect_setequal(letters[-1], rev(letters)))
#> Failed expectation:
#> Expected `letters[-1]` to have the same values as `rev(letters)`.
#> Actual: "b", "c", "d", "e", "f", "g", "h", "i", "j", ...
#> Expected: "z", "y", "x", "w", "v", "u", "t", "s", "r", ...
#> Absent: "a"
x <- list(b = 2, a = 1)
expect_mapequal(x, list(a = 1, b = 2))
show_failure(expect_mapequal(x, list(a = 1)))
#> Failed expectation:
#> Expected `x` to be equal to `list(a = 1)`.
#> Differences:
#> `actual` is length 2
#> `expected` is length 1
#>
#> `names(actual)`: "a" "b"
#> `names(expected)`: "a"
#>
#> `actual$b` is a double vector (2)
#> `expected$b` is absent
#>
show_failure(expect_mapequal(x, list(a = 1, b = "x")))
#> Failed expectation:
#> Expected `x` to be equal to `list(a = 1, b = "x")`.
#> Differences:
#> `actual$b` is a double vector (2)
#> `expected$b` is a character vector ('x')
#>
show_failure(expect_mapequal(x, list(a = 1, b = 2, c = 3)))
#> Failed expectation:
#> Expected `x` to be equal to `list(a = 1, b = 2, c = 3)`.
#> Differences:
#> `actual` is length 2
#> `expected` is length 3
#>
#> `names(actual)`: "a" "b"
#> `names(expected)`: "a" "b" "c"
#>
#> `actual$c` is absent
#> `expected$c` is a double vector (3)
#>