CLOSES #644, CLOSES #703, CLOSES #726, CLOSES #737, CLOSES #750, CLOSES #752, CLOSES #764, CLOSES #765, CLOSES #768, CLOSES #773, CLOSES #774, CLOSES #775, CLOSES #777, CLOSES #780, CLOSES #782

tests/drivers/viridian_fisher_bug775_test.lua

@@ -0,0 +1,81 @@
+-- Manual check of the Viridian fisher's TM42 gift pre text (#775).
+-- pokered ViridianCityFisherText (scripts/ViridianCity.asm) prints
+-- .YouCanHaveThisText ("Yawn! I must have dozed off...") before GiveItem;
+-- the port had no pre entry, so A jumped straight to "received TM42!".
+--   POKEPORT_DRIVER=tests/drivers/viridian_fisher_bug775_test.lua POKEPORT_IDENTITY=bug775 POKEPORT_TOUCH=0 POKEPORT_VERSION=red love .
+return function(game)
+  local U = dofile("tests/drivers/util.lua")
+
+  -- pokered data/maps/objects/ViridianCity.asm: the FISHER stays at (6, 23)
+  -- facing down, so stand one cell below him and look up
+  local MAP = "VIRIDIAN_CITY"
+  local STAND = { x = 6, y = 24, facing = "up" }
+  local SHOT_DIR = os.getenv("SHOT_DIR") or "/tmp/shots"
+
+  local function check(label, ok)
+    U.log(ok and "PASS" or "FAIL", label)
+    return ok
+  end
+
+  U.newGame(game)
+  U.teleport(game, MAP, STAND.x, STAND.y, STAND.facing)
+  U.wait(10)
+
+  local TextBox = require("src.render.TextBox")
+  local function boxText()
+    local top = game.stack:top()
+    if getmetatable(top) ~= TextBox then return nil end
+    local lines = {}
+    for _, page in ipairs(top.pages or {}) do
+      for _, line in ipairs(page) do lines[#lines + 1] = line end
+    end
+    return table.concat(lines, " / ")
+  end
+
+  check("no TM42 in the bag before talking",
+        (game.save.inventory.TM_DREAM_EATER or 0) == 0)
+
+  U.tap(game, "a")
+  U.wait(30)
+
+  local first = boxText()
+  check("pressing A opened a text box", first ~= nil)
+  U.log("first box reads:", first or "(none)")
+  check("it opens on the pre text, not the receipt",
+        first ~= nil and first:find("Yawn!", 1, true) ~= nil)
+  check("the DROWZEE dream paragraph is in it",
+        first ~= nil and first:find("DROWZEE", 1, true) ~= nil)
+  check("the receipt has not fired yet",
+        first == nil or first:find("received", 1, true) == nil)
+  check("the flag is still unset mid pre text",
+        not game.save.flags.EVENT_GOT_TM42)
+  U.shot(game, SHOT_DIR .. "/bug775_pre.png")
+
+  -- type out and dismiss every page of the pre text, then the receipt and
+  -- the explanation behind it
+  for _ = 1, 40 do
+    if not boxText() then break end
+    U.tap(game, "a")
+    U.wait(15)
+  end
+  check("TM42 reached the bag", (game.save.inventory.TM_DREAM_EATER or 0) == 1)
+  check("EVENT_GOT_TM42 is set", game.save.flags.EVENT_GOT_TM42 == true)
+
+  -- second talk: the flag routes to the DREAM EATER explanation, no re-gift
+  U.tap(game, "a")
+  U.wait(30)
+  local again = boxText()
+  U.log("second talk reads:", again or "(none)")
+  check("a second talk shows the explanation, not Yawn! again",
+        again ~= nil and again:find("Yawn!", 1, true) == nil)
+  U.shot(game, SHOT_DIR .. "/bug775_repeat.png")
+
+  U.log("The screen is on the fisher's repeat-visit line now.  The first")
+  U.log("talk should have read three pages: Yawn / the DROWZEE dream /")
+  U.log("\"Here, you can have this TM.\", and only then the TM42 receipt.")
+  U.log("Shots are in " .. SHOT_DIR .. " as bug775_pre.png / bug775_repeat.png.")
+
+  while true do
+    coroutine.yield()
+  end
+end