tests/testthat/test-wnba_draftcombinedrillresults.R

In wehoop: Access Women's Basketball Play by Play Data

# test_that("WNBA Draft Combine Drill Results", {
#   skip_on_cran()
#   skip_on_ci()
skip_wnba_stats_test()
#   x <- wnba_draftcombinedrillresults(season_year = most_recent_wnba_season() - 1)
#   
#   cols_x1 <- c(
#     
#   )
#   
#   expect_in(sort(cols_x1), sort(colnames(x[[1]])))
#   expect_s3_class(x[[1]], "data.frame")
#   
#   Sys.sleep(3)
# })