library(VEH0122)
context("main")
test_that("sheetIsAYear doesn't give an error for non-numbers", {
expect_equal(FALSE, sheetIsAYear("234L"))
expect_equal(FALSE, sheetIsAYear("L65L"))
expect_equal(FALSE, sheetIsAYear("LsdfsdL"))
expect_equal(FALSE, sheetIsAYear("LSdf"))
})
test_that("sheetIsAYear returns true for four letter numbers", {
expect_equal(TRUE, sheetIsAYear(2345))
expect_equal(TRUE, sheetIsAYear("4356"))
expect_equal(FALSE, sheetIsAYear(12345))
expect_equal(FALSE, sheetIsAYear("12345"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.