# NOT RUN {
expect_true(2 == 2)
# Failed expectations will throw an error
# }
# NOT RUN {
expect_true(2 != 2)
# }
# NOT RUN {
expect_true(!(2 != 2))
# or better:
expect_false(2 != 2)
a <- 1:3
expect_true(length(a) == 3)
# but better to use more specific expectation, if available
expect_equal(length(a), 3)
# }
Run the code above in your browser using DataLab