tests/testthat/test-unit.R

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

context("unit")

test_that("filter_bo is correct", {
  for (bo in c(1, 2, 3, 4, 5, 6)) {
    expect_equal_to_reference(filter_bo(testdata, bo), paste0("data/unit_bo_", bo, ".rds"))
  }
  for (i in 7:24) expect_null(filter_bo(testdata, i))
  expect_null(filter_bo(testdata, "random_string"))
})

test_that("filter_beh is correct", {
  k <- 0
  for (beh in c(
    "Alle",
    "Helse Nord RHF",
    "Finnmarkssykehuset HF",
    "UNN HF",
    "Nordlandssykehuset HF",
    "Helgelandssykehuset HF",
    "HF utenfor Helse Nord RHF",
    "Avtalespesialister",
    "Private sykehus"
  )) {
    k <- k + 1
    expect_equal_to_reference(filter_beh(testdata, beh), paste0("data/unit_beh_", k, ".rds"))
  }
})

test_that("filter_aar is correct", {
  k <- 0
  for (aar in list("2013", list("2011", "2016"), list("2010", "2011", "2016"))) {
    k <- k + 1
    expect_equal_to_reference(filter_aar(testdata, filter = aar), paste0("data/unit_aar_", k, ".rds"))
  }
  expect_equal(nrow(filter_aar(testdata, "2010")), 0)
  expect_equal(filter_aar(testdata, list("2011", "2016")), filter_aar(testdata, filter = c("2010", "2011", "2016")))
})

test_that("filter_behandlingsniva is correct", {
  k <- 0
  for (behniva in list(
    "Døgnopphold", "Dagbehandling", "Poliklinikk", "Avtalespesialist",
    list("Døgnopphold", "Dagbehandling", "Poliklinikk", "Avtalespesialist"),
    list("Dagbehandling", "Poliklinikk", "Avtalespesialist"),
    list("Døgnopphold", "Dagbehandling", "Poliklinikk")
  )) {
    k <- k + 1
    expect_equal_to_reference(
      filter_behandlingsniva(testdata, behniva),
      paste0("data/unit_behniva_", k, ".rds")
    )
    expect_equal_to_reference(
      filter_behandlingsniva(testdata2, behniva),
      paste0("data/unit_behnivaalt_", k, ".rds")
    )
  }
  df <- data.frame(File = character(), User = character(), stringsAsFactors = FALSE)
  expect_equal(filter_behandlingsniva(df, "random"), df)
})

test_that("filter_hastegrad2 is correct", {
  k <- 0
  for (hastegrad in list(
    "Planlagt medisin", "Akutt medisin", "Planlagt kirurgi", "Akutt kirurgi", "Ukjent",
    list("Planlagt medisin", "Akutt medisin"),
    list("Planlagt kirurgi", "Akutt kirurgi")
  )) {
    k <- k + 1
    expect_equal_to_reference(filter_hastegrad2(testdata2, hastegrad), paste0("data/unit_hastegrad2_", k, ".rds"))
    expect_equal(filter_hastegrad2(testdata, hastegrad), testdata)
  }
  expect_equal(nrow(filter_hastegrad2(testdata2, "random")), 0)
})

test_that("filter_alder is correct", {
  k <- 0
  for (alder in list(
    "0 - 17 \u00E5r", "18 - 49 \u00E5r", "50 - 74 \u00E5r", "75 \u00E5r og over",
    list("50 - 74 \u00E5r", "75 \u00E5r og over"),
    list("0 - 17 \u00E5r", "18 - 49 \u00E5r")
  )) {
    k <- k + 1
    expect_equal_to_reference(filter_alder(testdata2, alder), paste0("data/unit_alder_", k, ".rds"))
  }
  expect_equal(filter_alder(testdata2, c("a", "b", "c", "d")), testdata2)
  expect_equal(filter_alder(testdata, c("a")), testdata)
})

test_that("filter_kjonn is correct", {
  for (kjonn in list("Kvinner", "Menn")) {
    expect_equal_to_reference(filter_kjonn(testdata2, kjonn), paste0("data/unit_kjonn_", kjonn, ".rds"))
    expect_equal(filter_kjonn(testdata, kjonn), testdata)
  }
  expect_equal(nrow(filter_kjonn(testdata2, "random")), 0)
})

test_that("filter_fag is correct", {
  test_filter_fag <- testdata %>%
    dplyr::rename(episodefag = icd10kap)
  expect_equal(filter_fag(test_filter_fag, "Alle"), test_filter_fag)
  expect_equal_to_reference(filter_fag(test_filter_fag, c("Svulster")), "data/unit_filter_fag.rds")
  expect_error(filter_fag(testdata, c("Svulster")))
})

test_that("version_info returns text", {
  expect_gt(nchar(version_info()), 50)
})