CLOSES #1396, CLOSES #1398, CLOSES #1400, CLOSES #1401, CLOSES #1406, CLOSES #1407, CLOSES #1411, CLOSES #1413, CLOSES #1415, CLOSES #1416, CLOSES #1417, CLOSES #1419, CLOSES #1421, CLOSES #1422, CLOSES #1423, CLOSES #1424, CLOSES #1425, CLOSES #1427, CLOSES #1428, CLOSES #1429, CLOSES #1431, CLOSES #1432, CLOSES #1433, CLOSES #1435, CLOSES #1437, CLOSES #1440, CLOSES #1441, CLOSES #1442, CLOSES #1443, CLOSES #1447, CLOSES #1449, CLOSES #1456, CLOSES #1464, CLOSES #1465, CLOSES #1468, CLOSES #1469, CLOSES #1470

tests/drivers/gold_radio_knob_bug1442.lua

@@ -0,0 +1,57 @@
+-- Eyeball driver (#1442): the radio card's tuning knob.  PokegearRadio_Init
+-- spawns SPRITE_ANIM_OBJ_RADIO_TUNING_KNOB on tile $08 and AnimateTuningKnob
+-- writes wRadioTuningKnob into its XOFFSET, so a red needle stands in the dial
+-- box at screen x = 72 + knob and steps with every UP/DOWN.  Before the fix the
+-- card drew the dial art and nothing in it.
+--
+--   POKEPORT_IDENTITY=gold-dev POKEPORT_GAME=gold \
+--     POKEPORT_SHOTS=/tmp/radioknob \
+--     POKEPORT_DRIVER=tests/drivers/gold_radio_knob_bug1442.lua \
+--     perl -e 'alarm 300; exec @ARGV' \
+--     python3 -c "import pty; pty.spawn(['love','.'])"
+--
+-- The run parks on the radio card with the knob on 08.5, so UP and DOWN move
+-- the needle by hand.
+local U = require("tests.drivers.util")
+
+local SHOTS = os.getenv("POKEPORT_SHOTS") or "/tmp/radioknob"
+
+return function(game)
+  U.wait(45)
+  local world = game.world
+  assert(world and world.map, "gold world did not boot")
+
+  -- Goldenrod, where the card is handed out, and the two engine flags the
+  -- START menu and the strip read: ENGINE_POKEGEAR and ENGINE_RADIO_CARD.
+  assert(world:setMap("GOLDENROD_CITY", 12, 20, "down"),
+    "setMap failed for GOLDENROD_CITY")
+  world:setEngineFlag(4, true) -- ENGINE_POKEGEAR
+  world:setEngineFlag(0, true) -- ENGINE_RADIO_CARD
+  U.wait(5)
+
+  game:openStartMenuItem("pokegear")
+  U.wait(5)
+  local gear = game.stack:top()
+  assert(gear and gear.cards, "the POKeGEAR did not open")
+  gear.mode = "card"
+  for index, card in ipairs(gear.cards) do
+    if card.id == "radio" then gear.cardIndex = index end
+  end
+  assert(gear:card().id == "radio", "the RADIO card is missing from the strip")
+  U.wait(5)
+
+  -- 04.5, the bottom of the dial: the needle sits at the left of the box.
+  U.shot(game, SHOTS .. "/01-radio-04.5.png")
+  U.log("knob", tostring(gear:currentStation().knob), "at 04.5")
+
+  U.tap(game, "up") U.wait(4)
+  U.tap(game, "up") U.wait(4)
+  U.shot(game, SHOTS .. "/02-radio-08.5.png")
+  U.log("knob", tostring(gear:currentStation().knob), "at 08.5")
+
+  U.log("compare 01 and 02: a red needle stands in the dial box and has",
+    "moved right; UP/DOWN now walk it by hand")
+  while true do
+    coroutine.yield()
+  end
+end