tests/testthat/test-zsumuj_punkty.R

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

src = polacz()

test_that('zsumuj_punkty sumuje poprawnie', {
  daneSql = pobierz_wyniki_zrownywania(src, 'sprawdzian', 2014, TRUE)
  daneLok = daneSql %>% collect()
  testy   = unique(daneLok$id_testu)
  daneDl  = pobierz_odpowiedzi(src) %>% filter(.data$id_testu %in% testy)
  daneDlL = daneDl %>% collect()
  
  sumy = rowSums(daneLok[, grep('^k_[0-9]+$', names(daneLok))])
  
  lokUsun = zsumuj_punkty(daneLok)
  lokDop  = zsumuj_punkty(daneLok, FALSE)
  sqlUsun = zsumuj_punkty(daneSql)
  sqlDop  = zsumuj_punkty(daneSql, FALSE)
  dlUsun  = zsumuj_punkty(daneDl)
  dlDop   = zsumuj_punkty(daneDl, FALSE)
  dlLUsun = zsumuj_punkty(daneDlL)
  dlLDop  = zsumuj_punkty(daneDlL, FALSE)
  
  expect_s3_class(sqlUsun, 'tbl_sql')
  expect_s3_class(sqlDop, 'tbl_sql')
  expect_s3_class(dlUsun, 'tbl_sql')
  expect_s3_class(dlDop, 'tbl_sql')
  
  expect_equal(ncol(lokUsun), 5)
  expect_equal(ncol(lokDop), ncol(daneSql) + 1)
  expect_equal(ncol(sqlUsun), 5)
  expect_equal(ncol(sqlDop), ncol(daneSql) + 1)
  expect_equal(ncol(dlUsun), 5)
  expect_equal(ncol(dlDop), 5)
  expect_equal(ncol(dlLUsun), 5)
  expect_equal(ncol(dlLDop), 5)
  
  sqlUsun = sqlUsun %>% collect()
  sqlDop  = sqlDop %>% collect()
  dlUsun  = dlUsun %>% collect()
  dlDop   = dlDop %>% collect()
  
  expect_equal(all(lokUsun$wynik == sumy), TRUE)
  expect_equal(all(lokDop$wynik == sumy), TRUE)
  expect_equal(all(sqlUsun$wynik == sumy), TRUE)
  expect_equal(all(sqlDop$wynik == sumy), TRUE)
  
  kol = match(lokUsun$id_obserwacji, dlUsun$id_obserwacji)
  expect_equal(all(dlUsun$wynik[kol] == sumy), TRUE)
  kol = match(lokUsun$id_obserwacji, dlDop$id_obserwacji)
  expect_equal(all(dlDop$wynik[kol] == sumy), TRUE)
  
  kol = match(lokUsun$id_obserwacji, dlLUsun$id_obserwacji)
  expect_equal(all(dlLUsun$wynik[kol] == sumy), TRUE)
  kol = match(lokUsun$id_obserwacji, dlLDop$id_obserwacji)
  expect_equal(all(dlLDop$wynik[kol] == sumy), TRUE)
})

DBI::dbDisconnect(src$con)