tests/testthat/test-utils.R

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

test_that("define() produces the expected output", {
  expected <- c(
    "* `isos` (character): Countries in region, defined by iso code.",
    "* `region` (character): Benchmark region name.",
    "* `source` (character): Source publication from which the regions are defined."
  )
  actual <- unclass(define("region_isos"))
  expect_equal(actual, expected)
})