fxrubi 1.6.22.pre1-x86-mingw32

data/test/TC_FXDCPrint.rb

@@ -0,0 +1,102 @@
+require 'test/unit'
+
+require 'fox16'
+require 'fileutils'
+
+class TC_FXDCPrint < Test::Unit::TestCase
+  include Fox
+
+private
+  def printJob
+    job = FXPrinter.new
+    job.name = "output.ps"
+    job.firstpage = 1
+    job.lastpage = 1
+    job.currentpage = 1
+    job.frompage = 1
+    job.topage = 1
+    job.mediasize = MEDIA_USLETTER
+    job.mediawidth = 612.0
+    job.mediaheight = 792.0
+    job.leftmargin = 72.0
+    job.rightmargin = 72.0
+    job.topmargin = 72.0
+    job.bottommargin = 72.0
+    job.numcopies = 1
+    job.flags = PRINT_DEST_FILE
+    job
+  end
+
+  def hexdump(ios)
+    count = 0
+    ios.each_byte do |byte|
+      print sprintf("%02x ", byte)
+      count = count + 1
+      if count%8 == 0
+        print "\n"
+      end
+    end
+  end
+
+  # Convert DOS line endings (CR+LF) to Unix (LF)
+  def crlf_to_lf(text)
+    text.gsub(/\x0d\x0a/, "\x0a")
+  end
+
+  def assert_same_file_contents(expected, actual)
+    expected_contents, actual_contents = nil, nil
+    File.open(expected, 'rb') { |f| expected_contents = f.read }
+    File.open(actual, 'rb')   { |f| actual_contents = crlf_to_lf(f.read) }
+    assert_equal(expected_contents, actual_contents)
+  end
+
+public
+  def setup
+    if FXApp.instance.nil?
+      @app = FXApp.new('TC_FXDCPrint', 'FXRuby')
+      @app.init([])
+    else
+      @app = FXApp.instance
+    end
+    @dc = FXDCPrint.new(@app)
+  end
+
+  def test_beginPrint
+    @dc.beginPrint(printJob)
+    @dc.endPrint
+    assert_same_file_contents(File.join(File.dirname(__FILE__), "blankpage.ps"), printJob.name)
+  end
+
+  def test_beginPrint_with_block
+    @dc.beginPrint(printJob) do |theDC|
+      assert_same(@dc, theDC)
+    end
+    assert_same_file_contents(File.join(File.dirname(__FILE__), "blankpage.ps"), printJob.name)
+  end
+
+  def test_beginPage
+    @dc.beginPrint(printJob)
+    @dc.beginPage(1)
+    @dc.drawText(100, 100, "Howdy!")
+    @dc.endPage
+    @dc.endPrint
+#   assert_same_file_contents("howdypage.ps", printJob.name)
+  end
+
+  def test_beginPage_with_block
+    @dc.beginPrint(printJob) do |theDC|
+      assert_same(@dc, theDC)
+      theDC.beginPage(1) do |xDC|
+        assert_same(theDC, xDC)
+        xDC.drawText(100, 100, "Howdy!")
+      end
+    end
+#   assert_same_file_contents("howdypage.ps", printJob.name)
+  end
+
+  def teardown
+    if File.exists?("output.ps")
+      FileUtils.rm_f("output.ps")
+    end
+  end
+end

data/test/TC_FXDCWindow.rb

@@ -0,0 +1,25 @@
+require 'test/unit'
+require 'testcase'
+require 'fox16'
+
+class TC_FXDCWindow < Fox::TestCase
+  include Fox
+
+  def setup
+    super(self.class.name)
+    app.create
+    mainWindow.create
+  end
+
+  def test_new
+    dc = FXDCWindow.new(mainWindow)
+    dc.drawPoint(0, 0)
+    dc.end
+  end
+
+  def test_new_with_block
+    FXDCWindow.new(mainWindow) do |dc|
+      dc.drawPoint(0, 0)
+    end
+  end
+end

data/test/TC_FXDataTarget.rb

@@ -0,0 +1,24 @@
+require 'test/unit'
+require 'fox16'
+
+class TC_FXDataTarget < Test::Unit::TestCase
+  include Fox
+
+  def setup
+    @nilTarget    = FXDataTarget.new
+    @intTarget    = FXDataTarget.new(42)
+    @floatTarget  = FXDataTarget.new(3.14159)
+    @stringTarget = FXDataTarget.new("foo")
+    @trueTarget   = FXDataTarget.new(true)
+    @falseTarget  = FXDataTarget.new(false)
+  end
+  def test_to_s
+    assert_equal("", @nilTarget.to_s)
+    assert_equal("42", @intTarget.to_s)
+    assert_equal("3.14159", @floatTarget.to_s)
+    assert_equal("foo", @stringTarget.to_s)
+    assert_equal("true", @trueTarget.to_s)
+    assert_equal("false", @falseTarget.to_s)
+  end
+end
+

data/test/TC_FXDialogBox.rb

@@ -0,0 +1,12 @@
+require 'test/unit'
+require 'fox16'
+
+class TC_FXDialogBox < Test::Unit::TestCase
+  include Fox
+
+  def test_nil_app_raises_argument_error
+    assert_raise ArgumentError do
+      FXDialogBox.new(nil, "title")
+    end
+  end
+end

data/test/TC_FXDirList.rb

@@ -0,0 +1,30 @@
+require 'test/unit'
+require 'testcase'
+require 'fox16'
+
+class TC_FXDirList < Fox::TestCase
+  include Fox
+
+  def setup
+    super(self.class.name)
+    @dirList = FXDirList.new(mainWindow)
+  end
+
+  def test_setCurrentFile
+    file = ""
+    @dirList.setCurrentFile(file)
+    @dirList.setCurrentFile(file, true)
+  end
+
+  def test_setDirectory
+    path = ""
+    @dirList.setDirectory(path)
+    @dirList.setDirectory(path, true)
+  end
+
+  def test_getPathnameItem
+    path = ""
+    @dirList.getPathnameItem(path)
+  end
+end
+

data/test/TC_FXExtentd.rb

@@ -0,0 +1,21 @@
+require 'test/unit'
+require 'fox16'
+
+class TC_FXExtentd < Test::Unit::TestCase
+  include Fox
+
+  def test_lower_always_returns_same_instance
+    e = FXExtentd.new(0, 1, 0, 1)
+    assert_same e.lower, e.lower
+  end
+  
+  def test_upper_always_returns_same_instance
+    e = FXExtentd.new(0, 1, 0, 1)
+    assert_same e.upper, e.upper
+  end
+  
+  def test_index_always_returns_same_instance
+    e = FXExtentd.new(0, 1, 0, 1)
+    assert_same e[0], e[0]
+  end
+end

data/test/TC_FXExtentf.rb

@@ -0,0 +1,21 @@
+require 'test/unit'
+require 'fox16'
+
+class TC_FXExtentf < Test::Unit::TestCase
+  include Fox
+
+  def test_lower_always_returns_same_instance
+    e = FXExtentf.new(0, 1, 0, 1)
+    assert_same e.lower, e.lower
+  end
+  
+  def test_upper_always_returns_same_instance
+    e = FXExtentf.new(0, 1, 0, 1)
+    assert_same e.upper, e.upper
+  end
+  
+  def test_index_always_returns_same_instance
+    e = FXExtentf.new(0, 1, 0, 1)
+    assert_same e[0], e[0]
+  end
+end

data/test/TC_FXFileAssoc.rb

@@ -0,0 +1,62 @@
+require 'test/unit'
+
+require 'fox16'
+
+class TC_FXFileAssoc < Test::Unit::TestCase
+  include Fox
+
+  def setup
+    @app = FXApp.instance || FXApp.new
+    @icon = FXIcon.new(@app)
+    @fileassoc = FXFileAssoc.new
+  end
+  
+  def test_command
+    @fileassoc.command = "netscape"
+    assert_equal("netscape", @fileassoc.command)
+  end
+  
+  def test_extension
+    @fileassoc.extension = ".html"
+    assert_equal(".html", @fileassoc.extension)
+  end
+  
+  def test_mimetype
+    @fileassoc.mimetype = "mimetype"
+    assert_equal("mimetype", @fileassoc.mimetype)
+  end
+  
+  def test_bigicon
+    @fileassoc.bigicon = @icon
+    assert_kind_of(FXIcon, @fileassoc.bigicon)
+    assert_same(@icon, @fileassoc.bigicon)
+  end
+
+  def test_bigiconopen
+    @fileassoc.bigiconopen = @icon
+    assert_kind_of(FXIcon, @fileassoc.bigiconopen)
+    assert_same(@icon, @fileassoc.bigiconopen)
+  end
+
+  def test_miniicon
+    @fileassoc.miniicon = @icon
+    assert_kind_of(FXIcon, @fileassoc.miniicon)
+    assert_same(@icon, @fileassoc.miniicon)
+  end
+
+  def test_miniiconopen
+    @fileassoc.miniiconopen = @icon
+    assert_kind_of(FXIcon, @fileassoc.miniiconopen)
+    assert_same(@icon, @fileassoc.miniiconopen)
+  end
+
+  def test_dragtype
+    @fileassoc.dragtype = 0
+    assert_equal(0, @fileassoc.dragtype)
+  end
+  
+  def test_flags
+    @fileassoc.flags = 0
+    assert_equal(0, @fileassoc.flags)
+  end
+end

data/test/TC_FXFileStream.rb

@@ -0,0 +1,89 @@
+require 'test/unit'
+require 'fox16'
+require 'tempfile'
+
+class TC_FXFileStream < Test::Unit::TestCase
+  include Fox
+
+  def setup
+    @filestream = FXFileStream.new
+  end
+
+  def test_container
+    assert_nil(@filestream.container)
+  end
+  
+  def test_open_non_existing_file
+    assert_equal(FXStreamDead, @filestream.direction)
+    status = @filestream.open("non_existing_file", FXStreamLoad)
+    assert(!status)
+    assert_equal(FXStreamDead, @filestream.direction)
+  end
+
+  def test_open_existing_file
+    assert_equal(FXStreamDead, @filestream.direction)
+    status = @filestream.open("README", FXStreamLoad)
+    assert(status)
+    assert_equal(FXStreamLoad, @filestream.direction)
+    status = @filestream.close
+    assert(status)
+    assert_equal(FXStreamDead, @filestream.direction)
+  end
+
+  def test_open_new_file
+    assert_equal(FXStreamDead, @filestream.direction)
+    status = @filestream.open("goobers", FXStreamSave)
+    assert(status)
+    assert_equal(FXStreamSave, @filestream.direction)
+    status = @filestream.close
+    assert(status)
+    assert_equal(FXStreamDead, @filestream.direction)
+  end
+  
+  def test_status
+    assert_equal(FXStreamOK, @filestream.status)
+    @filestream.open("README", FXStreamLoad)
+    assert_equal(FXStreamOK, @filestream.status)
+    @filestream.close
+    assert_equal(FXStreamOK, @filestream.status)
+  end
+  
+  def test_position
+    @filestream.open("README", FXStreamLoad)
+    assert_equal(0, @filestream.position)
+    @filestream.position = 500
+    assert_equal(500, @filestream.position)
+    @filestream.close
+  end
+  
+  def test_exceptions
+    # Non-existing file
+    assert_raises(FXStreamNoReadError) {
+      FXFileStream.open("non_existing_file", FXStreamLoad) { |s| }
+    }
+
+    # Write-only file (i.e. no read permissions)
+    tf = Tempfile.new("write_only_file")
+    tf.puts("junk")
+    tf.close
+    File.chmod(0222, tf.path) # --w--w--w-
+    assert_raises(FXStreamNoReadError) {
+      FXFileStream.open(tf.path, FXStreamLoad) { |s| }
+    }
+
+    # Read-only file
+    tf = Tempfile.new("read_only_file")
+    tf.puts("junk")
+    tf.close
+    File.chmod(0444, tf.path) # -r--r--r--
+    assert_raises(FXStreamNoWriteError) {
+      FXFileStream.open(tf.path, FXStreamSave) { |s| }
+    }
+  end
+  
+  def teardown
+    if File.exists?("goobers")
+      FileUtils.rm_f("goobers")
+    end
+  end
+end

data/test/TC_FXFoldingList.rb

@@ -0,0 +1,32 @@
+require 'test/unit'
+require 'testcase'
+require 'fox16'
+
+class TC_FXFoldingList < Fox::TestCase
+  include Fox
+
+  
+  def setup
+    super(self.class.name)
+    @foldingList = FXFoldingList.new(mainWindow)
+  end
+
+  def test_each_for_empty_list
+    count = 0
+    @foldingList.each { |item| count += 1 }
+    assert_equal(0, count, "count for empty list should be zero")
+  end
+  
+  def test_each
+    @foldingList.appendItem(nil, "1")
+    @foldingList.appendItem(nil, "2")
+    @foldingList.appendItem(nil, "3")
+    @foldingList.appendItem(nil, "4")
+    @foldingList.appendItem(nil, "5")
+    count = 0
+    @foldingList.each { |item| count += 1 }
+    assert_equal(5, count, "count didn't match expected number of items")
+  end
+  
+end
+

data/test/TC_FXFont.rb

@@ -0,0 +1,69 @@
+require 'test/unit'
+
+require 'fox16'
+
+class TC_FXFont < Test::Unit::TestCase
+  include Fox
+
+  def setup
+    if FXApp.instance.nil?
+      @app = FXApp.new('TC_FXFont', 'FoxTest') 
+    else
+      @app = FXApp.instance
+    end
+  end
+
+  def testConstructFromFontDescription
+    fontdesc = @app.normalFont.fontDesc
+    font = FXFont.new(@app, fontdesc)
+  end
+
+  def testConstructFromParameters
+    # Check default argument values
+    fontdesc = @app.normalFont.fontDesc
+    font1 = FXFont.new(@app, fontdesc.face, fontdesc.size)
+    font2 = FXFont.new(@app, fontdesc.face, fontdesc.size, FXFont::Normal, FXFont::Straight, FONTENCODING_DEFAULT, FXFont::NonExpanded, 0)
+    assert_equal(font1.name, font2.name)
+    assert_equal(font1.size, font2.size)
+    assert_equal(font1.weight, font2.weight)
+    assert_equal(font1.slant, font2.slant)
+    assert_equal(font1.encoding, font2.encoding)
+    assert_equal(font1.setWidth, font2.setWidth)
+    assert_equal(font1.hints, font2.hints)
+    assert_equal(font1.isFontMono, font2.isFontMono)
+    assert_equal(font1.minChar, font2.minChar)
+    assert_equal(font1.maxChar, font2.maxChar)
+    assert_equal(font1.fontWidth, font2.fontWidth)
+    assert_equal(font1.fontHeight, font2.fontHeight)
+    assert_equal(font1.fontAscent, font2.fontAscent)
+    assert_equal(font1.fontDescent, font2.fontDescent)
+    assert_equal(font1.fontLeading, font2.fontLeading)
+    assert_equal(font1.fontSpacing, font2.fontSpacing)
+  end
+
+  def testConstructFromFontString
+    font = FXFont.new(@app, "")
+  end
+  
+  def testGetTextWidthAndHeight
+    font = FXFont.new(@app, "Times", 10)
+    assert(font.getTextWidth("Test") > 0)
+    assert(font.getTextHeight("Test") > 0)
+  end
+
+  def test_listFonts
+    fonts = FXFont.listFonts("")
+    assert_instance_of(Array, fonts)
+    assert(fonts.length > 0)
+  end
+  
+  def test_hasChar?
+    @app.normalFont.create
+    assert(@app.normalFont.hasChar('a'))
+    assert(@app.normalFont.hasChar(?a))
+    assert(@app.normalFont.hasChar?('a'))
+    assert(@app.normalFont.hasChar?(?a))
+    assert_raises(ArgumentError) { @app.normalFont.hasChar? "" }
+    assert_raises(ArgumentError) { @app.normalFont.hasChar? "ab" }
+  end
+end