root/lang/ruby/ruwin/test/ruwin/test_window.rb @ 28881

require File.expand_path(File.join(File.dirname(__FILE__), "..", "helper"))
require "ruwin/control"

class TestRuwinWindow < Test::Unit::TestCase
  include Ruwin::Const::Window
  
  def test_window_should_have_controls
    assert Ruwin::Window.instance_variable_get(:@controls)
  end
  
  def test_window_subclass_should_have_controls
    klass = Class.new(Ruwin::Window)
    assert klass.instance_variable_get(:@controls)
  end
  
  def test_component_subclass_proparty_should_have_unduplicated_value
    symbol = :test
    baseklass = Class.new(Ruwin::Window)
    baseklass.instance_variable_get(:@controls)[:test] = symbol
    klass = Class.new(baseklass)
    assert_equal symbol, klass.instance_variable_get(:@controls)[:test]
    assert_same  symbol, klass.instance_variable_get(:@controls)[:test]
  end
  
  def test_size
    assert_equal 512, Ruwin::Window.width
    assert_equal 512, Ruwin::Window.height
  end
  
  def test_add_control
    klass = Class.new(Ruwin::Window)
    klass.class_eval <<-'END'
      add_control Ruwin::Control, "control_name" do
        style 16
      end
    END
    
    assert_equal true, klass.instance_methods(false).include?("control_name")
    
    control = klass.instance_variable_get(:@controls)["control_name"]
    assert_equal -1, (control <=> Ruwin::Control)
    assert_equal 16, control.style
  end
  
  %w{Button CheckBox RadioButton EditField ListBox ComboBox}.each do |klass|
    class_eval <<-"END2"
      def test_add_control_syntaxsugar_#{klass}
        assert_respond_to Ruwin::Window, :Button
        
        klass = Class.new(Ruwin::Window)
        klass.class_eval <<-'END'
          #{klass} "control_name" do
          end
        END
        
        assert_equal true, klass.instance_methods(false).include?("control_name")
        
        control = klass.instance_variable_get(:@controls)["control_name"]
        assert_equal -1, (control <=> Ruwin::#{klass})
      end
    END2
  end
  
  
  def test_new
    klass = Class.new(Ruwin::Window)
    instance = klass.new
    assert_instance_of klass, instance
    assert_equal WS_CLIPSIBLINGS,     instance.style&WS_CLIPSIBLINGS
    assert_equal WS_OVERLAPPEDWINDOW, instance.style&WS_OVERLAPPEDWINDOW
    assert_equal WS_VISIBLE,          instance.style&WS_VISIBLE
    assert_equal WS_EX_COMPOSITED,    instance.exstyle&WS_EX_COMPOSITED
  end
  
  def test_new_created_event
    klass = Class.new(Ruwin::Window)
    
    klass.class_eval <<-END
      attr_reader :created_called
      def created
        @created_called = hWnd
      end
    END
    
    instance = klass.new
    assert_equal instance.hWnd, instance.created_called
  end
  
  def test_new_create_controls
    klass = Class.new(Ruwin::Window)
    klass.class_eval <<-'END'
      add_control Ruwin::Control, "control_name" do
        style 16
      end
    END
    instance = klass.new
    
    assert_equal 1, instance.controls.size
    instance.controls.each do |hWnd, (name, control)|
      assert_equal control.hWnd, hWnd
      assert_instance_of klass.instance_variable_get(:@controls)[name], control
      assert_equal control, instance.instance_variable_get(:"@#{name}")
    end
  end
  
  DummyMSG = Struct.new(:hWnd, :msg, :wParam, :lParam)
  
  {
    WM_COMMAND  => :wm_command,
    WM_ACTIVATE => :wm_activate,
    WM_SIZE     => :wm_size,
  }.each do |command, event|
    class_eval <<-"END2"
      def test_handling_#{command}
        klass = Class.new(Ruwin::Window)
        instance = klass.new
        assert instance.capturedEvents.include?(#{command})
      end
      
      def test_msghandler_#{command}
        klass = Class.new(Ruwin::Window)
        klass.class_eval <<-'END'
          attr_reader :called_event_msg
          def #{event} msg
            @called_event_msg = msg
          end
        END
        instance = klass.new
        
        msg = DummyMSG.new nil, #{command}
        instance.msghandler msg
        assert_equal msg, instance.called_event_msg
      end
    END2
  end
  
  def test_wm_command
    klass = Class.new(Ruwin::Window)
    klass.class_eval <<-'END'
      add_control Ruwin::Control, "button" do
        attr_reader :wm_command_msg
        def wm_command msg
          @wm_command_msg = msg
          :updated
        end
      end
      
      attr_reader :button_updated_called
      def button_updated
        @button_updated_called = true
      end
    END
    instance = klass.new
    
    msg = DummyMSG.new nil, WM_COMMAND, 1, instance.button.hWnd
    instance.wm_command msg
    assert_equal msg, instance.button.wm_command_msg
    assert_equal true, instance.button_updated_called
  end
  
  {
    WA_INACTIVE     => :inactivated,
    WA_ACTIVE       => :activated,
    WA_CLICKACTIVE  => :activated,
  }.each do |command, event|
    class_eval <<-"END2"
      def test_wm_activate_#{command}
        klass = Class.new(Ruwin::Window)
        klass.class_eval <<-'END'
          attr_reader :wm_active_called
          def #{event}
            @wm_active_called = :#{event}
          end
        END
        instance = klass.new
        
        msg = DummyMSG.new nil, WM_COMMAND, #{command}
        instance.wm_activate msg
        assert_equal :#{event}, instance.wm_active_called
      end
    END2
  end
  
  {
    WA_ACTIVE       => :false,
    WA_CLICKACTIVE  => :true,
  }.each do |command, clicked|
    class_eval <<-"END2"
      def test_wm_activate_#{command}_with_clicked
        klass = Class.new(Ruwin::Window)
        klass.class_eval <<-'END'
          attr_reader :wm_active_called
          def activated clicked
            @wm_active_called = clicked
          end
        END
        instance = klass.new
        
        msg = DummyMSG.new nil, WM_COMMAND, #{command}
        instance.wm_activate msg
        assert_equal #{clicked}, instance.wm_active_called
      end
    END2
  end
  
  def test_wm_size
    klass = Class.new(Ruwin::Window)
    klass.class_eval <<-'END'
      attr_reader :wm_size_called
      def resized width, height
        @wm_size_called = [width, height]
      end
    END
    instance = klass.new
    
    msg = DummyMSG.new nil, WM_COMMAND, WM_SIZE, 100|200<<16
    instance.wm_size msg
    assert_equal [100, 200], instance.wm_size_called
  end
  
  def test_wm_size_call_children_parent_resized
    klass = Class.new(Ruwin::Window)
    klass.class_eval <<-'END'
      add_control(Button, "button1"){}
      add_control(Button, "button2"){}
    END
    instance = klass.new
    
    def (instance.button1).parent_resized *args
      @parent_resized = args
    end
    def (instance.button2).parent_resized *args
      @parent_resized = args
    end
    
    msg = DummyMSG.new nil, WM_COMMAND, WM_SIZE, 100|200<<16
    instance.wm_size msg
    
    assert_equal [100, 200], instance.button1.instance_variable_get(:@parent_resized)
    assert_equal [100, 200], instance.button2.instance_variable_get(:@parent_resized)
  end
end