tests/testthat/test-get_issues_stats.R

In GitStats: Standardized Git Repository Data

test_that("get_issues_stats method works", {
  issues_stats <- get_issues_stats(
    issues = test_mocker$use("issues_data"),
    time_aggregation = "month",
    group_var = state
  )
  expect_s3_class(issues_stats, "gitstats_issues_stats")
  expect_equal(
    colnames(issues_stats),
    c("stats_date", "githost", "state", "stats")
  )
  expect_true(
    all(c("gitlab", "github") %in% issues_stats$githost)
  )
  issues_stats_yearly <- get_issues_stats(
    issues = test_mocker$use("issues_data"),
    time_aggregation = "year"
  )
  expect_equal(issues_stats_yearly$stats_date,
               as.POSIXct(c(rep("2023-01-01", 2), rep("2024-01-01", 2)), tz = 'UTC'))
  expect_s3_class(issues_stats_yearly, "gitstats_issues_stats")
  expect_equal(
    colnames(issues_stats_yearly),
    c("stats_date", "githost", "stats")
  )
})

test_that("get_issues_stats returns error when issues is not issues_data object", {
  expect_snapshot_error(
    get_issues_stats(
      issues = test_mocker$use("gh_issues_table")
    )
  )
})