tests/testthat/test-create_dist.R

In wpa: Tools for Analysing and Visualising Viva Insights Data

test_that("create_dist produces ggplot object", {
  result <- sq_data %>%
    create_dist(metric = "Email_hours")
  expect_s3_class(result, "ggplot")
})

test_that("create_dist handles different return types", {
  # Test table return
  result_table <- sq_data %>%
    create_dist(metric = "Email_hours", return = "table")
  expect_s3_class(result_table, "data.frame")
  
  # Test plot return
  result_plot <- sq_data %>%
    create_dist(metric = "Email_hours", return = "plot")
  expect_s3_class(result_plot, "ggplot")
})

test_that("create_dist with hrvar parameter", {
  result <- sq_data %>%
    create_dist(metric = "Email_hours", hrvar = "Organization")
  expect_s3_class(result, "ggplot")
})