Nothing
test_that("returns the correct linting", {
cc_linter_1 <- cyclocomp_linter(1L)
cc_linter_2 <- cyclocomp_linter(2L)
lint_msg <- rex::rex("Functions should have cyclomatic complexity")
expect_lint("if (TRUE) 1 else 2", NULL, cc_linter_2)
expect_lint("if (TRUE) 1 else 2", lint_msg, cc_linter_1)
expect_lint(
"function(x) {not parsing}",
"unexpected symbol", cc_linter_2
)
complexity <- readLines(
system.file("example/complexity.R", package = "lintr")
)
expect_lint(complexity, lint_msg, cc_linter_2)
expect_lint(
complexity,
"should have cyclomatic complexity of less than 2, this has 10",
cc_linter_2
)
expect_lint(complexity, NULL, cyclocomp_linter(10L))
})
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.