context("term key")
na_list <- list(
academic_year = NA_integer_,
term_season = NA_character_,
term_season_number = NA_integer_,
termcode = NA_integer_,
term_name = NA_character_,
fiscal_year = NA_integer_,
seasonkey = NA_integer_
)
test_that("Correctly validates", {
expect_equal(validate_termkey(NA_integer_), NA_integer_)
expect_equal(validate_termkey(NA_character_), NA_integer_)
expect_equal(validate_termkey(-2), NA_integer_)
expect_equal(validate_termkey(-1), NA_integer_)
expect_equal(validate_termkey(0), NA_integer_)
expect_equal(validate_termkey(1), NA_integer_)
expect_equal(validate_termkey(2012), NA_integer_)
expect_equal(validate_termkey(2018), NA_integer_)
expect_equal(validate_termkey(20157), NA_integer_)
expect_equal(validate_termkey(20121), 20121)
expect_equal(validate_termkey("20121"), 20121)
expect_equal(validate_termkey(20122), 20122)
expect_equal(validate_termkey("20122"), 20122)
expect_equal(validate_termkey(20123), 20123)
expect_equal(validate_termkey("20123"), 20123)
expect_equal(validate_termkey(20124), 20124)
expect_equal(validate_termkey("20124"), 20124)
expect_equal(validate_termkey(20125), NA_integer_)
expect_equal(validate_termkey("20125"), NA_integer_)
expect_equal(validate_termkey(20125, allow_seasonkeys = TRUE), 20125)
expect_equal(validate_termkey("20125", allow_seasonkeys = TRUE), 20125)
expect_equal(validate_termkey(20251), NA_integer_)
expect_equal(validate_termkey("20251"), NA_integer_)
expect_equal(validate_termkey(20252), 20252)
expect_equal(validate_termkey("20252"), 20252)
expect_equal(validate_termkey(20253), 20253)
expect_equal(validate_termkey("20253"), 20253)
expect_equal(validate_termkey(20254), NA_integer_)
expect_equal(validate_termkey("20254"), NA_integer_)
expect_equal(validate_termkey(20255), 20255)
expect_equal(validate_termkey("20255"), 20255)
expect_equal(validate_termkey(20251, allow_seasonkeys = TRUE), NA_integer_)
expect_equal(validate_termkey("20251", allow_seasonkeys = TRUE), NA_integer_)
expect_equal(validate_termkey(20254, allow_seasonkeys = TRUE), NA_integer_)
expect_equal(validate_termkey("20254", allow_seasonkeys = TRUE), NA_integer_)
})
test_that("Correctly Split TermKeys", {
expect_equal(split_termkey(-2), na_list)
expect_equal(split_termkey(-1), na_list)
expect_equal(split_termkey(0), na_list)
expect_equal(split_termkey(1), na_list)
expect_equal(split_termkey(2012), na_list)
expect_equal(split_termkey(201214), na_list)
expect_equal(
split_termkey(20122),
list(
academic_year = 2012,
term_season = "Fall",
term_season_number = 2,
termcode = 2,
term_name = "Fall",
fiscal_year = 2012,
seasonkey = 20122
)
)
expect_equal(
split_termkey(20001),
list(
academic_year = 1999,
term_season = "Summer",
term_season_number = 5,
termcode = 1,
term_name = "Summer A",
fiscal_year = 2000,
seasonkey = 19995
)
)
expect_equal(
split_termkey(20183),
list(
academic_year = 2018,
term_season = "Spring",
term_season_number = 3,
termcode = 3,
term_name = "Spring",
fiscal_year = 2018,
seasonkey = 20183
)
)
expect_equal(
split_termkey(20154),
list(
academic_year = 2015,
term_season = "Summer",
term_season_number = 5,
termcode = 4,
term_name = "Summer B",
fiscal_year = 2015,
seasonkey = 20155
)
)
expect_equal(
split_termkey(20161),
list(
academic_year = 2015,
term_season = "Summer",
term_season_number = 5,
termcode = 1,
term_name = "Summer A",
fiscal_year = NA_integer_,
seasonkey = 20155
)
)
expect_equal(
split_termkey(20162),
list(
academic_year = 2016,
term_season = "Fall",
term_season_number = 2,
termcode = 2,
term_name = "Fall",
fiscal_year = 2016,
seasonkey = 20162
)
)
expect_equal(
split_termkey(20163),
list(
academic_year = 2016,
term_season = "Spring",
term_season_number = 3,
termcode = 3,
term_name = "Spring",
fiscal_year = 2016,
seasonkey = 20163
)
)
expect_equal(split_termkey(20164), na_list)
expect_equal(
split_termkey(20165),
list(
academic_year = 2016,
term_season = "Summer",
term_season_number = 5,
termcode = 5,
term_name = "Trailing Summer",
fiscal_year = 2016,
seasonkey = 20165
)
)
})
test_that("Correctly split summer keys", {
expect_equal(
split_termkey(20025),
list(
academic_year = 2002,
term_season = "Summer",
term_season_number = 5,
termcode = 5,
term_name = "Trailing Summer",
fiscal_year = 2002,
seasonkey = 20025
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.