tests/testthat/test-13-classification-inverse.R

In pxmake: Make PX-Files in R

# Check that reading -> saving -> reading creates the same classification object

test_that("classification is preserved", {
  px_classification(
    name = "test",
    prestext = "test",
    domain = "test",
    df = tibble::tibble(
      valuecode = as.character(1:10),
      valuetext = letters[1:10]
    )
  ) |>
    expect_save_read_preserves_classification()

  px_classification(
    vs_path = vs_age5_path(),
    agg_paths = agg_25years_path()
  ) |>
    expect_save_read_preserves_classification()

  px_classification(vs_path = vs_age5_path()) |>
    expect_save_read_preserves_classification()

  px_classification(vs_path = vs_pxvsbrche_path()) |>
    expect_save_read_preserves_classification()
})