wxruby3 0.9.0.pre.rc.2-x64-mingw-ucrt → 0.9.0-x64-mingw-ucrt

data/tests/test_grid_sizer.rb

@@ -0,0 +1,151 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+
+require_relative './lib/wxframe_runner'
+
+class GridSizerTests < WxRuby::Test::GUITests
+
+  def setup
+    super
+    @win = Wx::Window.new(frame_win, Wx::ID_ANY)
+    @win.set_client_size(127, 35)
+    @sizer = Wx::GridSizer.new(2)
+    @win.set_sizer(@sizer)
+  end
+
+  def cleanup
+    frame_win.destroy_children
+    @win = nil
+    @sizer = nil
+    super
+  end
+
+  attr_reader :win, :sizer
+
+  def set_children(children, flags)
+    @sizer.clear
+    children.each { |c| @sizer.add(c, flags) }
+    @win.layout
+  end
+
+  def test_layout
+    sizeTotal = win.get_client_size
+    sizeChild = Wx::Size.new(sizeTotal.x / 2, sizeTotal.y / 2)
+
+    children = [Wx::Window.new(win, Wx::ID_ANY),
+                Wx::Window.new(win, Wx::ID_ANY),
+                Wx::Window.new(win, Wx::ID_ANY)]
+
+    set_children(children, Wx::SizerFlags.new.expand)
+    assert(children[0].rect == Wx::Rect.new(Wx::Point.new(0, 0), sizeChild))
+    assert(children[1].rect == Wx::Rect.new(Wx::Point.new(sizeChild.x, 0), sizeChild))
+    assert(children[2].rect == Wx::Rect.new(Wx::Point.new(0, sizeChild.y), sizeChild))
+  end
+
+end
+
+class FlexGridSizerTests < WxRuby::Test::GUITests
+
+  def setup
+    super
+    @win = Wx::Window.new(frame_win, Wx::ID_ANY)
+    @win.set_client_size(127, 35)
+    @sizer = Wx::FlexGridSizer.new(2)
+    @win.set_sizer(@sizer)
+  end
+
+  def cleanup
+    frame_win.destroy_children
+    @win = nil
+    @sizer = nil
+    super
+  end
+
+  attr_reader :win, :sizer
+
+  def set_children(children, flags)
+    @sizer.clear
+    children.each { |c| @sizer.add(c, flags) }
+    @win.layout
+  end
+
+  def do_test_layout
+    sizeTotal = win.get_client_size
+    sizeChild = Wx::Size.new(sizeTotal.x / 4, sizeTotal.y / 4)
+    sizeRest = Wx::Size.new(sizeTotal.x - sizeTotal.x / 4,
+                            sizeTotal.y - sizeTotal.y / 4)
+
+    children = [Wx::Window.new(win, Wx::ID_ANY, Wx::DEFAULT_POSITION, sizeChild),
+                Wx::Window.new(win, Wx::ID_ANY, Wx::DEFAULT_POSITION, sizeChild),
+                Wx::Window.new(win, Wx::ID_ANY, Wx::DEFAULT_POSITION, sizeChild),
+                Wx::Window.new(win, Wx::ID_ANY, Wx::DEFAULT_POSITION, sizeChild)]
+
+    sizer.add_growable_row(1)
+    sizer.add_growable_col(1)
+
+    yield(children, sizeTotal, sizeChild, sizeRest)
+  end
+
+  def test_layout
+    do_test_layout do |children, sizeTotal, sizeChild, sizeRest|
+      set_children(children, Wx::SizerFlags.new)
+      assert_equal( sizeChild, children[0].get_size)
+      assert_equal( sizeChild, children[1].get_size )
+      assert_equal( sizeChild, children[2].get_size )
+      assert_equal( sizeChild, children[3].get_size )
+    end
+  end
+
+  def test_layout_expand
+    do_test_layout do |children, sizeTotal, sizeChild, sizeRest|
+      set_children(children, Wx::SizerFlags.new.expand)
+      assert_equal(sizeChild, children[0].get_size)
+      assert_equal(Wx::Size.new(sizeRest.x, sizeChild.y), children[1].get_size)
+      assert_equal(Wx::Size.new(sizeChild.x, sizeRest.y), children[2].get_size)
+      assert_equal(sizeRest, children[3].get_size )
+    end
+  end
+
+  def test_layout_expand_centre_vertical
+    do_test_layout do |children, sizeTotal, sizeChild, sizeRest|
+      set_children(children, Wx::SizerFlags.new.expand.centre_vertical)
+      assert_equal(sizeChild, children[0].get_size)
+      assert_equal(Wx::Size.new(sizeRest.x, sizeChild.y), children[1].get_size)
+      assert_equal(sizeChild, children[2].get_size )
+      assert_equal(Wx::Size.new(sizeRest.x, sizeChild.y), children[3].get_size)
+    end
+  end
+
+  def test_layout_expand_centre_horizontal
+    do_test_layout do |children, sizeTotal, sizeChild, sizeRest|
+      set_children(children, Wx::SizerFlags.new.expand.centre_horizontal)
+      assert_equal(sizeChild, children[0].get_size)
+      assert_equal(sizeChild, children[1].get_size )
+      assert_equal(Wx::Size.new(sizeChild.x, sizeRest.y), children[2].get_size)
+      assert_equal(Wx::Size.new(sizeChild.x, sizeRest.y), children[3].get_size)
+    end
+  end
+
+  def test_layout_right
+    do_test_layout do |children, sizeTotal, sizeChild, sizeRest|
+      set_children(children, Wx::SizerFlags.new.right)
+      assert_equal( Wx::Point.new(0, 0), children[0].get_position)
+      assert_equal( Wx::Point.new(sizeRest.x, 0), children[1].get_position)
+      assert_equal( Wx::Point.new(0, sizeChild.y), children[2].get_position)
+      assert_equal( Wx::Point.new(sizeRest.x, sizeChild.y), children[3].get_position)
+    end
+  end
+
+  def test_layout_right_centre_vertical
+    do_test_layout do |children, sizeTotal, sizeChild, sizeRest|
+      set_children(children, Wx::SizerFlags.new.right.centre_vertical)
+      yMid = sizeChild.y + (sizeRest.y - sizeChild.y) / 2
+      assert_equal( Wx::Point.new(0, 0), children[0].get_position)
+      assert_equal( Wx::Point.new(sizeRest.x, 0), children[1].get_position)
+      assert_equal( Wx::Point.new(0, yMid), children[2].get_position)
+      assert_equal( Wx::Point.new(sizeRest.x, yMid), children[3].get_position)
+    end
+  end
+
+end

data/tests/test_intl.rb

@@ -1,3 +1,6 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
 
 require_relative './lib/wxapp_runner'
 

data/tests/test_item_data.rb

@@ -1,3 +1,6 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
 
 require_relative './lib/wxapp_runner'
 

data/tests/test_list_ctrl.rb

@@ -0,0 +1,56 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+
+require_relative './lib/wxframe_runner'
+
+class ButtonTests < WxRuby::Test::GUITests
+
+  def setup
+    super
+    @list = Wx::ListCtrl.new(frame_win)
+    @list.set_window_style(Wx::LC_REPORT | Wx::LC_EDIT_LABELS)
+    @list.set_size([400, 200])
+  end
+
+  def cleanup
+    @list.destroy
+    super
+  end
+
+  attr_reader :list
+
+  def test_sort
+    list.insert_column(0, "Column 0")
+
+    list.insert_item(0, "Item 0")
+    list.set_item_data(0, 0)
+    list.insert_item(1, "Item 1")
+    list.set_item_data(1, 1)
+
+    list.sort_items { |i1, i2, _| i2 <=> i1 } # inverted compare
+
+    assert_equal("Item 1", list.get_item_text(0))
+    assert_equal("Item 0", list.get_item_text(1))
+  end
+
+  if Wx.has_feature?(:HAS_LISTCTRL_COLUMN_ORDER)
+
+  def test_columns_order
+    3.times { |i| list.insert_column(i, "Column #{i}") }
+
+    order = [2, 0, 1]
+    list.set_columns_order(order)
+
+    # now list.get_columns_order() will return order
+    assert_equal(order, list.get_columns_order)
+    # and list.get_column_index_from_order(n) will return order[n]
+    assert_equal(order[1], list.get_column_index_from_order(1))
+    # and list.get_column_order() will return 1, 2 and 0 for the column 0,
+    # 1 and 2 respectively
+    assert_equal(1, list.get_column_order(0))
+  end
+
+  end
+
+end

data/tests/test_log.rb

@@ -0,0 +1,226 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+
+require_relative './lib/wxapp_runner'
+
+class LogTests < Test::Unit::TestCase
+
+  class TestLogBase < Wx::Log
+
+    def initialize
+      super
+      @logs = ::Array.new(Wx::LOG_Trace + 1)
+      @logsInfo = ::Array.new(Wx::LOG_Trace + 1)
+    end
+
+    def get_log(level)
+      @logs[level].to_s
+    end
+
+    def get_info(level)
+      @logsInfo[level]
+    end
+
+    def clear
+      @logs = ::Array.new(Wx::LOG_Trace + 1)
+      @logsInfo = ::Array.new(Wx::LOG_Trace + 1)
+    end
+
+  end
+
+  class TestLog < TestLogBase
+
+    protected
+
+    def do_log_record(level, msg, info)
+      @logs[level] = msg
+      # do not keep log info objects because these (and their state) are purely transient data
+      # that can only be reliably accessed (or passed on) within this call scope
+      @logsInfo[level] = { filename: info.filename, line: info.line, func: info.func, component: info.component }
+    end
+
+  end
+
+  def setup
+    super
+    @logOld = Wx::Log.set_active_target(@log = TestLog.new)
+    @logWasEnabled = Wx::Log.enable_logging
+  end
+
+  def cleanup
+    Wx::Log.set_active_target(@logOld)
+    Wx::Log.enable_logging(@logWasEnabled)
+    super
+  end
+
+  def test_functions
+    Wx.log_message("Message")
+    assert_equal("Message", @log.get_log(Wx::LOG_Message))
+
+    Wx.log_error("Error %d", 17)
+    assert_equal("Error 17", @log.get_log(Wx::LOG_Error))
+
+    Wx.log_debug("Debug")
+    if Wx::WXWIDGETS_DEBUG_LEVEL > 0
+      assert_equal( "Debug", @log.get_log(Wx::LOG_Debug))
+    else
+      assert_equal( "", @log.get_log(Wx::LOG_Debug))
+    end
+  end
+
+  def test_null
+    Wx::LogNull.no_log do
+      Wx.log_warning("%s warning", "Not important")
+
+      assert_equal("", @log.get_log(Wx::LOG_Warning))
+      end
+
+    Wx.log_warning("%s warning", "Important")
+    assert_equal("Important warning", @log.get_log(Wx::LOG_Warning))
+  end
+
+  def test_component
+    Wx.log_message('Message')
+    assert_equal('wxapp',
+                 @log.get_info(Wx::LOG_Message)[:component])
+
+    # completely disable logging for this component
+    Wx::Log.set_component_level('test/ignore', Wx::LOG_FatalError)
+
+    # but enable it for one of its subcomponents
+    Wx::Log.set_component_level('test/ignore/not', Wx::LOG_Max)
+
+    Wx::Log.for_component('test/ignore') do
+      # this shouldn't be output as this component is ignored
+      Wx::log_error('Error')
+      assert_equal('', @log.get_log(Wx::LOG_Error))
+
+      # and so are its subcomponents
+      Wx.log_error('Error', component: 'test/ignore/sub/subsub') # explicit component: overrules scoped setting
+      assert_equal('', @log.get_log(Wx::LOG_Error))
+
+      Wx.log_error('Error', component: 'test/ignore/not')
+      assert_equal('Error', @log.get_log(Wx::LOG_Error))
+
+      # restore the original component value
+    end
+  end
+
+  def test_repetition_counting
+    Wx::Log.set_repetition_counting(true)
+
+    Wx.log_message('Message')
+    assert_equal('Message', @log.get_log(Wx::LOG_Message))
+
+    @log.clear
+    Wx.log_message('Message')
+    assert_equal('', @log.get_log(Wx::LOG_Message))
+    Wx.log_message('Message')
+    assert_equal('', @log.get_log(Wx::LOG_Message))
+
+    Wx.log_info('Another message')
+    if Wx.has_feature?(:USE_INTL)
+      # don't what language may come out so just test if not empty anymore
+      assert_not_empty(@log.get_log(Wx::LOG_Message))
+    else
+      assert_match(/The previous message.*repeated/, @log.get_log(Wx::LOG_Message))
+    end
+    assert_equal('Another message', @log.get_log(Wx::LOG_Info))
+
+    Wx::Log.set_repetition_counting(false)
+  end
+
+  class MyBufferInterposer < Wx::LogInterposer
+
+    def initialize
+      super
+      @buffer = []
+    end
+
+    attr_reader :buffer
+
+    def do_log_text(msg)
+      @buffer << msg
+    end
+    protected :do_log_text
+
+  end
+
+  def test_log_interposer
+    buffer_log = MyBufferInterposer.new
+    assert_empty(buffer_log.buffer)
+
+    Wx.log_message('Message')
+    assert_equal("Message", @log.get_log(Wx::LOG_Message))
+    assert_equal(1, buffer_log.buffer.size)
+    assert_match(/Message/, buffer_log.buffer.first)
+
+    Wx.log_warning('Message')
+    assert_equal("Message", @log.get_log(Wx::LOG_Warning))
+    assert_equal(2, buffer_log.buffer.size)
+    assert_match(/Message/, buffer_log.buffer.last)
+
+  end
+
+  def test_log_chain
+    log_chain = Wx::LogChain.new(TestLog.new)
+    assert_not_nil(log_chain.instance_variable_get('@new_log'))
+    assert_kind_of(TestLog, log_chain.instance_variable_get('@new_log'))
+    log_chain = nil # GC collection should still be prevented
+    GC.start
+    log_chain = Wx::Log.get_active_target
+    assert_kind_of(Wx::LogChain, log_chain)
+    assert_not_nil(log_chain.instance_variable_get('@new_log'))
+    assert_kind_of(TestLog, log_chain.instance_variable_get('@new_log'))
+    log_chain = nil # GC collection should still be prevented
+    GC.start
+    Wx.log_message('Message')
+    log_chain = Wx::Log.get_active_target
+    new_log = log_chain.instance_variable_get('@new_log')
+    assert_equal('Message', @log.get_log(Wx::LOG_Message))
+    assert_equal('Message', new_log.get_log(Wx::LOG_Message))
+    log_chain = new_log = nil
+    GC.start
+    Wx.log_warning('Message 2')
+    log_chain = Wx::Log.get_active_target
+    new_log = log_chain.instance_variable_get('@new_log')
+    assert_equal('Message 2', @log.get_log(Wx::LOG_Warning))
+    assert_equal('Message 2', new_log.get_log(Wx::LOG_Warning))
+    log_chain.release
+    Wx.log_message('Message 3')
+    assert_equal('Message 3', @log.get_log(Wx::LOG_Message))
+    assert_not_equal('Message 3', new_log.get_log(Wx::LOG_Message))
+    log_chain = new_log = nil
+    GC.start
+  end
+
+  def test_interposer_chain
+    log_chain = MyBufferInterposer.new
+    assert_false(log_chain.instance_variable_defined?('@new_log'))
+    log_chain = nil # GC collection should still be prevented
+    GC.start
+    log_chain = Wx::Log.get_active_target
+    assert_kind_of(MyBufferInterposer, log_chain)
+    log_chain = nil # GC collection should still be prevented
+    GC.start
+    Wx.log_message('Message')
+    log_chain = Wx::Log.get_active_target
+    assert_equal('Message', @log.get_log(Wx::LOG_Message))
+    assert_equal(1, log_chain.buffer.size)
+    assert_match(/Message/, log_chain.buffer.first)
+    log_chain = nil
+    GC.start
+    Wx.log_message('Message 2')
+    log_chain = Wx::Log.get_active_target
+    assert_equal('Message 2', @log.get_log(Wx::LOG_Message))
+    assert_equal(2, log_chain.buffer.size)
+    assert_match(/Message 2/, log_chain.buffer.last)
+    Wx::Log.set_active_target(log_chain.get_old_log)
+    log_chain = nil
+    GC.start
+    Wx.log_message('Message 3')
+    assert_equal('Message 3', @log.get_log(Wx::LOG_Message))
+  end
+
+end

data/tests/test_proof_check.rb

@@ -0,0 +1,52 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+
+require_relative './lib/wxframe_runner'
+
+class MultilineProofCheckTests < WxRuby::Test::GUITests
+
+  def setup
+    super
+    @text = Wx::TextCtrl.new(frame_win, name: 'Text', style: Wx::TE_MULTILINE|Wx::TE_RICH|Wx::TE_RICH2)
+  end
+
+  def cleanup
+    @text.destroy
+    super
+  end
+
+  attr_reader :text
+  alias :text_entry :text
+
+  if Wx.has_feature?(:USE_SPELLCHECK)
+
+    def test_spell_check
+
+      assert_true(text.enable_proof_check(Wx::TextProofOptions.default))
+      Wx.get_app.yield
+      proof_opts = text.get_proof_check_options
+      assert_instance_of(Wx::TextProofOptions, proof_opts)
+      assert_true(proof_opts.is_spell_check_enabled) unless Wx::PLATFORM == 'WXGTK'
+      assert_false(proof_opts.is_grammar_check_enabled)
+      if Wx::PLATFORM != 'WXMSW' || Wx::WXWIDGETS_VERSION >= '3.3'
+        assert_true(text.enable_proof_check(Wx::TextProofOptions.disable))
+      else
+        assert_false(text.enable_proof_check(Wx::TextProofOptions.disable)) # incorrect return value for WXMSW
+      end
+      Wx.get_app.yield
+      proof_opts = text.get_proof_check_options
+      assert_instance_of(Wx::TextProofOptions, proof_opts)
+      assert_false(proof_opts.is_spell_check_enabled) unless Wx::PLATFORM == 'WXGTK'
+      assert_false(proof_opts.is_grammar_check_enabled)
+      assert_true(text.enable_proof_check(Wx::TextProofOptions.default.grammar_check(true)))
+      Wx.get_app.yield
+      proof_opts = text.get_proof_check_options
+      assert_true(proof_opts.is_spell_check_enabled) unless Wx::PLATFORM == 'WXGTK'
+      assert_true(proof_opts.is_grammar_check_enabled) if Wx::PLATFORM == 'WXOSX'
+
+    end
+
+  end
+
+end

data/tests/test_richtext.rb

@@ -0,0 +1,204 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+
+require_relative './lib/wxframe_runner'
+
+class RichTextCtrlTextTests < WxRuby::Test::GUITests
+
+  def setup
+    super
+    @richtext = Wx::RTC::RichTextCtrl.new(frame_win, name: 'RichText')
+  end
+
+  def cleanup
+    @richtext.destroy
+    super
+  end
+
+  attr_reader :richtext
+  alias :text_entry :richtext
+
+  def test_text
+    assert_equal('', richtext.get_value)
+  end
+
+  def test_te_set_value
+    text_entry.set_focus # removes the 'Hint' test which in GTK2 causes problems
+    assert(text_entry.empty?)
+
+    text_entry.value = 'foo'
+    assert_equal('foo', text_entry.value)
+
+    text_entry.value = ''
+    assert(text_entry.empty?)
+
+    text_entry.value = 'hi'
+    assert_equal('hi', text_entry.value)
+
+    text_entry.value = 'bye'
+    assert_equal('bye', text_entry.value)
+  end
+
+end
+
+class RichTextCtrlWriteTests < WxRuby::Test::GUITests
+
+  def setup
+    super
+    @richtext = Wx::RTC::RichTextCtrl.new(frame_win, name: 'RichText')
+  end
+
+  def cleanup
+    @richtext.destroy
+    super
+  end
+
+  attr_reader :richtext
+
+  def test_write_text
+    assert_nothing_raised { richtext.write_text('Hello World') }
+    assert_equal('Hello World', richtext.value)
+    richtext.set_selection(0, 11)
+    assert_equal('Hello World', richtext.get_string_selection)
+    richtext.append_text("\nSecond Line")
+    assert_equal("Hello World\nSecond Line", richtext.value)
+    assert_equal(2, richtext.number_of_lines)
+    assert_equal('Second Line', richtext.get_line_text(1))
+  end
+
+  def test_write_image
+    assert_nothing_raised { richtext.write_image(Wx.Bitmap(:wxruby, Wx::BitmapType::BITMAP_TYPE_PNG, art_section: 'test_art')) }
+    img_obj = richtext.buffer.get_leaf_object_at_position(0)
+    assert_kind_of(Wx::RTC::RichTextImage, img_obj)
+  end
+
+  def test_write_text_box
+    attr1 = Wx::RichTextAttr.new
+    attr1.get_text_box_attr.margins.left.set_value(20, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.margins.top.set_value(20, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.margins.right.set_value(20, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.margins.bottom.set_value(20, Wx::TEXT_ATTR_UNITS_PIXELS)
+
+    attr1.get_text_box_attr.border.set_colour(:BLACK)
+    attr1.get_text_box_attr.border.set_width(1, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.border.set_style(Wx::TEXT_BOX_ATTR_BORDER_SOLID)
+
+    textBox = richtext.write_text_box(attr1)
+    richtext.set_focus_object(textBox)
+
+    richtext.write_text("This is a text box. Just testing! Once more unto the breach, dear friends, once more...")
+
+    richtext.set_focus_object(nil) # Set the focus back to the main buffer
+    txt_box = richtext.buffer.get_leaf_object_at_position(0)
+    assert_kind_of(Wx::RTC::RichTextBox, txt_box)
+  end
+  
+  def test_write_table
+    attr1 = Wx::RichTextAttr.new
+    attr1.get_text_box_attr.margins.left.set_value(5, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.margins.top.set_value(5, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.margins.right.set_value(5, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.margins.bottom.set_value(5, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.padding.apply(richtext.get_default_style_ex.get_text_box_attr.margins)
+
+    attr1.get_text_box_attr.border.set_colour(:BLACK)
+    attr1.get_text_box_attr.border.set_width(1, Wx::TEXT_ATTR_UNITS_PIXELS)
+    attr1.get_text_box_attr.border.set_style(Wx::TEXT_BOX_ATTR_BORDER_SOLID)
+
+    cellAttr = Wx::RichTextAttr.new(attr1)
+    cellAttr.get_text_box_attr.width.set_value(200, Wx::TEXT_ATTR_UNITS_PIXELS)
+    cellAttr.get_text_box_attr.height.set_value(150, Wx::TEXT_ATTR_UNITS_PIXELS)
+
+    table = richtext.write_table(6, 4, attr1, cellAttr)
+
+    assert_kind_of(Wx::RTC::RichTextTable, table)
+    assert_equal(6, table.row_count)
+    assert_equal(4, table.column_count)
+
+    table.get_row_count.times do |j|
+      table.get_column_count.times do |i|
+        msg = "This is cell %d, %d" % [(j+1), (i+1)]
+        richtext.set_focus_object(table.cell(j, i))
+        richtext.write_text(msg)
+      end
+    end
+
+    cell = table.get_cell(0, 0)
+    assert_kind_of(Wx::RTC::RichTextCell, cell)
+    assert_equal('This is cell 1, 1', cell.get_text)
+  end
+
+end
+
+class RichTextCtrlFieldTypeTests < WxRuby::Test::GUITests
+
+  class RichTextFieldTypeTest < Wx::RTC::RichTextFieldTypeStandard
+
+    def initialize(name, label_or_bmp, displayStyle = Wx::RTC::RICHTEXT_FIELD_STYLE_RECTANGLE)
+      super
+      @is_drawn = false
+    end
+
+    attr_reader :is_drawn
+
+    def draw(obj, dc, context, range, selection, rect, descent, style)
+      @is_drawn = super
+    end
+
+    def can_edit_properties(_obj); false; end
+
+  end
+
+  class << self
+
+    def startup
+      @ft_test = RichTextFieldTypeTest.new('TEST', 'test')
+      Wx::RTC::RichTextBuffer.add_field_type(@ft_test)
+    end
+
+    def cleanup
+      Wx::RTC::RichTextBuffer.remove_field_type(@ft_test)
+      @ft_test = nil
+      GC.start
+    end
+
+    attr_reader :ft_test
+
+  end
+
+  def setup
+    super
+    @richtext = Wx::RTC::RichTextCtrl.new(frame_win, name: 'RichText', size: [400,300])
+  end
+
+  def cleanup
+    @richtext.destroy
+    super
+  end
+
+  attr_reader :richtext
+
+  def ft_test
+    self.class.ft_test
+  end
+  private :ft_test
+
+  def check_is_drawn
+    frame_win.refresh
+    Wx.get_app.yield
+    ft_test.is_drawn
+  end
+  private :check_is_drawn
+
+  def test_write_custom_field
+    rt_field = richtext.write_field('TEST', Wx::RTC::RichTextProperties.new)
+    assert_kind_of(Wx::RTC::RichTextField, rt_field)
+    # the timing of the RichTextCtrl update is too unreliable
+    # to use this in CI builds
+    unless is_ci_build?
+      assert_true(check_is_drawn)
+    end
+  end
+
+end