This a convenience function to make a expectation that checks that input stays the same.
make_expectation(x, expectation = "equals")
a vector of values
the type of equality you want to test for
("equals"
, "is_equivalent_to"
, "is_identical_to"
)
# NOT RUN {
x <- 1:10
make_expectation(x)
make_expectation(mtcars$mpg)
df <- data.frame(x = 2)
make_expectation(df)
# }
Run the code above in your browser using DataLab