gemba 0.2.0 → 0.2.1

data/test/test_list_picker_frame.rb

@@ -0,0 +1,391 @@
+# frozen_string_literal: true
+
+require "minitest/autorun"
+require_relative "shared/tk_test_helper"
+
+class TestListPickerFrame < Minitest::Test
+  include TeekTestHelper
+
+  
+
+  # ── Population ─────────────────────────────────────────────────────────────
+
+  def test_empty_library_shows_no_rows
+    assert_tk_app("empty library produces zero treeview rows") do
+      require "gemba/headless"
+
+      lib    = Struct.new(:roms) { def all = roms }.new([])
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      items = app.tcl_eval(".list_picker.tree children {}").split
+      assert_empty items, "no rows expected for empty library"
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_roms_populate_title_column
+    assert_tk_app("ROM titles appear in the title column") do
+      require "gemba/headless"
+
+      roms = [
+        { 'title' => 'Alpha', 'platform' => 'gba', 'path' => '/a.gba',
+          'last_played' => '2026-02-20T10:00:00Z' },
+        { 'title' => 'Beta',  'platform' => 'gbc', 'path' => '/b.gbc',
+          'last_played' => '2026-02-19T10:00:00Z' },
+      ]
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      items  = app.tcl_eval(".list_picker.tree children {}").split
+      titles = items.map { |id| app.tcl_eval(".list_picker.tree set #{id} title") }
+      assert_equal 2, titles.size
+      assert_includes titles, 'Alpha'
+      assert_includes titles, 'Beta'
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_last_played_formatted_as_month_day_year
+    assert_tk_app("last_played ISO string is formatted for display") do
+      require "gemba/headless"
+
+      roms = [{ 'title' => 'Game', 'platform' => 'gba', 'path' => '/g.gba',
+                'last_played' => '2026-02-22T15:30:00Z' }]
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      iid = app.tcl_eval(".list_picker.tree children {}").split.first
+      lp  = app.tcl_eval(".list_picker.tree set #{iid} last_played")
+      assert_match(/Feb\s+22,\s+2026/, lp)
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_nil_last_played_shows_never_placeholder
+    assert_tk_app("ROM with no last_played shows never-played text, not a date") do
+      require "gemba/headless"
+
+      roms = [{ 'title' => 'New Game', 'platform' => 'gba', 'path' => '/n.gba' }]
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      iid = app.tcl_eval(".list_picker.tree children {}").split.first
+      lp  = app.tcl_eval(".list_picker.tree set #{iid} last_played")
+      refute_empty lp
+      refute_match(/\d{4}/, lp, "should not look like a date")
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_all_roms_shown_without_cap
+    assert_tk_app("all 20 library ROMs appear with no cap") do
+      require "gemba/headless"
+
+      roms = 20.times.map { |i| { 'title' => "Game #{i}", 'platform' => 'gba', 'path' => "/g#{i}.gba" } }
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      count = app.tcl_eval(".list_picker.tree children {}").split.size
+      assert_equal 20, count
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  # ── Default sort ────────────────────────────────────────────────────────────
+
+  def test_default_sort_newest_last_played_first
+    assert_tk_app("default sort shows most-recently-played ROM first") do
+      require "gemba/headless"
+
+      roms = [
+        { 'title' => 'Old',    'platform' => 'gba', 'path' => '/o.gba',
+          'last_played' => '2024-01-01T00:00:00Z' },
+        { 'title' => 'Recent', 'platform' => 'gba', 'path' => '/r.gba',
+          'last_played' => '2026-02-22T00:00:00Z' },
+        { 'title' => 'Middle', 'platform' => 'gba', 'path' => '/m.gba',
+          'last_played' => '2025-06-15T00:00:00Z' },
+      ]
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      items  = app.tcl_eval(".list_picker.tree children {}").split
+      titles = items.map { |id| app.tcl_eval(".list_picker.tree set #{id} title") }
+      assert_equal 'Recent', titles[0], "most recent should be first"
+      assert_equal 'Middle', titles[1]
+      assert_equal 'Old',    titles[2]
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  # ── Sorting ─────────────────────────────────────────────────────────────────
+
+  def test_click_title_heading_sorts_a_to_z_with_indicator
+    assert_tk_app("clicking title heading sorts A→Z and shows ▲") do
+      require "gemba/headless"
+
+      roms = [
+        { 'title' => 'Zelda',       'platform' => 'gba', 'path' => '/z.gba' },
+        { 'title' => 'Metroid',     'platform' => 'gba', 'path' => '/m.gba' },
+        { 'title' => 'Castlevania', 'platform' => 'gba', 'path' => '/c.gba' },
+      ]
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      cmd = app.tcl_eval(".list_picker.tree heading title -command")
+      app.tcl_eval("uplevel #0 {#{cmd}}")
+      app.update
+
+      items  = app.tcl_eval(".list_picker.tree children {}").split
+      titles = items.map { |id| app.tcl_eval(".list_picker.tree set #{id} title") }
+      assert_equal %w[Castlevania Metroid Zelda], titles
+      assert_includes app.tcl_eval(".list_picker.tree heading title -text"), '▲'
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_click_title_heading_twice_reverses_to_z_to_a
+    assert_tk_app("clicking title heading twice reverses to Z→A and shows ▼") do
+      require "gemba/headless"
+
+      roms = [
+        { 'title' => 'Zelda',   'platform' => 'gba', 'path' => '/z.gba' },
+        { 'title' => 'Metroid', 'platform' => 'gba', 'path' => '/m.gba' },
+      ]
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      cmd = app.tcl_eval(".list_picker.tree heading title -command")
+      app.tcl_eval("uplevel #0 {#{cmd}}")  # asc
+      app.tcl_eval("uplevel #0 {#{cmd}}")  # desc
+      app.update
+
+      items  = app.tcl_eval(".list_picker.tree children {}").split
+      titles = items.map { |id| app.tcl_eval(".list_picker.tree set #{id} title") }
+      assert_equal %w[Zelda Metroid], titles
+      assert_includes app.tcl_eval(".list_picker.tree heading title -text"), '▼'
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_click_last_played_heading_sorts_oldest_first
+    assert_tk_app("clicking last_played heading (toggle from default desc) shows oldest first") do
+      require "gemba/headless"
+
+      roms = [
+        { 'title' => 'Old',    'platform' => 'gba', 'path' => '/o.gba',
+          'last_played' => '2024-01-01T00:00:00Z' },
+        { 'title' => 'Recent', 'platform' => 'gba', 'path' => '/r.gba',
+          'last_played' => '2026-02-22T00:00:00Z' },
+      ]
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      # Default is last_played desc — clicking once switches to asc (oldest first)
+      cmd = app.tcl_eval(".list_picker.tree heading last_played -command")
+      app.tcl_eval("uplevel #0 {#{cmd}}")
+      app.update
+
+      items  = app.tcl_eval(".list_picker.tree children {}").split
+      titles = items.map { |id| app.tcl_eval(".list_picker.tree set #{id} title") }
+      assert_equal 'Old', titles[0], "ascending: oldest first"
+      assert_includes app.tcl_eval(".list_picker.tree heading last_played -text"), '▲'
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_switching_sort_column_clears_old_indicator
+    assert_tk_app("switching sort column removes ▲/▼ from the old column") do
+      require "gemba/headless"
+
+      roms = [{ 'title' => 'Solo', 'platform' => 'gba', 'path' => '/s.gba' }]
+      lib    = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      title_cmd = app.tcl_eval(".list_picker.tree heading title -command")
+      lp_cmd    = app.tcl_eval(".list_picker.tree heading last_played -command")
+
+      app.tcl_eval("uplevel #0 {#{title_cmd}}")  # sort by title (adds ▲)
+      app.tcl_eval("uplevel #0 {#{lp_cmd}}")     # switch to last_played
+      app.update
+
+      title_text = app.tcl_eval(".list_picker.tree heading title -text")
+      refute_includes title_text, '▲', "title heading should lose its indicator"
+      refute_includes title_text, '▼', "title heading should lose its indicator"
+
+      lp_text = app.tcl_eval(".list_picker.tree heading last_played -text")
+      assert(lp_text.include?('▲') || lp_text.include?('▼'),
+             "last_played heading should now show an indicator")
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  # ── Interaction ─────────────────────────────────────────────────────────────
+
+  def test_double_click_row_emits_rom_selected
+    assert_tk_app("double-clicking a row emits :rom_selected with the ROM path") do
+      require "gemba/headless"
+
+      rom_path = '/games/fire_red.gba'
+      roms     = [{ 'title' => 'Fire Red', 'platform' => 'gba', 'path' => rom_path }]
+      lib      = Struct.new(:roms) { def all = roms }.new(roms)
+      picker   = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+
+      received = nil
+      Gemba.bus.on(:rom_selected) { |path| received = path }
+
+      picker.show
+      app.show
+      app.update
+
+      iid = app.tcl_eval(".list_picker.tree children {}").split.first
+      app.tcl_eval(".list_picker.tree focus #{iid}")
+      app.tcl_eval(".list_picker.tree selection set #{iid}")
+      app.tcl_eval("event generate .list_picker.tree <<DoubleClick>>")
+      app.update
+
+      assert_equal rom_path, received
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_right_click_quick_load_disabled_when_no_save_state
+    assert_tk_app("<<RightClick>> quick load entry is disabled with no save file") do
+      require "gemba/headless"
+      require "tmpdir"
+
+      Dir.mktmpdir("list_picker_qs_test") do |tmpdir|
+        rom_id = "AGB-TEST-DEADBEEF"
+        roms   = [{ 'title' => 'Test', 'platform' => 'gba',
+                    'rom_id' => rom_id, 'game_code' => 'AGB-TEST',
+                    'path' => '/games/test.gba', 'last_played' => '2026-01-01T00:00:00Z' }]
+
+        Gemba.user_config.states_dir = tmpdir
+        lib    = Struct.new(:roms) { def all = roms }.new(roms)
+        picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+        picker.show
+        app.show
+        app.update
+
+        iid = app.tcl_eval(".list_picker.tree children {}").split.first
+        app.tcl_eval(".list_picker.tree focus #{iid}")
+        app.tcl_eval(".list_picker.tree selection set #{iid}")
+
+        override_tk_popup do
+          app.tcl_eval("event generate .list_picker.tree <<RightClick>>")
+          app.update
+        end
+
+        state = app.tcl_eval(".list_picker.tree.ctx entrycget 1 -state")
+        assert_equal 'disabled', state
+
+        app.command(:destroy, '.list_picker') rescue nil
+      end
+    end
+  end
+
+  def test_right_click_quick_load_enabled_when_save_state_exists
+    assert_tk_app("<<RightClick>> quick load entry is enabled when save file exists") do
+      require "gemba/headless"
+      require "tmpdir"
+      require "fileutils"
+
+      fixture = File.expand_path("test/fixtures/test_quicksave.ss")
+
+      Dir.mktmpdir("list_picker_qs_test") do |tmpdir|
+        rom_id    = "AGB-TEST-DEADBEEF"
+        slot      = Gemba.user_config.quick_save_slot
+        state_dir = File.join(tmpdir, rom_id)
+        FileUtils.mkdir_p(state_dir)
+        FileUtils.cp(fixture, File.join(state_dir, "state#{slot}.ss"))
+
+        roms = [{ 'title' => 'Test', 'platform' => 'gba',
+                  'rom_id' => rom_id, 'game_code' => 'AGB-TEST',
+                  'path' => '/games/test.gba', 'last_played' => '2026-01-01T00:00:00Z' }]
+
+        Gemba.user_config.states_dir = tmpdir
+        lib    = Struct.new(:roms) { def all = roms }.new(roms)
+        picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+        picker.show
+        app.show
+        app.update
+
+        iid = app.tcl_eval(".list_picker.tree children {}").split.first
+        app.tcl_eval(".list_picker.tree focus #{iid}")
+        app.tcl_eval(".list_picker.tree selection set #{iid}")
+
+        override_tk_popup do
+          app.tcl_eval("event generate .list_picker.tree <<RightClick>>")
+          app.update
+        end
+
+        state = app.tcl_eval(".list_picker.tree.ctx entrycget 1 -state")
+        assert_equal 'normal', state
+
+        app.command(:destroy, '.list_picker') rescue nil
+      end
+    end
+  end
+
+  def test_refresh_repopulates_rows
+    assert_tk_app("receive(:refresh) updates rows from the current library state") do
+      require "gemba/headless"
+
+      roms = [{ 'title' => 'Alpha', 'platform' => 'gba', 'path' => '/a.gba' }]
+      lib  = Struct.new(:roms) { def all = roms }.new(roms)
+
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.update
+
+      items  = app.tcl_eval(".list_picker.tree children {}").split
+      titles = items.map { |id| app.tcl_eval(".list_picker.tree set #{id} title") }
+      assert_equal ['Alpha'], titles
+
+      lib.roms = [
+        { 'title' => 'Alpha', 'platform' => 'gba', 'path' => '/a.gba' },
+        { 'title' => 'Beta',  'platform' => 'gbc', 'path' => '/b.gbc' },
+      ]
+      picker.receive(:refresh)
+      app.update
+
+      items  = app.tcl_eval(".list_picker.tree children {}").split
+      titles = items.map { |id| app.tcl_eval(".list_picker.tree set #{id} title") }
+      assert_equal 2, titles.size
+      assert_includes titles, 'Alpha'
+      assert_includes titles, 'Beta'
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+end

data/test/test_ra_backend_unlock_retry.rb

@@ -0,0 +1,123 @@
+# frozen_string_literal: true
+
+require "minitest/autorun"
+require "gemba/headless"
+require_relative "support/fake_ra_runtime"
+require_relative "support/fake_requester"
+require_relative "support/fake_core"
+
+# Tests for the unlock retry queue in RetroAchievements::Backend.
+#
+# FakeRequester fires on_progress synchronously so no event loop is needed.
+# For worker-style calls (drain_unlock_queue) it yields [ok, id] to match
+# what UnlockRetryWorker produces in production.
+class TestRABackendUnlockRetry < Minitest::Test
+  Backend = Gemba::Achievements::RetroAchievements::Backend
+
+  PATCH = {
+    "PatchData" => {
+      "RichPresencePatch" => "",
+      "Achievements" => [
+        { "ID" => 101, "Title" => "First Blood", "Description" => "Kill",
+          "Points" => 5, "MemAddr" => "0=1", "Flags" => 3 },
+        { "ID" => 102, "Title" => "Survivor", "Description" => "Survive",
+          "Points" => 10, "MemAddr" => "1=1", "Flags" => 3 },
+      ],
+    },
+  }.freeze
+
+  def setup
+    @rt  = FakeRARuntime.new
+    @req = FakeRequester.new
+    @b   = Backend.new(app: nil, runtime: @rt, requester: @req)
+  end
+
+  def login_and_load
+    @req.stub(r: "login2",  body: { "Success" => true })
+    @req.stub(r: "gameid",  body: { "GameID" => 42 })
+    @req.stub(r: "patch",   body: PATCH)
+    @req.stub(r: "unlocks", body: { "Success" => true, "UserUnlocks" => [] })
+    @b.login_with_token(username: "user", token: "tok")
+    Dir.mktmpdir do |dir|
+      rom = File.join(dir, "test.gba")
+      File.write(rom, "FAKEGBA")
+      @b.load_game(nil, rom, "deadbeef" * 4)
+    end
+  end
+
+  # -- Queue builds on initial failure ----------------------------------------
+
+  def test_failed_unlock_enqueues_for_retry
+    login_and_load
+    @req.stub(r: "awardachievement", ok: false, body: { "Success" => false })
+    @rt.queue_triggers("101")
+    @b.do_frame(FakeCore.new)
+    assert_equal 1, @b.unlock_queue.size
+    assert_equal "101", @b.unlock_queue.first[:id]
+  end
+
+  def test_successful_unlock_does_not_enqueue
+    login_and_load
+    @req.stub(r: "awardachievement", ok: true, body: { "Success" => true })
+    @rt.queue_triggers("101")
+    @b.do_frame(FakeCore.new)
+    assert_empty @b.unlock_queue
+  end
+
+  def test_multiple_failed_unlocks_all_enqueue
+    login_and_load
+    @req.stub(r: "awardachievement", ok: false, body: { "Success" => false })
+    @rt.queue_triggers("101", "102")
+    @b.do_frame(FakeCore.new)
+    assert_equal 2, @b.unlock_queue.size
+  end
+
+  # -- drain_unlock_queue -----------------------------------------------------
+
+  def test_drain_sends_retry_request_per_entry
+    login_and_load
+    @req.stub(r: "awardachievement", ok: true, body: { "Success" => true })
+    @b.unlock_queue << { id: "101", hardcore: false }
+    @b.unlock_queue << { id: "102", hardcore: false }
+    @b.drain_unlock_queue
+    assert_equal 2, @req.requests_for("awardachievement").size
+  end
+
+  def test_drain_clears_queue_on_success
+    login_and_load
+    @req.stub(r: "awardachievement", ok: true, body: { "Success" => true })
+    @b.unlock_queue << { id: "101", hardcore: false }
+    @b.drain_unlock_queue
+    assert_empty @b.unlock_queue
+  end
+
+  def test_drain_keeps_queue_on_failure
+    login_and_load
+    @req.stub(r: "awardachievement", ok: false, body: { "Success" => false })
+    @b.unlock_queue << { id: "101", hardcore: false }
+    @b.drain_unlock_queue
+    assert_equal 1, @b.unlock_queue.size
+  end
+
+  def test_drain_partial_success_removes_only_succeeded
+    login_and_load
+    @req.stub_queue(r: "awardachievement", ok: true,  body: { "Success" => true })
+    @req.stub_queue(r: "awardachievement", ok: false, body: { "Success" => false })
+    @b.unlock_queue << { id: "101", hardcore: false }
+    @b.unlock_queue << { id: "102", hardcore: false }
+    @b.drain_unlock_queue
+    assert_equal 1, @b.unlock_queue.size
+    assert_equal "102", @b.unlock_queue.first[:id]
+  end
+
+  # -- shutdown ---------------------------------------------------------------
+
+  def test_shutdown_logs_pending_and_does_not_raise
+    @b.unlock_queue << { id: "101", hardcore: false }
+    @b.shutdown
+  end
+
+  def test_shutdown_with_empty_queue_does_not_raise
+    @b.shutdown
+  end
+end

data/test/test_rom_patcher.rb

@@ -70,7 +70,7 @@ class TestRomPatcher < Minitest::Test
     payload + [src_crc, tgt_crc, patch_crc].pack("VVV")
   end
 
-  # Encode a UPS varint (simple bitshift encoding).
+  # Encode a UPS varint (additive-shift encoding with continuation bias).
   def ups_varint(n)
     out = "".b
     loop do
@@ -81,6 +81,7 @@ class TestRomPatcher < Minitest::Test
         break
       end
       out << x.chr
+      n -= 1
     end
     out
   end

data/test/test_virtual_events.rb

@@ -87,6 +87,71 @@ class TestVirtualEvents < Minitest::Test
     assert_virtual_event_fires('ToggleHelpWindow', with_rom: false)
   end
 
+  # ── ListPickerFrame <<RightClick>> virtual event ───────────────────────────
+
+  def test_double_button1_on_list_picker_tree_fires_double_click_virtual_event
+    assert_tk_app("<Double-Button-1> on list picker treeview generates <<DoubleClick>>") do
+      require "gemba/headless"
+
+      roms = [{ 'title' => 'Test', 'platform' => 'gba', 'path' => '/t.gba' }]
+      lib  = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.show
+      app.update
+
+      tree = '.list_picker.tree'
+      app.tcl_eval("bind #{tree} <<DoubleClick>> {+set ::dclick_fired 1}")
+
+      iid = app.tcl_eval("#{tree} children {}").split.first
+      app.tcl_eval("#{tree} focus #{iid}")
+      app.tcl_eval("#{tree} selection set #{iid}")
+      # Simulate double-click via the virtual event directly (event generate
+      # <Double-Button-1> is forbidden in Tk 9).
+      app.tcl_eval("event generate #{tree} <<DoubleClick>>")
+      app.update
+
+      fired = app.tcl_eval("info exists ::dclick_fired") rescue "0"
+      assert_equal "1", fired, "<<DoubleClick>> binding did not fire"
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
+  def test_button3_on_list_picker_tree_fires_right_click_virtual_event
+    assert_tk_app("<Button-3> on list picker treeview generates <<RightClick>>") do
+      require "gemba/headless"
+
+      roms = [{ 'title' => 'Test', 'platform' => 'gba', 'path' => '/t.gba' }]
+      lib  = Struct.new(:roms) { def all = roms }.new(roms)
+      picker = Gemba::ListPickerFrame.new(app: app, rom_library: lib)
+      picker.show
+      app.show
+      app.update
+      app.tcl_eval("raise .")
+      app.tcl_eval("update idletasks")
+
+      tree = '.list_picker.tree'
+      # Append a Tcl side-effect to <<RightClick>> on the tree
+      app.tcl_eval("bind #{tree} <<RightClick>> {+set ::rclick_fired 1}")
+
+      iid  = app.tcl_eval("#{tree} children {}").split.first
+      bbox = app.tcl_eval("#{tree} bbox #{iid}").split.map(&:to_i)
+      bx   = bbox[0] + 5
+      by   = bbox[1] + 5
+
+      override_tk_popup do
+        app.tcl_eval("event generate #{tree} <Button-3> -x #{bx} -y #{by} -warp 1")
+        app.update
+      end
+
+      fired = app.tcl_eval("info exists ::rclick_fired") rescue "0"
+      assert_equal "1", fired, "<<RightClick>> was not generated by <Button-3>"
+
+      app.command(:destroy, '.list_picker') rescue nil
+    end
+  end
+
   private
 
   # Verifies that generating <<EventName>> on '.' fires the binding.

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: gemba
 version: !ruby/object:Gem::Version
-  version: 0.2.0
+  version: 0.2.1
 platform: ruby
 authors:
 - James Cook
@@ -194,6 +194,7 @@ files:
 - lib/gemba/achievements/retro_achievements/backend.rb
 - lib/gemba/achievements/retro_achievements/cli_sync_requester.rb
 - lib/gemba/achievements/retro_achievements/ping_worker.rb
+- lib/gemba/achievements/retro_achievements/unlock_retry_worker.rb
 - lib/gemba/achievements_window.rb
 - lib/gemba/app_controller.rb
 - lib/gemba/bios.rb
@@ -232,6 +233,7 @@ files:
 - lib/gemba/input_recorder.rb
 - lib/gemba/input_replayer.rb
 - lib/gemba/keyboard_map.rb
+- lib/gemba/list_picker_frame.rb
 - lib/gemba/locale.rb
 - lib/gemba/locales/en.yml
 - lib/gemba/locales/ja.yml
@@ -331,6 +333,7 @@ files:
 - test/test_input_replayer.rb
 - test/test_keyboard_map.rb
 - test/test_libretro_backend.rb
+- test/test_list_picker_frame.rb
 - test/test_locale.rb
 - test/test_logging.rb
 - test/test_mgba.rb
@@ -340,6 +343,7 @@ files:
 - test/test_platform.rb
 - test/test_ra_backend.rb
 - test/test_ra_backend_unlock_gate.rb
+- test/test_ra_backend_unlock_retry.rb
 - test/test_recorder.rb
 - test/test_replay_player.rb
 - test/test_rom_info.rb
@@ -491,7 +495,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
 requirements:
 - libmgba development headers
 - rubyzip gem >= 2.4 (optional, for loading ROMs from .zip files)
-rubygems_version: 3.6.9
+rubygems_version: 4.0.3
 specification_version: 4
 summary: GBA emulator frontend powered by teek and libmgba
 test_files: []