gemba 0.1.1 → 0.2.0

data/test/test_tip_service.rb

@@ -8,7 +8,7 @@ class TestTipService < Minitest::Test
 
   def test_register_sets_underline_font
     assert_tk_app("register sets underlined font") do
-      require "gemba/tip_service"
+      require "gemba/headless"
       tips = Gemba::TipService.new(app)
 
       lbl = ".test_lbl"
@@ -27,7 +27,7 @@ class TestTipService < Minitest::Test
 
   def test_show_creates_tooltip
     assert_tk_app("show creates a tooltip toplevel") do
-      require "gemba/tip_service"
+      require "gemba/headless"
       tips = Gemba::TipService.new(app)
 
       lbl = ".test_lbl"
@@ -47,7 +47,7 @@ class TestTipService < Minitest::Test
 
   def test_hide_destroys_tooltip
     assert_tk_app("hide destroys tooltip") do
-      require "gemba/tip_service"
+      require "gemba/headless"
       tips = Gemba::TipService.new(app)
 
       lbl = ".test_lbl"
@@ -69,7 +69,7 @@ class TestTipService < Minitest::Test
 
   def test_toggle_behavior
     assert_tk_app("clicking same label toggles tooltip") do
-      require "gemba/tip_service"
+      require "gemba/headless"
       tips = Gemba::TipService.new(app)
 
       lbl = ".test_lbl"
@@ -96,7 +96,7 @@ class TestTipService < Minitest::Test
 
   def test_only_one_tooltip_at_a_time
     assert_tk_app("showing a second tooltip hides the first") do
-      require "gemba/tip_service"
+      require "gemba/headless"
       tips = Gemba::TipService.new(app)
 
       lbl1 = ".test_lbl1"
@@ -126,7 +126,7 @@ class TestTipService < Minitest::Test
 
   def test_dismiss_ms_is_configurable
     assert_tk_app("dismiss_ms is configurable") do
-      require "gemba/tip_service"
+      require "gemba/headless"
       tips = Gemba::TipService.new(app, dismiss_ms: 2000)
 
       assert_equal 2000, tips.dismiss_ms

data/test/test_toast_overlay.rb

@@ -1,7 +1,7 @@
 # frozen_string_literal: true
 
 require "minitest/autorun"
-require_relative "../lib/gemba/toast_overlay"
+require "gemba/headless"
 
 class TestToastOverlay < Minitest::Test
   # Minimal texture mock — records destroy calls.

data/test/test_virtual_events.rb

@@ -0,0 +1,156 @@
+# frozen_string_literal: true
+
+require "minitest/autorun"
+require_relative "shared/tk_test_helper"
+require "gemba"
+
+# Tests for the virtual event layer.
+#
+# Physical key → virtual event translation is one line per action; the
+# interesting thing to test is that the virtual event bindings on '.'
+# actually fire when triggered directly (no focus needed).
+#
+# assert_virtual_event_fires runs a subprocess that:
+#   1. Appends {+lappend ::virt_fired EventName} to the binding on '.'
+#   2. Generates the virtual event from an after(50) callback
+#   3. In an after(0) reads ::virt_fired and prints EVENTNAME_FIRED
+#   4. Quits via <<Quit>> (or player.running = false for no-ROM cases)
+#
+# <<Quit>> is special — its original binding stops the mainloop before
+# after(0) can run, so it prints synchronously inside the appended binding.
+class TestVirtualEvents < Minitest::Test
+  include TeekTestHelper
+
+  TEST_ROM = File.expand_path("fixtures/test.gba", __dir__)
+
+  # ── Key → action mapping (pure unit tests, no subprocess) ─────────────────
+
+  def test_default_quit_key_maps_to_quit_action
+    assert_equal :quit,       Gemba::HotkeyMap.new(Gemba::Config.new).action_for('q')
+  end
+
+  def test_default_quick_save_key_maps_to_quick_save_action
+    assert_equal :quick_save, Gemba::HotkeyMap.new(Gemba::Config.new).action_for('F5')
+  end
+
+  def test_default_quick_load_key_maps_to_quick_load_action
+    assert_equal :quick_load, Gemba::HotkeyMap.new(Gemba::Config.new).action_for('F8')
+  end
+
+  def test_default_record_key_maps_to_record_action
+    assert_equal :record, Gemba::HotkeyMap.new(Gemba::Config.new).action_for('F10')
+  end
+
+  # ── Virtual event bindings (subprocess, no physical keypresses) ────────────
+
+  def test_quit_virtual_event_fires_binding
+    # <<Quit>> stops the mainloop before after(0) runs — print synchronously
+    # inside the appended binding instead.
+    code = <<~RUBY
+      require "gemba"
+      require "support/player_helpers"
+
+      player = Gemba::AppController.new("#{TEST_ROM}")
+      player.disable_confirmations!
+      app = player.app
+
+      poll_until_ready(player) do
+        app.tcl_eval('bind . <<Quit>> {+puts QUIT_FIRED; flush stdout}')
+        app.after(50) { app.command(:event, 'generate', '.', '<<Quit>>') }
+      end
+
+      player.run
+    RUBY
+
+    _, stdout, stderr, _ = tk_subprocess(code)
+    output = ["STDOUT:\n#{stdout}", "STDERR:\n#{stderr}"].reject { |s| s.end_with?("\n") }
+    assert_includes stdout, "QUIT_FIRED", "<<Quit>> binding did not fire\n#{output.join("\n")}"
+  end
+
+  def test_quick_save_virtual_event_fires_binding
+    assert_virtual_event_fires('QuickSave',
+      setup_code: 'player.config.states_dir = Dir.mktmpdir("gemba-virt-test")',
+      cleanup_code: 'FileUtils.rm_rf(player.config.states_dir)')
+  end
+
+  def test_quick_load_virtual_event_fires_binding
+    assert_virtual_event_fires('QuickLoad')
+  end
+
+  def test_record_toggle_virtual_event_fires_binding
+    assert_virtual_event_fires('RecordToggle',
+      setup_code: 'player.config.recordings_dir = Dir.mktmpdir("gemba-virt-rec")',
+      cleanup_code: 'FileUtils.rm_rf(player.config.recordings_dir)')
+  end
+
+  def test_toggle_help_window_virtual_event_fires_binding
+    assert_virtual_event_fires('ToggleHelpWindow', with_rom: false)
+  end
+
+  private
+
+  # Verifies that generating <<EventName>> on '.' fires the binding.
+  # Uses lappend ::virt_fired as a Tcl side-channel — no physical keypresses.
+  #
+  # Options:
+  #   with_rom:     load TEST_ROM (default true; false for no-ROM app controller)
+  #   setup_code:   Ruby injected after player/app created, before poll_until_ready
+  #   cleanup_code: Ruby injected in after(0) before quitting
+  def assert_virtual_event_fires(event_name, with_rom: true, setup_code: '', cleanup_code: '')
+    marker = "#{event_name.upcase.tr('-', '_')}_FIRED"
+
+    if with_rom
+      code = <<~RUBY
+        require "gemba"
+        require "support/player_helpers"
+        require "tmpdir"
+        require "fileutils"
+
+        player = Gemba::AppController.new("#{TEST_ROM}")
+        player.disable_confirmations!
+        app = player.app
+        #{setup_code}
+
+        poll_until_ready(player) do
+          app.tcl_eval('bind . <<#{event_name}>> {+lappend ::virt_fired #{event_name}}')
+          app.after(50) do
+            app.command(:event, 'generate', '.', '<<#{event_name}>>')
+            app.after(0) do
+              fired = app.tcl_eval('lsearch -exact $::virt_fired #{event_name}') rescue "-1"
+              puts fired.to_i >= 0 ? "#{marker}" : "NOT_FIRED"
+              #{cleanup_code}
+              app.command(:event, 'generate', '.', '<<Quit>>')
+            end
+          end
+        end
+
+        player.run
+      RUBY
+    else
+      code = <<~RUBY
+        require "gemba"
+
+        player = Gemba::AppController.new
+        app = player.app
+        #{setup_code}
+
+        app.tcl_eval('bind . <<#{event_name}>> {+lappend ::virt_fired #{event_name}}')
+        app.after(50) do
+          app.command(:event, 'generate', '.', '<<#{event_name}>>')
+          app.after(0) do
+            fired = app.tcl_eval('lsearch -exact $::virt_fired #{event_name}') rescue "-1"
+            puts fired.to_i >= 0 ? "#{marker}" : "NOT_FIRED"
+            #{cleanup_code}
+            player.running = false
+          end
+        end
+
+        player.run
+      RUBY
+    end
+
+    _, stdout, stderr, _ = tk_subprocess(code)
+    output = ["STDOUT:\n#{stdout}", "STDERR:\n#{stderr}"].reject { |s| s.end_with?("\n") }
+    assert_includes stdout, marker, "<<#{event_name}>> binding did not fire\n#{output.join("\n")}"
+  end
+end

data/test/test_virtual_keyboard.rb

@@ -1,7 +1,7 @@
 # frozen_string_literal: true
 
 require "minitest/autorun"
-require_relative "../lib/gemba/input_mappings"
+require "gemba/headless"
 
 class TestVirtualKeyboard < Minitest::Test
   def setup