gemba 0.1.0 → 0.2.0

data/test/test_settings_save_states.rb

@@ -0,0 +1,97 @@
+# frozen_string_literal: true
+
+require "minitest/autorun"
+require_relative "shared/tk_test_helper"
+
+class TestSettingsSaveStatesTab < Minitest::Test
+  include TeekTestHelper
+
+  def test_save_states_tab_exists
+    assert_tk_app("save states tab exists in notebook") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      tabs = app.command(Gemba::Settings::Paths::NB, 'tabs')
+      assert_includes tabs, Gemba::Settings::SaveStatesTab::FRAME
+    end
+  end
+
+  def test_quick_slot_defaults_to_1
+    assert_tk_app("quick slot defaults to 1") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '1', app.get_variable(Gemba::Settings::SaveStatesTab::VAR_QUICK_SLOT)
+    end
+  end
+
+  def test_selecting_slot_fires_callback
+    assert_tk_app("selecting slot fires on_quick_slot_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:quick_slot_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.set_variable(Gemba::Settings::SaveStatesTab::VAR_QUICK_SLOT, '5')
+      app.command(:event, 'generate', Gemba::Settings::SaveStatesTab::SLOT_COMBO, '<<ComboboxSelected>>')
+      app.update
+
+      assert_equal 5, received
+    end
+  end
+
+  def test_backup_defaults_to_on
+    assert_tk_app("backup checkbox defaults to on") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '1', app.get_variable(Gemba::Settings::SaveStatesTab::VAR_BACKUP)
+    end
+  end
+
+  def test_clicking_backup_fires_callback
+    assert_tk_app("clicking backup fires on_backup_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:backup_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::SaveStatesTab::BACKUP_CHECK, 'invoke')
+      app.update
+
+      assert_equal false, received
+    end
+  end
+
+  def test_clicking_backup_twice_re_enables
+    assert_tk_app("clicking backup twice re-enables") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:backup_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::SaveStatesTab::BACKUP_CHECK, 'invoke')
+      app.update
+      assert_equal false, received
+
+      app.command(Gemba::Settings::SaveStatesTab::BACKUP_CHECK, 'invoke')
+      app.update
+      assert_equal true, received
+    end
+  end
+end

data/test/test_settings_system.rb

@@ -0,0 +1,133 @@
+# frozen_string_literal: true
+
+require "minitest/autorun"
+require_relative "shared/tk_test_helper"
+
+class TestSettingsSystem < Minitest::Test
+  include TeekTestHelper
+
+  FAKE_BIOS = File.expand_path("fixtures/fake_bios.bin", __dir__)
+
+  # -- tab presence -----------------------------------------------------------
+
+  def test_system_tab_exists_in_notebook
+    assert_tk_app("system tab exists in notebook") do
+      require "gemba/headless"
+      Gemba.bus = Gemba::EventBus.new
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      tabs = app.command(Gemba::SettingsWindow::NB, 'tabs').split
+      assert_includes tabs, Gemba::SettingsWindow::SYSTEM_TAB
+    end
+  end
+
+  # -- initial state ----------------------------------------------------------
+
+  def test_bios_path_empty_initially
+    assert_tk_app("bios path var is empty initially") do
+      require "gemba/headless"
+      Gemba.bus = Gemba::EventBus.new
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      val = app.get_variable(Gemba::SettingsWindow::VAR_BIOS_PATH)
+      assert_equal '', val
+    end
+  end
+
+  def test_skip_bios_unchecked_initially
+    assert_tk_app("skip bios checkbox is unchecked initially") do
+      require "gemba/headless"
+      Gemba.bus = Gemba::EventBus.new
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      val = app.get_variable(Gemba::SettingsWindow::VAR_SKIP_BIOS)
+      assert_equal '0', val
+    end
+  end
+
+  # -- skip_bios checkbox marks dirty ----------------------------------------
+
+  def test_skip_bios_toggle_marks_save_dirty
+    assert_tk_app("toggling skip bios enables the save button") do
+      require "gemba/headless"
+      Gemba.bus = Gemba::EventBus.new
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+
+      # Navigate to system tab
+      app.command(Gemba::SettingsWindow::NB, 'select', Gemba::SettingsWindow::SYSTEM_TAB)
+      app.update
+
+      app.command(Gemba::Settings::SystemTab::SKIP_BIOS_CHECK, 'invoke')
+      app.update
+
+      state = app.command(Gemba::SettingsWindow::SAVE_BTN, :cget, '-state').to_s
+      assert_equal 'normal', state
+    end
+  end
+
+  # -- clear button -----------------------------------------------------------
+
+  def test_clear_button_empties_bios_path
+    assert_tk_app("clear button empties the bios path variable") do
+      require "gemba/headless"
+      Gemba.bus = Gemba::EventBus.new
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      # Seed a value
+      app.set_variable(Gemba::SettingsWindow::VAR_BIOS_PATH, 'gba_bios.bin')
+      app.command(Gemba::Settings::SystemTab::BIOS_CLEAR, 'invoke')
+      app.update
+
+      assert_equal '', app.get_variable(Gemba::SettingsWindow::VAR_BIOS_PATH)
+    end
+  end
+
+  def test_clear_button_marks_save_dirty
+    assert_tk_app("clear button enables the save button") do
+      require "gemba/headless"
+      Gemba.bus = Gemba::EventBus.new
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::SystemTab::BIOS_CLEAR, 'invoke')
+      app.update
+
+      state = app.command(Gemba::SettingsWindow::SAVE_BTN, :cget, '-state').to_s
+      assert_equal 'normal', state
+    end
+  end
+
+  def test_clear_resets_status_label
+    assert_tk_app("clear button resets status label to not-set text") do
+      require "gemba/headless"
+      Gemba::Locale.load('en')
+      Gemba.bus = Gemba::EventBus.new
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::SystemTab::BIOS_CLEAR, 'invoke')
+      app.update
+
+      text = app.command(Gemba::Settings::SystemTab::BIOS_STATUS, :cget, '-text').to_s
+      assert_includes text, 'Not set'
+    end
+  end
+
+  # -- system tab is per-game eligible ----------------------------------------
+
+  def test_system_tab_in_per_game_tabs
+    require "gemba/headless"
+    assert Gemba::SettingsWindow::PER_GAME_TABS.include?(Gemba::SettingsWindow::SYSTEM_TAB)
+  end
+end

data/test/test_settings_video.rb

@@ -0,0 +1,450 @@
+# frozen_string_literal: true
+
+require "minitest/autorun"
+require_relative "shared/tk_test_helper"
+
+class TestSettingsVideoTab < Minitest::Test
+  include TeekTestHelper
+
+  def test_video_tab_exists
+    assert_tk_app("video tab exists in notebook") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      tabs = app.command(Gemba::Settings::Paths::NB, 'tabs')
+      assert_includes tabs, Gemba::Settings::VideoTab::FRAME
+    end
+  end
+
+  # -- Scale combobox --------------------------------------------------------
+
+  def test_scale_defaults_to_3x
+    assert_tk_app("scale combobox defaults to 3x") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '3x', app.get_variable(Gemba::Settings::VideoTab::VAR_SCALE)
+    end
+  end
+
+  def test_selecting_2x_scale_fires_callback
+    assert_tk_app("selecting 2x scale fires on_scale_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:scale_changed) { |s| received = s }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.set_variable(Gemba::Settings::VideoTab::VAR_SCALE, '2x')
+      app.command(:event, 'generate', Gemba::Settings::VideoTab::SCALE_COMBO, '<<ComboboxSelected>>')
+      app.update
+
+      assert_equal 2, received
+    end
+  end
+
+  def test_selecting_4x_scale_fires_callback
+    assert_tk_app("selecting 4x scale fires on_scale_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:scale_changed) { |s| received = s }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.set_variable(Gemba::Settings::VideoTab::VAR_SCALE, '4x')
+      app.command(:event, 'generate', Gemba::Settings::VideoTab::SCALE_COMBO, '<<ComboboxSelected>>')
+      app.update
+
+      assert_equal 4, received
+    end
+  end
+
+  # -- Turbo speed combobox --------------------------------------------------
+
+  def test_turbo_defaults_to_2x
+    assert_tk_app("turbo speed defaults to 2x") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '2x', app.get_variable(Gemba::Settings::VideoTab::VAR_TURBO)
+    end
+  end
+
+  def test_selecting_4x_turbo_fires_callback
+    assert_tk_app("selecting 4x turbo fires on_turbo_speed_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:turbo_speed_changed) { |s| received = s }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.set_variable(Gemba::Settings::VideoTab::VAR_TURBO, '4x')
+      app.command(:event, 'generate', Gemba::Settings::VideoTab::TURBO_COMBO, '<<ComboboxSelected>>')
+      app.update
+
+      assert_equal 4, received
+    end
+  end
+
+  # -- Aspect ratio checkbox -------------------------------------------------
+
+  def test_aspect_ratio_defaults_to_on
+    assert_tk_app("aspect ratio checkbox defaults to on") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '1', app.get_variable(Gemba::Settings::VideoTab::VAR_ASPECT_RATIO)
+    end
+  end
+
+  def test_unchecking_aspect_ratio_fires_callback
+    assert_tk_app("unchecking aspect ratio fires on_aspect_ratio_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:aspect_ratio_changed) { |keep| received = keep }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::ASPECT_CHECK, 'invoke')
+      app.update
+
+      assert_equal false, received
+    end
+  end
+
+  def test_checking_aspect_ratio_fires_callback
+    assert_tk_app("re-checking aspect ratio fires callback with true") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:aspect_ratio_changed) { |keep| received = keep }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::ASPECT_CHECK, 'invoke')
+      app.update
+      app.command(Gemba::Settings::VideoTab::ASPECT_CHECK, 'invoke')
+      app.update
+
+      assert_equal true, received
+    end
+  end
+
+  # -- Show FPS checkbox -----------------------------------------------------
+
+  def test_show_fps_defaults_to_on
+    assert_tk_app("show fps checkbox defaults to on") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '1', app.get_variable(Gemba::Settings::VideoTab::VAR_SHOW_FPS)
+    end
+  end
+
+  def test_unchecking_show_fps_fires_callback
+    assert_tk_app("unchecking show fps fires on_show_fps_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:show_fps_changed) { |show| received = show }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::SHOW_FPS_CHECK, 'invoke')
+      app.update
+
+      assert_equal false, received
+    end
+  end
+
+  # -- Pause on focus loss checkbox ------------------------------------------
+
+  def test_pause_focus_defaults_to_on
+    assert_tk_app("pause on focus loss defaults to on") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '1', app.get_variable(Gemba::Settings::VideoTab::VAR_PAUSE_FOCUS)
+    end
+  end
+
+  def test_unchecking_pause_focus_fires_callback
+    assert_tk_app("unchecking pause on focus loss fires callback") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:pause_on_focus_loss_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      # The pause focus checkbox path
+      pause_check = "#{Gemba::Settings::VideoTab::FRAME}.pause_focus_row.check"
+      app.command(pause_check, 'invoke')
+      app.update
+
+      assert_equal false, received
+    end
+  end
+
+  # -- Toast duration combobox -----------------------------------------------
+
+  def test_toast_duration_defaults_to_1_5s
+    assert_tk_app("toast duration defaults to 1.5s") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '1.5s', app.get_variable(Gemba::Settings::VideoTab::VAR_TOAST_DURATION)
+    end
+  end
+
+  def test_selecting_3s_toast_fires_callback
+    assert_tk_app("selecting 3s toast fires on_toast_duration_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:toast_duration_changed) { |s| received = s }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.set_variable(Gemba::Settings::VideoTab::VAR_TOAST_DURATION, '3s')
+      app.command(:event, 'generate', Gemba::Settings::VideoTab::TOAST_COMBO, '<<ComboboxSelected>>')
+      app.update
+
+      assert_in_delta 3.0, received
+    end
+  end
+
+  # -- Pixel filter combobox -------------------------------------------------
+
+  def test_pixel_filter_defaults_to_nearest
+    assert_tk_app("pixel filter defaults to Nearest Neighbor") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal 'Nearest Neighbor', app.get_variable(Gemba::Settings::VideoTab::VAR_FILTER)
+    end
+  end
+
+  def test_selecting_bilinear_fires_callback
+    assert_tk_app("selecting Bilinear fires on_filter_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:filter_changed) { |f| received = f }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.set_variable(Gemba::Settings::VideoTab::VAR_FILTER, 'Bilinear')
+      app.command(:event, 'generate', Gemba::Settings::VideoTab::FILTER_COMBO, '<<ComboboxSelected>>')
+      app.update
+
+      assert_equal 'linear', received
+    end
+  end
+
+  # -- Integer scaling checkbox ----------------------------------------------
+
+  def test_integer_scale_defaults_to_off
+    assert_tk_app("integer scale checkbox defaults to off") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '0', app.get_variable(Gemba::Settings::VideoTab::VAR_INTEGER_SCALE)
+    end
+  end
+
+  def test_clicking_integer_scale_fires_callback
+    assert_tk_app("clicking integer scale fires on_integer_scale_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:integer_scale_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::INTEGER_SCALE_CHECK, 'invoke')
+      app.update
+
+      assert_equal true, received
+    end
+  end
+
+  # -- Color correction checkbox ---------------------------------------------
+
+  def test_color_correction_defaults_to_off
+    assert_tk_app("color correction checkbox defaults to off") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '0', app.get_variable(Gemba::Settings::VideoTab::VAR_COLOR_CORRECTION)
+    end
+  end
+
+  def test_clicking_color_correction_fires_callback
+    assert_tk_app("clicking color correction fires on_color_correction_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:color_correction_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::COLOR_CORRECTION_CHECK, 'invoke')
+      app.update
+
+      assert_equal true, received
+    end
+  end
+
+  def test_unchecking_color_correction_fires_false
+    assert_tk_app("unchecking color correction fires callback with false") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:color_correction_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::COLOR_CORRECTION_CHECK, 'invoke')
+      app.update
+      app.command(Gemba::Settings::VideoTab::COLOR_CORRECTION_CHECK, 'invoke')
+      app.update
+
+      assert_equal false, received
+    end
+  end
+
+  # -- Frame blending checkbox -----------------------------------------------
+
+  def test_frame_blending_defaults_to_off
+    assert_tk_app("frame blending checkbox defaults to off") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '0', app.get_variable(Gemba::Settings::VideoTab::VAR_FRAME_BLENDING)
+    end
+  end
+
+  def test_clicking_frame_blending_fires_callback
+    assert_tk_app("clicking frame blending fires on_frame_blending_change") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:frame_blending_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::FRAME_BLENDING_CHECK, 'invoke')
+      app.update
+
+      assert_equal true, received
+    end
+  end
+
+  def test_unchecking_frame_blending_fires_false
+    assert_tk_app("unchecking frame blending fires callback with false") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:frame_blending_changed) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::FRAME_BLENDING_CHECK, 'invoke')
+      app.update
+      app.command(Gemba::Settings::VideoTab::FRAME_BLENDING_CHECK, 'invoke')
+      app.update
+
+      assert_equal false, received
+    end
+  end
+
+  # -- Rewind checkbox -------------------------------------------------------
+
+  def test_rewind_defaults_to_on
+    assert_tk_app("rewind checkbox defaults to on") do
+      require "gemba/headless"
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      assert_equal '1', app.get_variable(Gemba::Settings::VideoTab::VAR_REWIND_ENABLED)
+    end
+  end
+
+  def test_clicking_rewind_fires_callback
+    assert_tk_app("clicking rewind fires on_rewind_toggle") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:rewind_toggled) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::REWIND_CHECK, 'invoke')
+      app.update
+
+      assert_equal false, received
+    end
+  end
+
+  def test_rechecking_rewind_fires_true
+    assert_tk_app("re-checking rewind fires callback with true") do
+      require "gemba/headless"
+      received = nil
+      Gemba.bus = Gemba::EventBus.new
+      Gemba.bus.on(:rewind_toggled) { |v| received = v }
+      sw = Gemba::SettingsWindow.new(app)
+      sw.show
+      app.update
+
+      app.command(Gemba::Settings::VideoTab::REWIND_CHECK, 'invoke')
+      app.update
+      app.command(Gemba::Settings::VideoTab::REWIND_CHECK, 'invoke')
+      app.update
+
+      assert_equal true, received
+    end
+  end
+end