test_that("px_classification_save saves .vs and .agg files", {
  tmp_dir <- tempdir()

  px_classification(name = "Age",
                    prestext = "Age table",
                    domain = "age",
                    df = age_classification
                    ) %>%
    px_save_classification(path = tmp_dir)

  expect_equal(list.files(tmp_dir, pattern = "(agg|vs)$"),
               c("10-years_classes.agg", "25-years_classes.agg", "Age.vs")
               )
})