tests/testthat/test-crucial_lbk.R

In r2dii.match: Tools to Match Corporate Lending Portfolios with Climate Data

test_that("outputs hasn't changed", {
  expected <- c(
    "id_ultimate_parent",
    "name_ultimate_parent",
    "id_direct_loantaker",
    "name_direct_loantaker",
    "sector_classification_system",
    "sector_classification_direct_loantaker"
  )
  expect_equal(crucial_lbk(), expected)
})