tests/testthat/test-gdpplotter.R

In UBC-MDS/gdphelperR: Summarize GDP Data and Make Plots

test_that("gdpplotter throws an error if called with a non-dataframe arguement",
          {expect_error(gdpplotterr("Hello"))})

test_that("gdpplotter throws an error if not called with any argument",
          {expect_error(gdpplotterr())})

test_that("inputs are good to go", {
  df = readr::read_csv("test_13100347.csv") |> suppressMessages() |> suppressWarnings()
  expect_type(typeof(df$VALUE),"character")
  expect_type(typeof(df$GEO),"character")
  expect_type(typeof(df$REF_DATE),"character")
})


test_that("ggplot2 works", {
  df = readr::read_csv("test_13100347.csv") |> suppressMessages() |> suppressWarnings()
  cleaned_Dataframe <- gdpcleanerr(df)
  p <- gdpplotterr(cleaned_Dataframe)
  vdiffr::expect_doppelganger("default histogram", p)
})