root/lang/ruby/ruwin/test/ruwin/test_component.rb @ 28891

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

class TestRuwinComponent < Test::Unit::TestCase
  include Ruwin::Const::Window
  
  def test_component_property_accessor
    klass = Class.new(Ruwin::Component)
    klass.class_eval "property_accessor :test_pro => 1"
    
    assert_equal 1, klass.instance_variable_get(:@proparty)[:test_pro]
    assert_respond_to klass, :test_pro
    assert_equal 1, klass.test_pro
    klass.test_pro 2
    assert_equal 2, klass.test_pro
    
    instance = klass.new
    assert_equal 2, instance.instance_variable_get(:@proparty)[:test_pro]
    assert_respond_to instance, :test_pro
    assert_respond_to instance, :test_pro=
    assert_equal 2, instance.test_pro
    instance.test_pro = 3
    assert_equal 3, instance.test_pro
  end
  
  def test_copy_property
    klass = Class.new(Ruwin::Component)
    klass.instance_variable_get(:@proparty).replace :caption => "caption", :style => 0
    
    copied_proparty = klass.copy_proparty
    assert_not_same klass.instance_variable_get(:@proparty), copied_proparty
    assert_equal    klass.instance_variable_get(:@proparty), copied_proparty
    
    assert_not_same klass.instance_variable_get(:@proparty)[:caption], copied_proparty[:caption]
    assert_equal    klass.instance_variable_get(:@proparty)[:caption], copied_proparty[:caption]
    
    assert_same     klass.instance_variable_get(:@proparty)[:style], copied_proparty[:style]
    assert_equal    klass.instance_variable_get(:@proparty)[:style], copied_proparty[:style]
  end
  
  def test_component_should_have_proparty
    assert Ruwin::Component.instance_variable_get(:@proparty)
  end
  
  def test_component_subclass_should_have_proparty
    klass = Class.new(Ruwin::Component)
    assert klass.instance_variable_get(:@proparty)
  end
  
  def test_component_subclass_proparty_should_have_unduplicated_immutable_value
    symbol = :test
    baseklass = Class.new(Ruwin::Component)
    baseklass.instance_variable_get(:@proparty)[:test] = symbol
    klass = Class.new(baseklass)
    assert_equal symbol, klass.instance_variable_get(:@proparty)[:test]
    assert_same  symbol, klass.instance_variable_get(:@proparty)[:test]
  end
  
  def test_component_subclass_proparty_should_have_duplicated_mutable_value
    string = "test"
    baseklass = Class.new(Ruwin::Component)
    baseklass.instance_variable_get(:@proparty)[:test] = string
    klass = Class.new(baseklass)
    assert_equal    string, klass.instance_variable_get(:@proparty)[:test]
    assert_not_same string, klass.instance_variable_get(:@proparty)[:test]
  end
  
  
  %w{style exstyle caption}.each do |name|
    class_eval <<-"END"
      def test_proparty_#{name}_setter
        klass = Class.new(Ruwin::Component)
        klass.class_eval do
          #{name} 1
        end
        assert_equal 1, klass.instance_variable_get(:@proparty)[:#{name}]
      end
      
      def test_proparty_#{name}_getter
        klass = Class.new(Ruwin::Component)
        klass.class_eval do
          #{name} 1
        end
        assert_equal 1, klass.#{name}
      end
    END
  end
  
  
  def test_new
    klass = Class.new(Ruwin::Component)
    instance = klass.new
    assert_equal WS_CLIPSIBLINGS,     instance.style&WS_CLIPSIBLINGS
    assert_equal WS_OVERLAPPEDWINDOW, instance.style&WS_OVERLAPPEDWINDOW
  end
  
  def test_new_defined_const
    klass = Class.new(Ruwin::Component)
    klass.class_eval <<-'END'
      CLASS_NAME = "BUTTON"
      STYLE   = 1
      EXSTYLE = 2
    END
    instance = klass.new
    assert_equal "BUTTON", instance.classname
    assert_equal 1, instance.style&1
    assert_equal 2, instance.exstyle&2
  end
  
  def test_factoy_defined_proparties
    klass = Class.new(Ruwin::Component)
    klass.class_eval <<-'END'
      STYLE   = 1
      EXSTYLE = 2
      caption   "caption"
      style     4
      exstyle   8
    END
    instance = klass.new
    assert_equal "caption", instance.caption
    assert_equal 4, instance.style&4
    assert_equal 8, instance.exstyle&8
  end
  
  
  
  def test_send_message_with_error_code
    instance = Ruwin::Component.new
    def instance.sendMessage *args
      :returned
    end
    assert_equal :returned, instance.__send__(:send_message_with_error_code, 0, 1, 2, :error_code)
  end
  
  def test_send_message_with_error_code_returned_error_code
    instance = Ruwin::Component.new
    def instance.sendMessage *args
      :error_code
    end
    assert_equal :alternate, instance.__send__(:send_message_with_error_code, 0, 1, 2, :error_code){ :alternate }
  end
  
  def test_draw_bundling
    instance = Ruwin::Component.new
    instance.instance_variable_set :@messages, []
    class << instance
      attr_reader :messages
      def sendMessage *args
        @messages << args
      end
    end
    instance.__send__ :draw_bundling do
      instance.sendMessage :inter
    end
    assert_equal [[WM_SETREDRAW, 0, 0], [:inter], [WM_SETREDRAW, 1, 0]], instance.messages
  end
end