tests/testthat/test-utils.R

In Athlytics: Advanced Sports Performance Analysis for 'Strava' Data

# tests/testthat/test-utils.R

library(testthat)
library(Athlytics) # To make internal functions available if using devtools::load_all()
library(lubridate)

context("Utility Functions")

test_that("english_month_year correctly formats dates", {
  # Test with a single date
  single_date <- ymd("2023-01-15")
  expect_equal(english_month_year(single_date), "Jan 2023")

  # Test with multiple dates
  multiple_dates <- c(ymd("2023-03-10"), ymd("2024-11-05"))
  expect_equal(english_month_year(multiple_dates), c("Mar 2023", "Nov 2024"))

  # Test with dates spanning year-end
  year_end_dates <- c(ymd("2022-12-25"), ymd("2023-01-01"))
  expect_equal(english_month_year(year_end_dates), c("Dec 2022", "Jan 2023"))

  # Test with a leap year date
  leap_date <- ymd("2024-02-29")
  expect_equal(english_month_year(leap_date), "Feb 2024")
  
  # Test with an empty vector of dates (should return empty character vector)
  empty_dates <- ymd(character(0))
  expect_equal(english_month_year(empty_dates), character(0))
  
  # Test with NA date (should ideally handle gracefully, e.g., return NA_character_ or specific string)
  # Current implementation will likely error or produce NA based on lubridate behavior. 
  # Let's check what it does and decide if it needs adjustment or specific NA test.
  # expect_equal(english_month_year(ymd(NA)), NA_character_) # or a specific string like "Invalid Date"
  # For now, let's assume valid dates are the primary use case.
  # If NA handling is critical, the function english_month_year might need an explicit check.
})