tests/testthat/test-mipLineHistorical.R

In pik-piam/mip: Comparison of multi-model runs

test_that("mipLineHistorical works", {
  qe <- dplyr::filter(quitte::quitte_example_dataAR6,
                      .data$scenario == levels(.data$scenario)[[1]],
                      .data$variable == "Consumption")
  p <- mipLineHistorical(qe)
  expect_identical(p$labels$x, "Year")
})