tests/testthat/test-dates.R

In aelhabr/teutils: Tony's Personal Package

context("dates")
require("bindrcpp")
require("dplyr")

test_that("get_yyyymmdd", {

  expect <- as.Date("2017-03-01")
  actual <- get_yyyymmdd(2017, 3, 1)
  expect_identical(actual, expect)

  actual <- get_yyyymmdd(2017, 3)
  expect_identical(actual, expect)

  actual <- get_yyyymmdd(2017, 3, as_date = FALSE)
  expect_identical(actual, as.character(actual))

  expect_warning(get_yyyymmdd(2017, 3, default_day = FALSE))

  # With data.frame
  df <- dplyr::data_frame(yyyy = 2000, mm = seq(1, 12, 1))
  df <- dplyr::mutate(df, yyyy_mm_dd = get_yyyymmdd(yyyy, mm))
  expect_is(df, "data.frame")

})

test_that("get_yyyymm", {
  expect <- "Mar 2017"
  actual <- get_yyyymm(2017, 3)
  expect_identical(actual, expect)

  actual <- get_yyyymm(2017, 3, upper = TRUE)
  expect_identical(actual, toupper(expect))

  expect <- "March 2017"
  actual <- get_yyyymm(2017, 3, format = "%B %Y")
  expect_identical(actual, expect)

  actual <- get_yyyymm(2017, 3, format = "%B %Y", upper = TRUE)
  expect_identical(actual, toupper(expect))

})

test_that("get_month_lastday", {
  expect <- 31
  actual <- get_month_lastday(2017, 3)
  expect_identical(actual, expect)
})