tests/testthat/test-80-interface.R

In pxmake: Make PX-Files in R

test_that("Source data variable names are preserved",{
  table_name <- "FOTEST"
  excel1 <- get_metadata_path(table_name)
  excel2 <- temp_xlsx_file()

  excel1 %>%
    px() %>%
    px_save(path = excel2)

  get_data_sheet_variable_names <- function(path) {
    path %>%
      readxl::read_excel(sheet = "Data") %>%
      names()
  }

  expect_equal(get_data_sheet_variable_names(excel1),
               get_data_sheet_variable_names(excel2)
               )
})