R/utilities_testing.R

In AZASRS/AZASRS: ASRS Database R API

# PACKAGE TESTING HELPER FUNCTIONS
#' @description Checks tbls in database globals to make sure formatting is consistent
#' @param tbl_object the tbl object to be checked
#' @param expected_names a character string with expected columns names
#' @param types a character string with expected column data types
#' @param greater_than_rows integer to test the tbl has rows greater than x
#' @return error if any of the parameters do not match, no error otherwise

check_database_tbl_matches = function(tbl_object, expected_names = c(), types = c(), greater_than_rows= n){
  a = tbl_object()
  testthat::expect_equal(
    class(a),
    c("tbl_Microsoft SQL Server", "tbl_dbi", "tbl_sql", "tbl_lazy", "tbl")
  )
  b = tibble::as_tibble(a)
  testthat::expect_equal(colnames(b), expected_names)
  testthat::expect_equal(as.character(lapply(b, class)), types)
  testthat::expect_true(dplyr::count(b) %>% dplyr::pull(n) > greater_than_rows)
}