tests/testthat/test-to_title.R

In r2dii.plot: Visualize the Climate Scenario Alignment of a Financial Portfolio

test_that("to_title() converts labels correctly", {
  # styler: off
  data <- tribble(
              ~input,          ~output,
          "a.string",       "A String",
    "another_string", "Another String",
          "b.STRING",       "B STRING"
  )
  # styler: on
  helper <- to_title
  expect_equal(helper(data$input), data$output)
})

test_that("recode_metric_trajectory() converts labels correctly", {
  # styler: off
  data <- tribble(
               ~input,             ~output,
          "projected",         "Portfolio",
  "corporate_economy", "Corporate Economy",
         "target_cps",               "CPS",
         "target_sds",               "SDS",
         "target_sps",               "SPS"
  )
  # styler: on
  helper <- recode_metric_trajectory
  expect_equal(helper(data$input), data$output)
})

test_that("recode_metric_techmix() converts labels correctly", {
  # styler: off
  data <- tribble(
           ~input,        ~output,
      "projected",    "Portfolio",
        "target_",    " Scenario",
     "target_sds", "SDS Scenario",
  "anything else",    "Benchmark",
      "Projected",    "Portfolio",
       ".target_",    "Benchmark",
            "xyz",    "Benchmark"
  )
  # styler: on
  helper <- recode_metric_techmix
  expect_equal(helper(data$input), data$output)
})

test_that("spell_out_technology() converts techmix labels correctly", {
  # styler: off
  data <- tribble(
             ~input,                   ~output,
              "gas",                     "Gas",
              "ice",                     "ICE",
          "coalcap",           "Coal Capacity",
          "the_hdv", "The Heavy Duty Vehicles"
  )
  # styler: on
  helper <- spell_out_technology
  expect_equal(helper(data$input), data$output)
})