context("to_lower_camel_case")
test_that("examples", {
expect_equal(to_lower_camel_case(cases[["examples"]]),
cases[["small_camel_case"]])}
)
test_that("rules",{
examples <- cases[["examples"]]
expect_equal(to_lower_camel_case(to_snake_case(examples)),
to_lower_camel_case(examples)
)
expect_equal(to_lower_camel_case(to_lower_camel_case(examples)),
to_lower_camel_case(examples)
)
expect_equal(to_lower_camel_case(to_upper_camel_case(examples)),
to_lower_camel_case(examples)
)
expect_equal(to_lower_camel_case(to_screaming_snake_case(examples)),
to_lower_camel_case(examples)
)
expect_equal(to_lower_camel_case(to_parsed_case(examples)),
to_lower_camel_case(examples)
)
})
test_that("preserve-name-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_lower_camel_case(labs),
structure(c("abcDef", "bbccEe", "teEStIt"), .Names = c("a", "b",
"c"))
)
})
test_that("abbreviations", {
expect_equal(to_lower_camel_case("t2d_status", abbreviations = "t2d"),
"t2dStatus")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.