tests/testthat/test-utility.R

In UTokyo-mip/mipplot: An Open-Source Tool for Visualization of Climate Mitigation Scenarios

context("test-utility.R")

test_that("get group-name-list", {

  group_name_list <- get_variable_group_name_list(ar5_db_sample_rule_table)
  testthat::expect_equal(group_name_list[1], "Emissions|CO2 = Fossil Fuels and Industry + Land Use")
  testthat::expect_equal(length(group_name_list), 10)
})


test_that("get_variable_name_list_in_variable_group", {
  result <- get_variable_name_list_in_variable_group("Emissions|CO2 = Fossil Fuels and Industry + Land Use")
  testthat::expect_equal(result[1], "Emissions|CO2")
  testthat::expect_equal(result[2], "Emissions|CO2|Fossil Fuels and Industry")
  testthat::expect_equal(result[3], "Emissions|CO2|Land Use")
})