tests/testthat/test-WARRIOR_ACTION.R

In rwarrior: R Warrior - An AI Programming Game

game_state_1_1 <- GAME_STATE$new(levels_beginner[[1]])
game_state_2_1 <- GAME_STATE$new(levels_beginner[[2]])
game_state_3_1 <- GAME_STATE$new(levels_beginner[[2]])
game_state_4_1 <- GAME_STATE$new(levels_beginner[[2]])
game_state_9_1 <- GAME_STATE$new(levels_beginner[[9]])
test_levels <- list()

test_levels[[2]] <- list(
  description = "Test $attack_routine() and $feel()",
  size = c(1,3),
  warrior = WARRIOR$new(feel = TRUE)$set_loc(1, 1),
  npcs = list(
    sludge_here(1, 2)
  ),
  stairs = c(1,3),
  tip = "",
  time_bonus = 0,
  ace_score = 0
)
game_state_test_2_1 <- GAME_STATE$new(test_levels[[2]])

test_that("WARRIOR_ACTION", {
  expect_s3_class(WARRIOR_ACTION$new(game_state_2_1), "WARRIOR_ACTION")
  expect_true(WARRIOR_ACTION$new(game_state_2_1)$feel()$empty)
  expect_true(WARRIOR_ACTION$new(game_state_test_2_1)$feel()$enemy)
  expect_false(WARRIOR_ACTION$new(game_state_test_2_1)$feel()$empty)
  expect_error(WARRIOR_ACTION$new(game_state_1_1)$feel(), "Warrior does not yet have the feel function")
  expect_error(WARRIOR_ACTION$new(game_state_1_1)$attack(), "Warrior does not yet have the attack function")
  expect_error(WARRIOR_ACTION$new(game_state_1_1)$rest(), "Warrior does not yet have the rest function")
  # TODO: Test for an error without causing an error (not sure why this isn't working):
  # expect_error(WARRIOR_ACTION$new(game_state_3_1)$walk()$attack(), "Cannot call more than one Warrior action on a turn.")
  expect_true(WARRIOR_ACTION$new(game_state_3_1)$feel("backward")$wall)
  expect_error(WARRIOR_ACTION$new(game_state_3_1)$feel("goose")$wall, "'arg' should be one of")
  expect_false(WARRIOR_ACTION$new(game_state_3_1)$feel("forward")$wall)
  expect_true(WARRIOR_ACTION$new(game_state_3_1)$feel("left")$wall)
  expect_true(WARRIOR_ACTION$new(game_state_3_1)$feel("right")$wall)
  expect_true(WARRIOR_ACTION$new(game_state_3_1)$feel("backward")$wall)
  expect_error(WARRIOR_ACTION$new(game_state_3_1)$shoot(), "not yet have the shoot function")
  expect_error(WARRIOR_ACTION$new(game_state_3_1)$look(), "not yet have the look function")
  expect_error(WARRIOR_ACTION$new(game_state_3_1)$rescue(), "not yet have the rescue function")
  expect_type(WARRIOR_ACTION$new(game_state_9_1)$look("backward"), "list")
  expect_type(WARRIOR_ACTION$new(game_state_9_1)$look("right"), "list")
  expect_type(WARRIOR_ACTION$new(game_state_9_1)$look("left"), "list")
})