Test standings and abbreviations

Author: k5cents

tests/testthat/test-abbrev.R

@@ -0,0 +1,86 @@
+tm <- league_teams("42654852")
+
+test_that("team abbreviation", {
+  x <- team_abbrev(1, tm)
+  expect_length(x, 1)
+  expect_s3_class(x, "factor")
+  expect_equal(as.character(x), "AUS")
+})
+
+test_that("team un-abbreviation", {
+  x <- team_unabbrev("AUS", tm)
+  expect_length(x, 1)
+  expect_type(x, "integer")
+  expect_equal(x, 1)
+})
+
+test_that("team abbreviation errors", {
+  expect_error(team_abbrev(1, mtcars))
+})
+
+# -------------------------------------------------------------------------
+
+test_that("slot abbreviation", {
+  x <- slot_abbrev(0)
+  expect_length(x, 1)
+  expect_s3_class(x, "factor")
+  expect_equal(as.character(x), "QB")
+})
+
+test_that("slot un-abbreviation", {
+  x <- slot_unabbrev("QB")
+  expect_length(x, 1)
+  expect_type(x, "integer")
+  expect_equal(x, 0)
+})
+
+test_that("slot abbreviation errors", {
+  expect_error(slot_abbrev("test"))
+})
+
+# -------------------------------------------------------------------------
+
+test_that("position abbreviation", {
+  x <- pos_abbrev(1)
+  expect_length(x, 1)
+  expect_s3_class(x, "factor")
+  expect_equal(as.character(x), "QB")
+})
+
+test_that("position un-abbreviation", {
+  x <- pos_unabbrev("QB")
+  expect_length(x, 1)
+  expect_type(x, "integer")
+  expect_equal(x, 1)
+})
+
+# -------------------------------------------------------------------------
+
+test_that("position abbreviation", {
+  x <- pro_abbrev(1)
+  expect_length(x, 1)
+  expect_s3_class(x, "factor")
+  expect_equal(as.character(x), "Atl")
+})
+
+test_that("position un-abbreviation", {
+  x <- pro_unabbrev("Atl")
+  expect_length(x, 1)
+  expect_type(x, "integer")
+  expect_equal(x, 1)
+})
+
+# -------------------------------------------------------------------------
+
+test_that("position abbreviation", {
+  x <- stat_abbrev(1)
+  expect_length(x, 1)
+  expect_equal(x, "PC")
+})
+
+test_that("position un-abbreviation", {
+  x <- stat_unabbrev("PC")
+  expect_length(x, 1)
+  expect_type(x, "integer")
+  expect_equal(x, 1)
+})

tests/testthat/test-standings.R

@@ -0,0 +1,19 @@
+test_that("standings returns data frame", {
+  s <- league_standings("42654852")
+  expect_s3_class(s, "data.frame")
+  expect_length(s, 17)
+})
+
+test_that("combine all historical standings", {
+  s <- combine_history(league_standings, "252353")
+  expect_s3_class(s, "data.frame")
+  expect_gt(nrow(s), 10)
+  expect_gt(length(unique(s$seasonId)), 1)
+})
+
+test_that("simulations returns data frame", {
+  s <- league_simulation("42654852")
+  expect_s3_class(s, "data.frame")
+  expect_length(s, 11)
+  expect_true("playoffPct" %in% names(s))
+})