fxruby 1.6.13-mswin32

data/tests/TC_FXRadioButton.rb

@@ -0,0 +1,57 @@
+require 'test/unit'
+require 'testcase'
+require 'fox16'
+
+include Fox
+
+class TC_FXRadioButton < TestCase
+  def setup
+    super(self.class.name)
+    @radioButton = FXRadioButton.new(mainWindow, "cbText")
+  end
+
+  def test_setCheck_TRUE
+    @radioButton.check = Fox::TRUE
+    assert_equal(true, @radioButton.check)
+    assert_equal(Fox::TRUE, @radioButton.checkState)
+    assert(@radioButton.checked?)
+    assert(!@radioButton.unchecked?)
+    assert(!@radioButton.maybe?)
+  end
+  
+  def test_setCheck_FALSE
+    @radioButton.check = Fox::FALSE
+    assert_equal(false, @radioButton.check)
+    assert_equal(Fox::FALSE, @radioButton.checkState)
+    assert(!@radioButton.checked?)
+    assert(@radioButton.unchecked?)
+    assert(!@radioButton.maybe?)
+  end
+  
+  def test_setCheck_MAYBE
+    @radioButton.check = Fox::MAYBE
+    assert_equal(true, @radioButton.check) # this is not a typo!
+    assert_equal(Fox::MAYBE, @radioButton.checkState)
+    assert(!@radioButton.checked?)
+    assert(!@radioButton.unchecked?)
+    assert(@radioButton.maybe?)
+  end
+  
+  def test_setCheck_true
+    @radioButton.check = true
+    assert_equal(true, @radioButton.check)
+    assert_equal(Fox::TRUE, @radioButton.checkState)
+    assert(@radioButton.checked?)
+    assert(!@radioButton.unchecked?)
+    assert(!@radioButton.maybe?)
+  end
+  
+  def test_setCheck_false
+    @radioButton.check = false
+    assert_equal(false, @radioButton.check)
+    assert_equal(Fox::FALSE, @radioButton.checkState)
+    assert(!@radioButton.checked?)
+    assert(@radioButton.unchecked?)
+    assert(!@radioButton.maybe?)
+  end
+end

data/tests/TC_FXRangef.rb

@@ -0,0 +1,48 @@
+require 'test/unit'
+
+require 'fox16'
+
+include Fox
+
+class TC_FXRangef < Test::Unit::TestCase
+
+  WIDTH, HEIGHT, DEPTH = 2, 4, 6
+
+  def setup
+    @range = FXRangef.new(0, WIDTH, 0, HEIGHT, 0, DEPTH)
+  end
+  
+  def test_width
+    assert_equal(@range.width, WIDTH)
+  end
+  def test_height
+    assert_equal(@range.height, HEIGHT)
+  end
+  def test_depth
+    assert_equal(@range.depth, DEPTH)
+  end
+  def test_longest
+    assert_equal([@range.width, @range.height, @range.depth].max, @range.longest)
+  end
+  def test_shortest
+    assert_equal([@range.width, @range.height, @range.depth].min, @range.shortest)
+  end
+  def test_empty?
+  end
+  def test_overlaps?
+  end
+  def test_contains?
+  end
+  def test_include
+  end
+  def test_clipTo
+  end
+  def test_corners
+  end
+  def test_intersects?
+  end
+  def test_center
+  end
+  def test_diagonal
+  end
+end

data/tests/TC_FXRectangle.rb

@@ -0,0 +1,88 @@
+require 'test/unit'
+
+require 'fox16'
+
+include Fox
+
+class TC_FXRectangle < Test::Unit::TestCase
+  def setup
+    @rect1 = FXRectangle.new
+    @rect2 = FXRectangle.new(5, 5, 300, 200)
+    @rect3 = FXRectangle.new(FXPoint.new(5, 5), FXSize.new(300, 200))
+    @rect4 = FXRectangle.new(FXPoint.new(5, 5), FXPoint.new(304, 204))
+  end
+
+  def test_equals
+    r1 = FXRectangle.new
+    r1.x = 10
+    r1.y = 15
+    r1.w = 20
+    r1.h = 25
+    @rect1.x = r1.x
+    @rect1.y = r1.y
+    @rect1.w = r1.w
+    @rect1.h = r1.h
+    assert_equal(@rect1, r1)
+    assert_equal(@rect2, FXRectangle.new(5, 5, 300, 200))
+    assert_equal(@rect3, FXRectangle.new(FXPoint.new(5, 5), FXSize.new(300, 200)))
+    assert_equal(@rect4, FXRectangle.new(FXPoint.new(5, 5), FXPoint.new(304, 204)))
+  end
+
+  def test_contains?
+    assert(@rect2.contains?(100, 100))
+    assert(@rect2.contains?(FXPoint.new(100, 100)))
+    assert(@rect2.contains?(FXRectangle.new(10, 10, 10, 10)))
+  end
+
+  def test_overlaps?
+    assert(@rect2.overlaps?(@rect3))
+    assert(@rect2.overlaps?(FXRectangle.new(200, 2, 400, 50)))
+    assert(!@rect2.overlaps?(FXRectangle.new(2, 2, 2, 2)))
+  end
+
+  def test_move!
+    x = @rect2.x
+    y = @rect2.y
+    result = @rect2.move!(10, 10)
+    assert_same(@rect2, result)
+    assert_equal(@rect2.x, x + 10)
+    assert_equal(@rect2.y, y + 10)
+  end
+
+  def test_grow!
+    result = @rect2.grow!(3)
+    assert_same(@rect2, result)
+    result = @rect3.grow!(3, 3)
+    assert_same(@rect3, result)
+    result = @rect4.grow!(3, 3, 3, 3)
+    assert_same(@rect4, result)
+    assert_equal(@rect2, @rect3)
+    assert_equal(@rect2, @rect4)
+    assert_equal(@rect3, @rect4)
+  end
+
+  def test_shrink!
+    result = @rect2.shrink!(3)
+    assert_same(@rect2, result)
+    result = @rect3.shrink!(3, 3)
+    assert_same(@rect3, result)
+    result = @rect4.shrink!(3, 3, 3, 3)
+    assert_same(@rect4, result)
+    assert_equal(@rect2, @rect3)
+    assert_equal(@rect2, @rect4)
+    assert_equal(@rect3, @rect4)
+  end
+
+  def test_corners
+    assert_equal(FXPoint.new(  5,   5), @rect2.tl)
+    assert_equal(FXPoint.new(304,   5), @rect2.tr)
+    assert_equal(FXPoint.new(  5, 204), @rect2.bl)
+    assert_equal(FXPoint.new(304, 204), @rect2.br)
+  end
+
+  def test_union
+  end
+
+  def test_intersection
+  end
+end

data/tests/TC_FXRegion.rb

@@ -0,0 +1,54 @@
+require 'test/unit'
+
+require 'fox16'
+
+include Fox
+
+class TC_FXRegion < Test::Unit::TestCase
+
+  def setup
+    @region = FXRegion.new(5, 5, 10, 10)
+  end
+
+  def test_construct_from_points
+    points = [
+               FXPoint.new(0, 0),
+               FXPoint.new(0, 100),
+               FXPoint.new(100, 100),
+               FXPoint.new(0, 0)
+             ]
+    r1 = FXRegion.new(points, true)
+    r2 = FXRegion.new(points, false)
+    r3 = FXRegion.new(points)
+  end
+
+  def test_copy_constructor
+    assert_equal(@region, FXRegion.new(@region))
+  end
+
+  def test_empty
+    assert(!@region.empty?)
+    empty_region = FXRegion.new(5, 5, 0, 0)
+    assert(empty_region.empty?)
+  end
+
+  def test_containsPoint
+    # Definitely out of bounds
+    assert(!@region.contains?(2, 3))
+
+    # Definitely in bounds    
+    assert(@region.contains?(6, 6))
+
+    # Check corners too
+    assert(@region.contains?(5, 5))
+    assert(@region.contains?(5, 14))
+    assert(@region.contains?(14, 14))
+    assert(@region.contains?(14, 5))
+  end
+
+  def test_containsRectangle
+    assert(@region.contains?(2, 3, 15, 15)) # why doesn't this fail?
+    assert(@region.contains?(5, 5, 10, 10))
+    assert(@region.contains?(6, 6, 5, 5))
+  end
+end

data/tests/TC_FXRegistry.rb

@@ -0,0 +1,27 @@
+require 'test/unit'
+require 'fox16'
+
+include Fox
+
+class TC_FXRegistry < Test::Unit::TestCase
+  def setup
+    @reg = FXRegistry.new("TC_FXRegistry", "FXRuby")
+  end
+
+  def test_boolEntries
+    assert(@reg.writeBoolEntry("SETTINGS", "trueEntry", true))
+    assert(@reg.writeBoolEntry("SETTINGS", "falseEntry", false))
+
+    assert(@reg.readBoolEntry("SETTINGS", "trueEntry"))
+    assert(@reg.readBoolEntry("SETTINGS", "trueEntry", true))
+    assert(@reg.readBoolEntry("SETTINGS", "trueEntry", false))
+
+    assert(!@reg.readBoolEntry("SETTINGS", "falseEntry"))
+    assert(!@reg.readBoolEntry("SETTINGS", "falseEntry", true))
+    assert(!@reg.readBoolEntry("SETTINGS", "falseEntry", false))
+
+    assert(!@reg.readBoolEntry("SETTINGS", "missingEntry"))
+    assert(!@reg.readBoolEntry("SETTINGS", "missingEntry", false))
+    assert( @reg.readBoolEntry("SETTINGS", "missingEntry", true))
+  end
+end

data/tests/TC_FXScrollArea.rb

@@ -0,0 +1,28 @@
+require 'test/unit'
+require 'fox16'
+require 'testcase'
+
+include Fox
+
+class TC_FXScrollArea < TestCase
+  def setup
+    super(self.class.name)
+    @scrollArea = FXScrollArea.new(mainWindow)
+  end
+
+  def test_position_get
+    pos = @scrollArea.position
+    assert_instance_of(Array, pos)
+    assert_equal(2, pos.size)
+    assert_kind_of(Integer, pos[0])
+    assert_kind_of(Integer, pos[1])
+  end
+  
+  def test_setPosition
+    @scrollArea.setPosition(0, 0)
+  end
+
+  def test_position_move_and_resize
+    @scrollArea.position(0, 0, 1, 1)
+  end
+end

data/tests/TC_FXScrollWindow.rb

@@ -0,0 +1,28 @@
+require 'test/unit'
+require 'fox16'
+require 'testcase'
+
+include Fox
+
+class TC_FXScrollWindow < TestCase
+  def setup
+    super(self.class.name)
+    @scrollWindow = FXScrollWindow.new(mainWindow)
+  end
+
+  def test_position_get
+    pos = @scrollWindow.position
+    assert_instance_of(Array, pos)
+    assert_equal(2, pos.size)
+    assert_kind_of(Integer, pos[0])
+    assert_kind_of(Integer, pos[1])
+  end
+  
+  def test_setPosition
+    @scrollWindow.setPosition(0, 0)
+  end
+
+  def test_position_move_and_resize
+    @scrollWindow.position(0, 0, 1, 1)
+  end
+end

data/tests/TC_FXSegment.rb

@@ -0,0 +1,22 @@
+require 'test/unit'
+require 'fox16'
+
+include Fox
+
+class TC_FXSegment < Test::Unit::TestCase
+  def test_new
+    aSeg = FXSegment.new
+    assert_equal(0, aSeg.x1)
+    assert_equal(0, aSeg.y1)
+    assert_equal(0, aSeg.x2)
+    assert_equal(0, aSeg.y2)
+  end
+  def test_new_with_values
+    aSeg = FXSegment.new(1, 2, 3, 4)
+    assert_equal(1, aSeg.x1)
+    assert_equal(2, aSeg.y1)
+    assert_equal(3, aSeg.x2)
+    assert_equal(4, aSeg.y2)
+  end
+end
+

data/tests/TC_FXSettings.rb

@@ -0,0 +1,34 @@
+require 'test/unit'
+require 'fox16'
+require 'testcase'
+
+include Fox
+
+class TC_FXSettings < TestCase
+
+  def setup
+    super(self.class.name)
+  end
+  
+  def test_each_section_empty_settings
+    empty = FXSettings.new
+    num_sections = 0
+    empty.each_section do |sect|
+      num_sections = num_sections + 1
+    end
+    assert_equal(0, num_sections)
+  end
+  
+  def test_each_section
+    settings = FXSettings.new
+    settings.writeStringEntry('sect1', 'key1', 'value1')
+    settings.writeStringEntry('sect2', 'key2', 'value2')
+    keys = []
+    settings.each_section do |sect|
+      sect.each_key do |key|
+        keys << key
+      end
+    end
+    assert_equal(['key1', 'key2'], keys.sort)
+  end
+end

data/tests/TC_FXShell.rb

@@ -0,0 +1,26 @@
+require 'test/unit'
+
+require 'fox16'
+
+include Fox
+
+class TC_FXShell < Test::Unit::TestCase
+  def setup
+    if FXApp.instance.nil?
+      @app = FXApp.new('TC_FXShell', 'FXRuby')
+      @app.init([])
+    else
+      @app = FXApp.instance
+    end
+    @mainWin = FXMainWindow.new(@app, 'TC_FXShell')
+  end
+  
+  def test_new
+    # Free-floating
+    shell1 = FXShell.new(@app, 0, 0, 0, 0, 0)
+      
+    # Owned
+    shell2 = FXShell.new(@mainWin, 0, 0, 0, 0, 0)
+    assert_same(@mainWin, shell2.owner)
+  end
+end

data/tests/TC_FXSize.rb

@@ -0,0 +1,54 @@
+require 'test/unit'
+
+require 'fox16'
+
+include Fox
+
+class TC_FXSize < Test::Unit::TestCase
+  def setup
+    @size1 = FXSize.new
+    @size2 = FXSize.new(300, 200)
+  end
+
+  def test_copy
+    assert_equal(@size1, FXSize.new(@size1))
+    assert_equal(@size2, FXSize.new(@size2))
+  end
+
+  def test_equals
+    @size1.w = 250
+    @size1.h = 475
+    sameSize1 = FXSize.new
+    sameSize1.w = 250
+    sameSize1.h = 475
+    assert_equal(@size1, sameSize1)
+    assert_equal(sameSize1, @size1)
+
+    sameSize2 = FXSize.new(300, 200)
+    assert_equal(@size2, sameSize2)
+    assert_equal(sameSize2, @size2)
+  end
+
+  def test_uminus
+    size1 = -(@size1)
+    assert(size1.w == -(@size1.w) && size1.h == -(@size1.h))
+    size2 = -(@size2)
+    assert(size2.w == -(@size2.w) && size2.h == -(@size2.h))
+  end
+
+  def test_add
+    assert_equal(FXSize.new(1, 2) + FXSize.new(3, 4), FXSize.new(4, 6))
+  end
+
+  def test_sub
+    assert_equal(FXSize.new(4, 6) - FXSize.new(3, 4), FXSize.new(1, 2))
+  end
+
+  def test_mul
+    assert_equal(FXSize.new(1, 2)*3, FXSize.new(3, 6))
+  end
+
+  def test_div
+    assert_equal(FXSize.new(3, 6)/3, FXSize.new(1, 2))
+  end
+end