tests/testthat/test-57-contvariable.R

In pxmake: Make PX-Files in R

test_that("CONTVARIABLE is handled correctly", {
  x <- px(get_px_file_path("CONTVARIABLE"))

  contvariable_name <- "ContentsCode"

  # CONTVARIABLE should be TRUE
  x$variables1 |>
    dplyr::filter(`variable-code` == contvariable_name) |>
    dplyr::pull(contvariable) |>
    expect_true()

  # CONTVARIABLE should be FALSE for all other variables
  x$variables1 |>
    dplyr::filter(`variable-code` != contvariable_name) |>
    dplyr::pull(contvariable) |>
    any() |>
    expect_false()

  # CONTVARIABLE should not be created as a keyword in table2
  x$table2 |>
    dplyr::filter(keyword == "CONTVARIABLE") |>
    nrow() |>
    expect_equal(0)
})