tests/testthat/test-Action.R

In informalr/snackman: An awesome game inspired by Pacman

test_that("create", {
  skip("Issue 31. Issue #31")
  # Uncomment these :-) # nolint
  # expect_silent(Action$new("player_left")) # nolint
  # expect_silent(Action$new("player_right")) # nolint
})

test_that("player_left action", {
  skip("Issue 31. Issue #31")
  # Uncomment these :-)  # nolint
  # action_player_left <- Action$new("player_left") # nolint
  # expect_equal(action_player_left$type, "player_left") # nolint
})

test_that("player_right action", {
  # action_player_right <- Action$new("player_right") # nolint
  # expect_equal(action_player_right$type, "player_right") # nolint
})