tests/testthat/test-generuj_raporty.R

In tzoltak/MLASZraporty: Pakiet do tworzenia raportow szkol na potrzeby projektu MLEZAiMD

wskaznikiSzk$SZK_kod = unlist(wskaznikiSzk$SZK_kod)
stanFolderu = list.files()

################################################################################
context("Generowanie raportów PDF")
################################################################################
test_that("Raporty PDF na podstawie szablonu 'raport_szkoly.RMD'", {
  nazwyRaportowPDF =
    generuj_raporty('raport_szkoly.Rmd',
                    wskaznikiSzk,
                    wskaznikiTypSzk,
                    SZK_kod,
                    parametry = list(typDokumentu = "pdf",
                                     progLiczebnosci = 10,
                                     rocznik = 2017,
                                     wyrownanieTabWykr = "center"))
  expect_equal(paste0(wskaznikiSzk$SZK_kod, ".pdf"),
               nazwyRaportowPDF)
})

################################################################################
context("Generowanie raportów HTML")
################################################################################
test_that("Raporty HTML na podstawie szablonu 'raport_szkoly.RMD'", {
  nazwyRaportowPDF =
    generuj_raporty('raport_szkoly.Rmd',
                    wskaznikiSzk,
                    wskaznikiTypSzk,
                    SZK_kod,
                    parametry = list(typDokumentu = "html",
                                     progLiczebnosci = 10,
                                     rocznik = 2017,
                                     wyrownanieTabWykr = "center"))
  expect_equal(paste0(wskaznikiSzk$SZK_kod, ".html"),
               nazwyRaportowPDF)
})

################################################################################
context("Wywołania błędów wejścia dla generuj_raporty()")
################################################################################
test_that("Nieistniejący szablon raportu", {
  expect_error(generuj_raporty('raport_ktorego_nie_ma.Rmd',
                               wskaznikiSzk,
                               wskaznikiTypSzk,
                               SZK_kod),
               "Szablon o podanej nazwie nie jest dostępny")
})
test_that("Niepodane parametry wymagane przez szablon", {
  expect_error(generuj_raporty('raport_szkoly.Rmd',
                               wskaznikiSzk,
                               wskaznikiTypSzk,
                               SZK_kod),
               "Szablon.*wymaga.*parametrów")
})
test_that("Niepodanie danych opisujących grupy porównawcze (gdy szablon ich wymaga)", {
  expect_error(generuj_raporty('raport_szkoly.Rmd',
                               wskaznikiSzk,
                               parametry = list(typDokumentu = "html",
                                                progLiczebnosci = 10,
                                                rocznik = 2017,
                                                wyrownanieTabWykr = "center")),
               "Szablon.*wymaga przekazania ramki danych.*w grupach porównawczych")
})
test_that("Typ dokumentu inny niż PDF lub HTML", {
  expect_error(generuj_raporty('raport_szkoly.Rmd',
                               wskaznikiSzk,
                               wskaznikiTypSzk,
                               SZK_kod,
                               parametry = list(typDokumentu = "txt",
                                                progLiczebnosci = 10,
                                                rocznik = 2017,
                                                wyrownanieTabWykr = "center")),
               "musi przyjmować wartość 'html' lub 'pdf'")
})
test_that("Polskie znaki w kolumnie opisującej nazwy raportów", {
  wskaznikiSzk$SZK_typ = unlist(wskaznikiSzk$SZK_typ)
  expect_error(generuj_raporty('raport_szkoly.Rmd',
                               wskaznikiSzk,
                               wskaznikiTypSzk,
                               SZK_typ),
               "nie mogą zawierać polskich znaków")
})
test_that("Duplikaty w kolumnie opisującej nazwy raportów", {
  wskaznikiSzk$SZK_kod[1] = wskaznikiSzk$SZK_kod[2]
  expect_error(generuj_raporty('raport_szkoly.Rmd',
                               wskaznikiSzk,
                               wskaznikiTypSzk,
                               SZK_kod),
               "muszą być unikalne")
})

################################################################################
context("Inne testy")
################################################################################
test_that("bez_naglowka_1kolumny()", {
  df = MLASZraporty:::bez_naglowka_1kolumny(data.frame(a = letters[1:3], b = 1:3))
  expect_is(df, "data.frame")
  expect_named(df, "b")
  expect_equal(rownames(df), letters[1:3])
})



################################################################################

unlink(setdiff(list.files(), stanFolderu), recursive = TRUE)