Nothing
context("English tests")
test_that("toOrdinal correctly processes integers 0-40 in English", {
first_40 <- c("0th", "1st", "2nd", "3rd", "4th", "5th", "6th", "7th", "8th", "9th",
"10th", "11th", "12th", "13th", "14th", "15th", "16th", "17th",
"18th", "19th", "20th", "21st", "22nd", "23rd", "24th", "25th",
"26th", "27th", "28th", "29th", "30th", "31st", "32nd", "33rd",
"34th", "35th", "36th", "37th", "38th", "39th", "40th")
using_toOrdinal <- sapply(c(0:40), "toOrdinal")
expect_equal(
first_40, using_toOrdinal
)
})
test_that("toOrdinal correctly errors when given a negative integer.",{
expect_error(
toOrdinal(-1), "Number supplied to 'toOrdinal' must be a non-negative integer."
)
})
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.