tests/testthat/test-tidy-players-meta.R

In jplecavalier/tidynhl: An Easy Way to Extract NHL Data in a Tidy Format

test_that("tidy_players_meta() gives correct informations", {

  expect_snapshot_output(tidy_players_meta(c(8471679L, 8448782L, 8448960L)))

})

test_that("tidy_players_meta() keep_id parameter works", {

  expect_length(grep("_id$", names(tidy_players_meta(c(8471679L, 8448782L, 8448960L)))), 0L)
  expect_equal(
    object = tidy_players_meta(c(8471679L, 8448782L, 8448960L), keep_id = TRUE)$player_id,
    expected = sort(c(8471679L, 8448782L, 8448960L))
  )

})

test_that("tidy_players_meta() return_datatable parameter works", {

  expect_s3_class(
    object = tidy_players_meta(c(8471679L, 8448782L, 8448960L), return_datatable = FALSE),
    class = "data.frame"
  )
  expect_s3_class(
    object = tidy_players_meta(c(8471679L, 8448782L, 8448960L), return_datatable = TRUE),
    class = "data.table"
  )

})