assert_is_identical_to_true(TRUE)
assert_is_identical_to_false(FALSE)
assert_is_identical_to_true(c(truth = TRUE), allow_attributes = TRUE)
assert_is_identical_to_false(matrix(FALSE), allow_attributes = TRUE)
x <- c(TRUE, FALSE, NA)
is_true(x)
is_false(x)
assert_any_are_true(x)
assert_any_are_false(x)
# These tests should fail:
dont_stop(assert_is_identical_to_true(c(truth = TRUE)))
dont_stop(assert_is_identical_to_false(matrix(FALSE)))
dont_stop(assert_all_are_true(x))
dont_stop(assert_all_are_false(x))
Run the code above in your browser using DataLab