CLOSES #2649, CLOSES #2650, CLOSES #2652, CLOSES #2653, CLOSES #2654, CLOSES #2657, CLOSES #2658, CLOSES #2659, CLOSES #2660, CLOSES #2662, CLOSES #2664, CLOSES #2665, CLOSES #2666, CLOSES #2669, CLOSES #2671, CLOSES #2672, CLOSES #2674, CLOSES #2676, CLOSES #2682, CLOSES #2683, CLOSES #2684, CLOSES #2685, CLOSES #2686, CLOSES #2687, CLOSES #2688, CLOSES #2689

2026-10-07 01:18:32 -04:00 · 2026-10-05 11:06:01 -04:00
parent 160895c6bb
commit 72f2294d8d
110 changed files with 8042 additions and 694 deletions
@@ -0,0 +1,128 @@
+-- engine/events/pokemart.asm:152
+-- engine/items/inventory.asm:59
+--   POKEPORT_DRIVER=tests/drivers/mart_split_stack_bug2671.lua POKEPORT_IDENTITY=bsa1005-red-2671 POKEPORT_VERSION=red love .
+return function(game)
+  local U = dofile("tests/drivers/util.lua")
+  local DIR = os.getenv("POKEPORT_SHOT_DIR") or os.getenv("SHOT_DIR") or "/tmp/shots"
+  local Bag = require("src.inventory.Bag")
+  local Menu = require("src.ui.Menu")
+  local ListMenu = require("src.ui.ListMenu")
+  local QuantityBox = require("src.ui.QuantityBox")
+  local ChoiceBox = require("src.ui.ChoiceBox")
+  local TextBox = require("src.render.TextBox")
+
+  local failures = 0
+  local function check(label, ok)
+    if not ok then failures = failures + 1 end
+    U.log(ok and "PASS" or "FAIL", label)
+    return ok
+  end
+  local function top() return game.stack:top() end
+  local function topIs(cls) return getmetatable(top()) == cls end
+  local function waitFor(pred, frames)
+    for _ = 1, frames or 300 do
+      if pred() then return true end
+      U.wait(1)
+    end
+    return pred()
+  end
+  local function rows()
+    local out = {}
+    for _, r in ipairs(Bag.rows(game.save, game.data)) do
+      out[#out + 1] = r.id .. "x" .. tostring(r.count)
+    end
+    return table.concat(out, ",")
+  end
+  local function finish()
+    U.log(failures == 0 and "PASS mart_split_stack_bug2671"
+          or ("FAIL mart_split_stack_bug2671 (" .. failures .. " failures)"))
+    love.event.quit(failures == 0 and 0 or 1)
+    U.wait(600)
+  end
+
+  local MONEY = 104276
+  local ok, err = pcall(function()
+    game.save.money = MONEY
+    game.save.inventory = { X_ACCURACY = 2, POTION = 3 }
+    game.save.bagOrder = { "X_ACCURACY", "POTION" }
+    U.teleport(game, "CELADON_MART_5F", 5, 5, "up")
+    U.wait(10)
+
+    for _ = 1, 60 do
+      if topIs(Menu) then break end
+      U.tap(game, "a")
+      U.wait(4)
+    end
+    if not check("the X item clerk's mart menu opens", topIs(Menu)) then return end
+    local menu = top()
+
+    U.tap(game, "a")
+    if not check("BUY opens the list", waitFor(function() return topIs(ListMenu) end, 300)) then return end
+    local list = top()
+    check("the cursor is on X ACCURACY", list.items[list.index].value == "X_ACCURACY")
+    U.wait(4)
+    U.tap(game, "a")
+    if not check("the quantity box opens", waitFor(function() return topIs(QuantityBox) end, 30)) then return end
+    local qty = top()
+    check("the selector max stays 99", qty.max == 99)
+    U.wait(4)
+    U.tap(game, "down")
+    U.wait(4)
+    check("DOWN wraps to x99", qty.qty == 99)
+    U.still(game, DIR .. "/2671_01_buy_x99.png")
+
+    U.tap(game, "a")
+    if not check("YES/NO opens", waitFor(function()
+      if topIs(TextBox) and top().waiting then U.tap(game, "a") end
+      return topIs(ChoiceBox)
+    end, 600)) then return end
+    U.wait(4)
+    U.tap(game, "a")
+    local receipt
+    check("the clerk hands the items over", waitFor(function()
+      local t = top()
+      if getmetatable(t) == TextBox and t.pages then
+        local text = table.concat(t.pages[1] or {}, " ")
+        if text:find("Here you are", 1, true) then receipt = t return true end
+        if text:find("carry", 1, true) then return true end
+      end
+      return false
+    end, 600) and receipt ~= nil)
+    check("94050 is paid", game.save.money == MONEY - 94050)
+    check("the bag holds 101 X ACCURACY", game.save.inventory.X_ACCURACY == 101)
+    check("the overflow sits in a new last slot: " .. rows(),
+          rows() == "X_ACCURACYx99,POTIONx3,X_ACCURACYx2")
+    waitFor(function() return receipt.done end, 600)
+    U.still(game, DIR .. "/2671_02_here_you_are.png")
+
+    for _ = 1, 30 do
+      if top() == list then break end
+      U.tap(game, "a")
+      U.wait(4)
+    end
+    U.tap(game, "b")
+    if not check("B returns to BUY/SELL/QUIT", waitFor(function()
+      if topIs(TextBox) and top().waiting then U.tap(game, "a") end
+      return top() == menu
+    end, 600)) then return end
+    U.wait(4)
+    U.tap(game, "down")
+    U.wait(4)
+    U.tap(game, "a")
+    if not check("SELL opens the bag list", waitFor(function() return topIs(ListMenu) end, 300)) then return end
+    local sellList = top()
+    U.wait(30)
+    local counts = {}
+    for _, it in ipairs(sellList.items) do
+      if not it.cancel then counts[#counts + 1] = it.value .. "x" .. tostring(it.count) end
+    end
+    check("the sell list shows two X ACCURACY rows: " .. table.concat(counts, ","),
+          table.concat(counts, ",") == "X_ACCURACYx99,POTIONx3,X_ACCURACYx2")
+    U.still(game, DIR .. "/2671_03_sell_list_split_rows.png")
+  end)
+  if not ok then
+    failures = failures + 1
+    U.log("FAIL driver error:", tostring(err))
+  end
+  finish()
+end