tests/testthat/test-school_years.R

In eringrand/RUncommon: Erin's Personal Package

library(testthat)

context("convert school years")

# sy_number
test_that("SY - 20 conversion works", {
  expect_equal(sy_number("SY16-17"), 2017)
  expect_equal(sy_number("SY89-90", before_2000 = TRUE), 1990)
})

# Change school year
test_that("change_school_year", {
  expect_equal(change_school_year("2018-2019"), "2018-19")
  # expect_error(change_school_year("2018-19"), regex = "school_year is not in the form 20XX-20YY")
})

# sy_form
test_that("sy_from", {
  expect_equal(sy_form(2015), "2014-15")
  expect_equal(sy_form(2015, spring_year = FALSE), "2015-16")
  expect_equal(sy_form("2015", spring_year = FALSE), "2015-16")
  expect_equal(sy_form("2016"), "2015-16")
})

# test_that("sy_from string too big", {
#   expect_error(sy_form("2015-16"), regex = "school_year is not a number in the form XXXX")
#   expect_error(sy_form(15), regex = "school_year is not a number in the form XXXX")
# })


# school_year_from_date
test_that("school_year_from_date", {
  expect_equal(school_year_from_date(date = "2019-05-15"), "2018-19")
  expect_equal(school_year_from_date(date = as.POSIXct("2019-05-15")), "2018-19")
})

test_that("school_year_from_date errors", {
  expect_error(school_year_from_date(date = 2019 - 05 - 15))
  expect_error(school_year_from_date(date = "2019-13-15"))
  expect_error(school_year_from_date(date = "2019-00-15"))
  expect_error(school_year_from_date(date = "2019-01-32"))
})