tests/testthat/test-nba_ranking.R

In UBC-MDS/rsketball: Scrape data from ESPN NBA and show summary statistics/visualisations

#' Test the nba_ranking.R Function
#'
#' @description
#' Test inputs edge cases for nba_nba_boxplot.
#'
#' @return
#' @export
#'
#' @examples
#' test_ranking()
test_ranking <- function(){
  # Testing the data input
  test_that("The function is allowing other values as data input. Needs tibble or data frame",
    expect_error(nba_ranking("Ada Lovelace", column = a, by = b,top = 6, FALSE, mean)))

  # Testing the top input
  test_that("The function is allowing top value to be non-numerical",
            expect_error(nba_ranking(tibble::tibble(ranked = c("A", "B", "C"),
                                                by = c(3, 2, 1)),
                                     ranked, by, "Ada Lovelace", TRUE, mean)))

  test_that("The function is allowing inputing numerical variables as the ranked argument",
            expect_error(nba_ranking(tibble::tibble(ranked = c("A", "B", "C"),
                                                by = c(3, 2, 1),
                                                error_c = c(1,2,3)),
                                     error_c, by, 2, TRUE, mean)))

  test_that("The function is allowing inputing categorical variables as the by argument",
            expect_error(nba_ranking(tibble::tibble(ranked = c("A", "B", "C"),
                                                by = c(3, 2, 1),
                                                error_c = c("Ada","Love","Lace")),
                                     ranked, error_c, 2, TRUE, mean)))

  # Testing the warning
  test_that("The function is allowing other values as data input. Needs tibble or data frame",
            expect_warning(nba_ranking(tibble::tibble(ranked = c("1", "2", "3"), by = c(3, 2, 1)), ranked, by, 15, TRUE, mean)))

  test_that('Plot should use a geom_col and a geom_text', {
    p <- nba_ranking(tibble::tibble(ranked = c("A", "B", "C"), by = c(3, 2, 1)), ranked, by, 2, TRUE, mean)
    expect_true("GeomCol" %in% c(class(p$layers[[1]]$geom)))
    expect_true("GeomText" %in% c(class(p$layers[[2]]$geom)))
  })
}

test_ranking()