tests/testthat/test-53-pxjob-px-pxsave.R

In pxmake: Make PX-Files in R

test_that("pxjob exists without errors (exit code 0)", {
  skip_if_not_installed("pxjob64Win", minimum_version = "1.1.0")

  expect_that_pxjob_runs_without_errors <- function(x) {
    px_path <- temp_px_file()

    px_save(x, path = px_path)

    output <- get_pxjob_file_path(rlang::hash(x))

    pxjob_exit_code <- pxjob64Win::pxjob(px_path, output)
    expect_equal(0, pxjob_exit_code)

    # File is removed manually because pxjob_clean() cannot be used because the
    # exit code from pxjob64Win::pxjob is needed.
    file.remove(output)
  }

  expect_that_pxjob_runs_without_errors(px(input = get_metadata_path("FOTEST")))
  expect_that_pxjob_runs_without_errors(px(input = get_px_file_path("TUX01")))
  expect_that_pxjob_runs_without_errors(px(input = get_data_path("BEXSTA")))
  expect_that_pxjob_runs_without_errors(
    px(input = get_px_file_path("multilingual_no_codes"))
  )

  x1 <- px(input = women)
  x1$cells2 <- get_base_cells2()

  expect_that_pxjob_runs_without_errors(x1)

  expect_that_pxjob_runs_without_errors(
    px(input = women) |> px_languages(c("en", "sv"))
  )

  get_data_path("BEXSTA") |>
    px() |>
    px_language("en") |>
    px_charset("ANSI") |>
    px_creation_date("2020-01-01 10:00") |>
    px_decimals("1") |>
    px_heading("gender") |>
    px_stub("place of birth") |>
    px_last_updated("2020-01-01 10:00") |>
    px_next_update("2020-01-01 10:00") |>
    px_matrix("bexsta") |>
    px_timeval("time") |>
    px_valuenote(dplyr::tibble(
      `variable-code` = "gender",
      code = "K",
      valuenote = "Great value"
    )) |>
    px_valuenotex(dplyr::tibble(
      `variable-code` = "time",
      code = "2020",
      valuenotex = "What a great year"
    )) |>
    px_languages(c("en", "sv")) |>
    px_note(dplyr::tibble(
      `variable-code` = "time",
      language = c("en", "sv"),
      note = c("English time note", "Svensk tidsnote")
    )) |>
    px_notex("Mandatory note for entire table") |>
    expect_that_pxjob_runs_without_errors()
})