testthat::context("Check SEDOL validity")
testthat::test_that("sedol_check NULL", {
testthat::expect_equal(sedol_check(character(0)), logical(0))
})
testthat::test_that("sedol_check NA_character_", {
testthat::expect_false(sedol_check(NA_character_))
})
test_that("sedol_check correct SEDOL", {
testthat::expect_true(sedol_check('5437078'))
testthat::expect_true(sedol_check('B923935'))
testthat::expect_true(sedol_check('BF8K6K8'))
testthat::expect_true(sedol_check('4846288'))
testthat::expect_true(sedol_check('0263494'))
testthat::expect_true(sedol_check('2515182'))
testthat::expect_true(sedol_check('5748521'))
testthat::expect_true(sedol_check('2064253'))
testthat::expect_true(sedol_check('B28XP76'))
})
test_that("sedol_check long or short", {
# length should be exactly 7 characters
testthat::expect_true(!sedol_check('54370780'))
testthat::expect_true(!sedol_check('543707'))
})
test_that("sedol_check vowels", {
testthat::expect_true(!sedol_check('A437078'))
testthat::expect_true(!sedol_check('E437078'))
testthat::expect_true(!sedol_check('I437078'))
testthat::expect_true(!sedol_check('U437078'))
})
test_that("sedol_check no lowercase", {
testthat::expect_true(!sedol_check('b923935'))
})
test_that("sedol_check bad checksum digit", {
testthat::expect_true(!sedol_check('5437070'))
testthat::expect_true(!sedol_check('5437071'))
testthat::expect_true(!sedol_check('5437072'))
testthat::expect_true(!sedol_check('5437073'))
testthat::expect_true(!sedol_check('5437074'))
testthat::expect_true(!sedol_check('5437075'))
testthat::expect_true(!sedol_check('5437076'))
testthat::expect_true(!sedol_check('5437077'))
testthat::expect_true(!sedol_check('5437079'))
testthat::expect_true(!sedol_check('B923930'))
testthat::expect_true(!sedol_check('B923931'))
testthat::expect_true(!sedol_check('B923932'))
testthat::expect_true(!sedol_check('B923933'))
testthat::expect_true(!sedol_check('B923934'))
testthat::expect_true(!sedol_check('B923936'))
testthat::expect_true(!sedol_check('B923937'))
testthat::expect_true(!sedol_check('B923938'))
testthat::expect_true(!sedol_check('B923939'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.