Update tests for fns

Author: pratikunterwegs

DESCRIPTION

@@ -29,8 +29,8 @@ Imports:
     ggplot2,
     glue,
     readr,
-    reshape2,
     rlang,
+    scales,
     tidyr
 Suggests: 
     knitr,

tests/testthat/_snaps/plotting/plot-age-patterns.svg

@@ -8,5 +8,53 @@ test_that("plot_compare_demography() works", {
 
   checkmate::expect_class(p, "ggplot")
 
-  vdiffr::expect_doppelganger("A blank plot", p)
+  vdiffr::expect_doppelganger("plot_demography_alignment", p)
+})
+
+test_that("plot_age_patterns() works", {
+  burden <- eg_burden_template
+  burden <- prep_plot_age(burden)
+
+  # manually set values as template default is NA, prevents ggplot warnings
+  burden$value_millions <- 1.0
+
+  p <- plot_age_patterns(burden, 1)
+
+  checkmate::expect_class(p, "ggplot")
+
+  vdiffr::expect_doppelganger("plot_age_patterns", p)
+})
+
+test_that("plot_global_burden_decades() works", {
+  burden <- eg_burden_template
+  year_max <- 2100
+  burden <- prep_plot_burden_decades(burden, year_max)
+
+  # manually set values as template default is NA, prevents ggplot warnings
+  burden$value_millions <- 1.0
+
+  p <- plot_global_burden_decades(burden, 1)
+
+  checkmate::expect_class(p, "ggplot")
+
+  vdiffr::expect_doppelganger("plot_global_burden_decades", p)
+})
+
+test_that("plot_global_burden_decades() works", {
+  burden <- eg_burden_template
+  burden <- prep_plot_global_burden(burden)
+
+  # NOTE: expected use case is to loop over nested column DFs
+  # set values to a dummy placeholder
+  burden$burden_data[[1]]$value_millions <- 1
+
+  p <- plot_global_burden(
+    burden$burden_data[[1]],
+    burden$burden_outcome[[1]],
+    1
+  )
+
+  checkmate::expect_class(p, "ggplot")
+
+  vdiffr::expect_doppelganger("plot_global_burden", p)
 })

…estthat/_snaps/plotting/a-blank-plot.svg …s/plotting/plot-demography-alignment.svgtests/testthat/_snaps/plotting/a-blank-plot.svg renamed to tests/testthat/_snaps/plotting/plot-demography-alignment.svg tests/testthat/_snaps/plotting/a-blank-plot.svg renamed to tests/testthat/_snaps/plotting/plot-demography-alignment.svg

@@ -11,33 +11,54 @@ test_that("prep_plot_demography() works ", {
   )
 })
 
-skip("Skipped while tests are written")
 test_that("prep_plot_age() works ", {
-  checkmate::expect_tibble(
-    prep_plot_age(x)
+  burden <- eg_burden_template
+  expected_colnames <- c("scenario", "burden_outcome", "age", "value_millions")
+  x <- prep_plot_age(burden)
+
+  checkmate::expect_tibble(x)
+  checkmate::expect_names(
+    colnames(x),
+    permutation.of = expected_colnames
   )
 })
 
 test_that("prep_plot_burden_decades() works ", {
-  checkmate::expect_tibble(
-    prep_plot_burden_decades(x)
+  burden <- eg_burden_template
+  year_max <- 2100
+  x <- prep_plot_burden_decades(burden, year_max)
+
+  expected_colnames <- c(
+    "scenario",
+    "burden_outcome",
+    "decade_label",
+    "value_millions"
+  )
+  checkmate::expect_tibble(x)
+  checkmate::expect_names(
+    colnames(x),
+    permutation.of = expected_colnames
   )
 })
 
+
 test_that("prep_plot_global_burden() works ", {
-  checkmate::expect_tibble(
-    prep_plot_global_burden(x)
+  burden <- eg_burden_template
+  x <- prep_plot_global_burden(burden)
+
+  expected_colnames <- c("burden_outcome", "burden_data")
+
+  checkmate::expect_tibble(x, types = c("character", "list"))
+  checkmate::expect_names(
+    colnames(x),
+    permutation.of = expected_colnames
   )
 })
 
 test_that("prep_plot_coverage_set() works ", {
-  checkmate::expect_tibble(
-    prep_plot_coverage_set(x)
-  )
+  skip("TODO: Determine where coverage set data is generated")
 })
 
 test_that("prep_plot_fvp() works ", {
-  checkmate::expect_tibble(
-    prep_plot_fvp(x)
-  )
+  skip("TODO: Fix how FVP data is generated")
 })