Nothing
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[[3]])
game_state_4_1 <- GAME_STATE$new(levels_beginner[[4]])
game_state_5_1 <- GAME_STATE$new(levels_beginner[[5]])
game_state_5_2 <- game_state_5_1$deep_clone()
game_state_5_2$warrior$set_loc(1, 2)
wa_1 <- WARRIOR_ACTION$new(game_state_1_1)
wa_1$action <- "hamster"
wa_2 <- WARRIOR_ACTION$new(game_state_2_1)
wa_2$attack("backward")
wa_5_rescue_wall <- WARRIOR_ACTION$new(game_state_5_1)
wa_5_rescue_wall$rescue("backward")
wa_5_rescue_empty <- WARRIOR_ACTION$new(game_state_5_1)
wa_5_rescue_empty$rescue()
wa_5_rescue_captive <- WARRIOR_ACTION$new(game_state_5_2)
wa_5_rescue_captive$rescue()
test_that("warrior_turn()", {
expect_equal(warrior_turn(WARRIOR_ACTION$new(game_state_1_1), game_state_1_1, "Fisher"), "No Warrior action was called in the AI function.")
expect_equal(warrior_turn(wa_1, game_state_1_1, "Fisher"), "Invalid warrior action: hamster.")
expect_message(warrior_turn(wa_2, game_state_2_1, "Goose", output = TRUE), paste(style_bold("attacks"), "backward and hits the wall"))
expect_message(warrior_turn(wa_5_rescue_wall, game_state_5_1, "Fish", output = TRUE), paste(style_bold("rescue"), "backward on Wall"))
expect_message(warrior_turn(wa_5_rescue_empty, game_state_5_1, "Fish", output = TRUE), paste(style_bold("rescues"), "forward into empty space"))
expect_message(warrior_turn(wa_5_rescue_captive, game_state_5_2, "Fish", output = TRUE), paste("unbinds forward and", style_bold("rescues"), "Captive"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.