tests/testthat/test-09-px_classification_from_path.R

In pxmake: Make PX-Files in R

test_that("Error if vs_file is missing heading", {
  expect_error(px_classification_from_path(vs_path =
                                             get_classification_path("vs_missing_mandatory_section.vs")
                                           ),
               regexp = "missing mandatory section"
               )
})

test_that("Warning if length of [Valuecode] and [Valuetext] differ", {
  expect_warning(px_classification_from_path(vs_path =
                                               get_classification_path("vs_different_lengths1.vs")
                                             ),
                 regexp = "different number of rows"
                 )

  expect_warning(px_classification_from_path(vs_path =
                                               get_classification_path("vs_different_lengths2.vs")
                                             ),
                 regexp = "different number of rows"
                 )
})