test_that("trigonometric functions match identities", {
expect_equal(sin(pi / 4), 1 / sqrt(2))
expect_equal(cos(pi / 4), 1 / sqrt(2))
expect_equal(tan(pi / 4), 1)
})
if (FALSE) {
test_that("trigonometric functions match identities", {
expect_equal(sin(pi / 4), 1)
})
}
Run the code above in your browser using DataLab