tests/testthat/test-get_data.R

In SKDE-Analyse/dynamiskTabellverk: Dynamisk tabellverk for Helse Nord RHF

test_that("get_data with files on disk", {
  saveRDS(testdata, file = "behandler.rds")
  expect_equal(get_data(), testdata3)

  saveRDS(testdata2, file = "justertoverf.rds")
  expect_error(get_data())
  file.remove("justertoverf.rds")

  saveRDS(testdata, file = "justertoverf.rds")
  expect_equal_to_reference(get_data(), "data/get_data.rds")

  file.remove("behandler.rds")
  file.remove("justertoverf.rds")
})

test_that("get_data without files on disk", {
  expect_equal(get_data(), testdata3)
})

test_that("get_data with defined csv file", {
  write.csv(testdata, file = "fag.csv", row.names = FALSE)
  expect_equal(get_data(), testdata)
  write.csv(testdata, file = "fag2.csv", row.names = FALSE)
  expect_equal_to_reference(get_data(), "data/get_data.rds")
  file.remove("fag.csv")
  # test uten fag.csv, men kun med fag2.csv. Da skal den ikke hente data.
  expect_equal(get_data(), testdata3)
  file.remove("fag2.csv")
})