tests/testthat/test-sector_classifications.R

In r2dii.data: Datasets to Measure the Alignment of Corporate Loan Books with Climate Goals

test_that("hasn't changed", {
  expect_snapshot_value(sector_classifications, style = "json2")
})

test_that("has an entry in data_dictionary", {
  dd <- data_dictionary
  expect_true(nrow(dd[dd$dataset == "sector_classifications", ]) > 0)
})

test_that("nace automotive sales are borderline", {
  automotive <- c(451, 4511, 4519)
  borderline <- subset(
    sector_classifications,
    subset = code_system == "NACE" & code %in% automotive,
    select = "borderline",
    drop = TRUE
  )

  expect_true(all(borderline))
})


test_that("has `sector` values that are lowercase not uppercase", {
  sectors <- sort(unique(sector_classifications$sector))
  expect_equal(sectors, tolower(sectors))
})

test_that("debug value does not appear in `nace_classification`", {
  nace_has_debug_value <- any(grepl("Z", nace_classification$code))
  expect_false(nace_has_debug_value)
})