tests/testthat/test-08-aggregation_df.R

In pxmake: Make PX-Files in R

test_that("Aggregation df is created", {
  expect_identical(
    aggregation_df(agg_10years_path()),
    dplyr::select(age_classification, valuecode, `10-years_classes`)
  )

  expect_identical(
    aggregation_df(agg_25years_path()),
    dplyr::select(age_classification, valuecode, `25-years_classes`)
  )
})


test_that("Warning, aggreation groups and 'Aggtext' differ in length", {
  expect_warning(
    aggregation_df(get_classification_path("agg_different_lengths1.agg")),
    regexp = "number of aggregation groups.*differ"
  )

  expect_warning(
    aggregation_df(get_classification_path("agg_different_lengths2.agg")),
    regexp = "number of aggregation groups.*differ"
  )
})

test_that("Warning, if aggregation group is missing", {
  expect_warning(
    aggregation_df(get_classification_path("agg_missing_group.agg")),
    regexp = "No group with label"
  )
})

test_that("Error, if missing mandatory section", {
  expect_error(
    aggregation_df(
      get_classification_path("agg_missing_mandatory_section.agg")
    ),
    regexp = "missing mandatory section"
  )
})