context("utils")
describe("as.ordinal", {
test_that("it correctly turns some numbers into ordinals", {
expect_equal(vapply(c(1, 10, 21, 22, 23, 24), as.ordinal, character(1)),
c("first", "tenth", "21st", "22nd", "23rd", "24th"))
})
})
describe("enforce_type", {
test_that("it fails if a key is missing", {
expect_error((function(a) enforce_type(a, "logical"))(), "Please provide")
})
})
describe("OOP_type_independent_method", {
test_that("it can get the method from a non-reference object", {
expect_identical(OOP_type_independent_method("base", "asNamespace"), asNamespace("base"))
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.