root/lang/ruby/ruwin/test/ruwin/edit_field/rich/test_format.rb @ 28997

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

class TestRuwinEditFieldRichCharFormat < Test::Unit::TestCase
  include Ruwin::Const::EditField
  
  def setup
    @control = Ruwin::EditField::Rich.new(HiddenWindow.new)
    @format = @control.default
    @control.message_log.clear
  end
  
  {
    :bold       => %w{CFM_BOLD      CFE_BOLD},
    :italic     => %w{CFM_ITALIC    CFE_ITALIC},
    :underline  => %w{CFM_UNDERLINE CFE_UNDERLINE},
    :strikeout  => %w{CFM_STRIKEOUT CFE_STRIKEOUT},
    :protected  => %w{CFM_PROTECTED CFE_PROTECTED},
  }.each do |option, (mask, effect)|
    {
      :on  => true,
      :off => false,
    }.each do |name, enable|
      class_eval <<-"END"
        def test_effects_#{option}_setter_#{name}
          @format.#{option} = #{enable}
          
          assert_equal 1, @control.message_log.size
          assert_setcharformat @control.message_log.last, 1 => #{mask}, 2 => #{name == :on ? effect : 0}
        end
        
        def test_effects_#{option}_getter_#{name}
          @format.#{option} = #{enable}
          
          assert_equal #{enable}, @format.#{option}
        end
      END
    end
  end
  
  {
    :height     => %w{CFM_SIZE      3},
    :offset     => %w{CFM_OFFSET    4},
  }.each do |option, (mask, index)|
    %w{20 -20}.each do |value|
      class_eval <<-"END"
        def test_#{option}_setter_#{value.gsub "-", "minus"}
          @format.#{option} = #{value}
          
          assert_equal 1, @control.message_log.size
          assert_setcharformat @control.message_log.last, 1 => #{mask}, #{index} => #{value}
        end
        
        def test_#{option}_getter_#{value.gsub "-", "minus"}
          @format.#{option} = #{value}
          
          assert_equal #{value}, @format.#{option}
        end
      END
    end
  end
  
  def test_color
    @format.color = 0xFF9933
    
    assert_equal 1, @control.message_log.size
    assert_setcharformat @control.message_log.last, 1 => CFM_COLOR, 5 => 0xFF9933
  end
  
  
  def assert_setcharformat expected, options
    assert_equal EM_SETCHARFORMAT, expected[0]
    assert_equal SCF_DEFAULT,      expected[1]
    
    charformat = expected[2].unpack("LLLLLLCCU")
    options.each do |index, value|
      assert_equal value, Ruwin::SIGNEDLONG(charformat[index])
    end
  end
end