tests/testthat/test_figure3.3.R

In ukgovdatascience/eesectors: Functions to create DCMS Economic Estimates statistics

context("figure3.3 works as expected")

test_that(
  "figure3.3 runs without errors",
  {

    gva <- year_sector_data(GVA_by_sector_2016)

    expect_silent(figure3.3(gva))

  }
)


test_that(
  "figure3.3 produces expected plot",
  {

    # Check whether comparison file exists, and delete if so

    test_png <- file.path("figures", "test_figure3.3_test.png")
    ref_png <- file.path("figures", "test_figure3.3_reference.png")

    if (file.exists(test_png)) file.remove(test_png)

    test_that(
      "test_png does not already exist",
      {
        expect_false(file.exists(test_png))
        }
      )

    # Create a new figure as png

    a <- year_sector_data(GVA_by_sector_2016)
    b <- figure3.3(a)

    ggplot2::ggsave(
      width = 5,
      height = 5,
      filename = "figures/test_figure3.3_test.png"
    )

    # Check that the new file was created

    test_that(
      "test_png was created",
      {
        expect_true(file.exists(test_png))
      }
    )

    # Compare new figure with reference

    visualTest::isSimilar(
      file = "figures/test_figure3.3_reference.png",
      fingerprint = visualTest::getFingerprint(
        file = "figures/test_figure3.3_test.png"
      ),
      threshold = 1e-3
    )

  }
)