wip

tests/testthat/test-emissions_profile.R

@@ -57,15 +57,15 @@ test_that("at product level, `NA` in a benchmark yields `NA` in `risk_category`
   expect_true(is.na(out$risk_category))
   expect_true(is.na(out$profile_ranking))
 
-  benchmark <- "tilt_subsector"
+  benchmark <- aka("tsector")
   co2 <- example_products("{ benchmark }" := NA)
   out <- emissions_profile(companies, co2) |>
     unnest_product() |>
     filter(grouped_by == benchmark)
   expect_true(is.na(out$risk_category))
   expect_true(is.na(out$profile_ranking))
 
-  benchmark <- "unit"
+  benchmark <- aka("xunit")
   co2 <- example_products("{ benchmark }" := NA)
   out <- emissions_profile(companies, co2) |>
     unnest_product() |>
@@ -94,7 +94,7 @@ test_that("at product level, `NA` in a benchmark yields `NA`s only in the corres
   expect_false(is.na(filter(out, clustered == "a")$risk_category))
   expect_true(is.na(filter(out, clustered == "b")$risk_category))
 
-  benchmark <- "tilt_subsector"
+  benchmark <- aka("tsector")
   co2 <- example_products(
     !!aka("uid") := c("a", "b"),
     "{ benchmark }" := c("a", NA)
@@ -107,7 +107,7 @@ test_that("at product level, `NA` in a benchmark yields `NA`s only in the corres
   expect_false(is.na(filter(out, clustered == "a")$risk_category))
   expect_true(is.na(filter(out, clustered == "b")$risk_category))
 
-  benchmark <- "unit"
+  benchmark <- aka("xunit")
   co2 <- example_products(
     !!aka("uid") := c("a", "b"),
     "{ benchmark }" := c("a", NA)