Nothing
test_that("expect_true_false_linter skips allowed usages", {
# expect_true is a scalar test; testing logical vectors with expect_equal is OK
expect_lint("expect_equal(x, c(TRUE, FALSE))", NULL, expect_true_false_linter())
})
test_that("expect_true_false_linter blocks simple disallowed usages", {
expect_lint(
"expect_equal(foo(x), TRUE)",
rex::rex("expect_true(x) is better than expect_equal(x, TRUE)"),
expect_true_false_linter()
)
# expect_identical is treated the same as expect_equal
expect_lint(
"testthat::expect_identical(x, FALSE)",
rex::rex("expect_false(x) is better than expect_identical(x, FALSE)"),
expect_true_false_linter()
)
# also caught when TRUE/FALSE is the first argument
expect_lint(
"expect_equal(TRUE, foo(x))",
rex::rex("expect_true(x) is better than expect_equal(x, TRUE)"),
expect_true_false_linter()
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.