CLOSES #1474, CLOSES #1475, CLOSES #1477, CLOSES #1482, CLOSES #1512, CLOSES #1516, CLOSES #1558, CLOSES #1569, CLOSES #1578, CLOSES #1579

tests/engine/gen2_fly_map_arrow_bug1477.lua

@@ -0,0 +1,32 @@
+-- The Fly map draws no Pokegear mode arrow (engine/pokegear/pokegear.asm:1999) (#1477)
+--   luajit tests/engine/gen2_fly_map_arrow_bug1477.lua
+
+package.path = "./?.lua;./?/init.lua;" .. package.path
+
+local T = require("tests.harness")
+local check = T.check
+love = love or require("tests.love_stub")
+
+local Pokegear = require("src.ui.gen2.Pokegear")
+
+local function drawnArrow(fly)
+  local drew = false
+  local self = setmetatable({
+    fly = fly,
+    styled = function() return true end,
+    groundColor = function() return { 0, 0, 0 } end,
+    card = function() return { id = "map", label = fly and "FLY" or "MAP" } end,
+    drawMap = function() end,
+    drawModeArrow = function() drew = true end,
+  }, { __index = Pokegear })
+  local realRect = love.graphics.rectangle
+  love.graphics.rectangle = function() end
+  self:drawPanel()
+  love.graphics.rectangle = realRect
+  return drew
+end
+
+check(drawnArrow(false), "the Pokegear MAP card still animates the arrow")
+check(not drawnArrow(true), "_FlyMap draws no mode-indicator arrow")
+
+T.finish("gen2 fly map arrow bug 1477")