tests/testthat/test-sprawdz_dokumentacje.R

In zozlak/ZPD: Tools for a Polish examination data and item bank database

src = polacz()

test_that('sprawdz_dokumentacje nie zwraca danych', {
  expect_equal(nrow(.sprawdz_dokumentacje_zmiennych(src)), 0)
})

test_that('oszacuj_czas_wykonania działa', {
  wynik = oszacuj_czas_wykonania(pobierz_odpowiedzi(src))
  expect_type(wynik, 'double')
  expect_equal(length(wynik), 2)
  
  wynik = oszacuj_czas_wykonania(pobierz_odpowiedzi(src), TRUE)
  expect_s3_class(wynik, 'data.frame')
})

DBI::dbDisconnect(src$con)