tests/testthat/test-check_player.R

In informalr/snackman: An awesome game inspired by Pacman

test_that("use", {
  expect_silent(check_player(create_test_player()))
  expect_error(
    check_player(NA),
    "'player' must be a list"
  )
  expect_error(
    check_player(list()),
    "'player' must be a list with the element 'x'"
  )
  expect_error(
    check_player(list(x = 1)),
    "'player' must be a list with the element 'y'"
  )
  expect_error(
    check_player(list(x = 1, y = 1)),
    "'player' must be a list with the element 'size'"
  )
})