test_that("ESPN - Get MBB Standings", { skip_on_cran() x <- espn_mbb_standings(year = 2021) cols <- c( "team_id", "team", "avgpointsagainst", "avgpointsfor", "gamesbehind", "leaguewinpercent", "losses", "playoffseed", "pointdifferential", "pointsagainst", "pointsfor", "streak", "winpercent", "wins", "total", "home_avgpointsagainst", "home_avgpointsfor", "home_gamesbehind", "home_leaguewinpercent", "home_losses", "home_playoffseed", "home_pointdifferential", "home_pointsagainst", "home_pointsfor", "home_streak", "home_winpercent", "home_wins", "home", "road_avgpointsagainst", "road_avgpointsfor", "road_gamesbehind", "road_leaguewinpercent", "road_losses", "road_playoffseed", "road_pointdifferential", "road_pointsagainst", "road_pointsfor", "road_streak", "road_winpercent", "road_wins", "road", "vsaprankedteams_avgpointsagainst", "vsaprankedteams_avgpointsfor", "vsaprankedteams_gamesbehind", "vsaprankedteams_leaguewinpercent", "vsaprankedteams_losses", "vsaprankedteams_playoffseed", "vsaprankedteams_pointdifferential", "vsaprankedteams_pointsagainst", "vsaprankedteams_pointsfor", "vsaprankedteams_streak", "vsaprankedteams_winpercent", "vsaprankedteams_wins", "vsaprankedteams", "vsusarankedteams_avgpointsagainst", "vsusarankedteams_avgpointsfor", "vsusarankedteams_gamesbehind", "vsusarankedteams_leaguewinpercent", "vsusarankedteams_losses", "vsusarankedteams_playoffseed", "vsusarankedteams_pointdifferential", "vsusarankedteams_pointsagainst", "vsusarankedteams_pointsfor", "vsusarankedteams_streak", "vsusarankedteams_winpercent", "vsusarankedteams_wins", "vsusarankedteams", "vsconf_avgpointsagainst", "vsconf_avgpointsfor", "vsconf_gamesbehind", "vsconf_leaguewinpercent", "vsconf_losses", "vsconf_playoffseed", "vsconf_pointdifferential", "vsconf_pointsagainst", "vsconf_pointsfor", "vsconf_streak", "vsconf_winpercent", "vsconf_wins", "vsconf" ) expect_equal(colnames(x), cols) expect_s3_class(x, "data.frame") })