wet-winobj 0.1-mswin32

data/tests/README

@@ -0,0 +1,5 @@
+To run the unit tests you will need
+WxRuby. WxRuby can be found at:
+
+http://rubyforge.org/projects/wxruby/
+

data/tests/TestAppWindow.rb

@@ -0,0 +1,96 @@
+require 'wet-winobj-tests.rb'
+
+
+class TestAppWindow < Test::Unit::TestCase
+
+    def setup()
+        if !$is_init
+            $common_wxw = WetWxWindow.new()
+            $common_wxw.show("Wet Window Tester")
+            $is_init = true
+        end
+    end
+    
+    def test_get_by_title()
+        wxw = WetWxWindow.new()
+        wxw.show("test_get_by_title")
+        wtw = app_window("title" => "test_get_by_title")        
+        assert_equal(wxw.hwnd, wtw.hwnd) 
+    end
+    
+    def test_get_by_title_regex()
+        wxw = WetWxWindow.new()
+        wxw.show("Another test with a long window")
+        wtw = app_window("title" => /^Another test/)
+        assert_equal(wxw.hwnd, wtw.hwnd) 
+        wtw = nil
+        
+        wxw2 = WetWxWindow.new
+        wxw2.show("This time test for ending words")
+        wtw = app_window("title" => /.*ending words$/)
+        assert_equal(wxw2.hwnd, wtw.hwnd) 
+    end
+    
+    def test_get_by_title_duplicate_titles()
+        wxw = WetWxWindow.new
+        wxw2 = WetWxWindow.new
+        wxw.show("Common title window")
+        wxw2.show("Common title window")
+        wtw = app_window("title" => "Common title window")
+        assert(wtw.hwnd == wxw.hwnd || wxw2.hwnd)
+    end
+    
+    def test_get_by_title_non_existant()
+        wtw = app_window("title" => "Such a window wont and cannot exist in the system-bderererere")
+        assert(!wtw.exists?, "app_window creates a blank element if the window cannot be located")
+    end
+    
+    def test_get_waits_for_timeout()
+        assert(false, "This test is slightly difficult to implement. Defer for now")
+    end
+    
+    def test_get_by_unknown_property()
+        wxw = WetWxWindow.new()
+        wxw.show("test by unknown property")
+        assert_raise(UnsupportedOperationException, "Can only search windows using title") {wtw = app_window("index" => 1)}        
+    end
+    
+    def test_maximize()
+        wetw = AppWindow.new($common_wxw.hwnd)
+        wetw.maximize()
+        assert(wetw.is_style("maximized"))
+    end
+    
+    def test_title()
+        wetw = AppWindow.new($common_wxw.hwnd)
+        assert_equal(wetw.title, "Wet Window Tester")
+    end
+    
+    def test_win_class()
+        wetw = AppWindow.new($common_wxw.hwnd) 
+        assert_equal(wetw.win_class, "wxWindowClass")
+    end
+
+    def test_text()
+        wetw = AppWindow.new($common_wxw.hwnd)
+        assert_equal(wetw.title, "Wet Window Tester")
+    end
+    
+    def test_content_text()
+        assert(false, "Implement this test after implementing other window tests")
+    end
+
+    def test_child_objects()
+        assert(false, "Implement this test after implementing other window tests")
+    end
+    
+    def test_is_parent()
+        wetw = AppWindow.new($common_wxw.hwnd)
+        assert(wetw.is_parent) 
+    end
+    
+    def test_display_text()
+        wetw = AppWindow.new($common_wxw.hwnd)
+        assert_equal(wetw.display_text, "")    
+    end
+end

data/tests/TestButtonsWindow.rb

@@ -0,0 +1,71 @@
+require 'wet-winobj-tests.rb'
+require 'timeout'
+
+class TestButtonsWindow < Test::Unit::TestCase
+
+    def setup
+        if !$is_init
+            $common_wxw = ControlWindow.new()        
+            $common_wxw.create("WET Buttons Tester")
+            $btn_panel = ButtonPanel.new($common_wxw.get_frame) 
+            #st_panel = StatusPanel.new($common_wxw.get_frame)        
+            $common_wxw.show()    
+            $hwnd = $common_wxw.hwnd()
+            $is_init = true
+        end
+    end
+
+    def test_find_by_text()
+        b1 = app_window("title" => "WET Buttons Tester").win_button("text" => "OK" )
+        assert_equal(b1.hwnd,  $btn_panel.hwnd("b1"))
+        b2 = app_window("title" => "WET Buttons Tester").win_button("text" => "Cancel" )
+        assert_equal(b2.hwnd,  $btn_panel.hwnd("b2"))        
+        b4 = app_window("title" => "WET Buttons Tester").win_button("text" => "c&onfused" )
+        assert_equal(b4.hwnd,  $btn_panel.hwnd("b4"))
+    end
+
+    def test_find_by_regex_text()
+        b1 = Window.new($hwnd).win_button("text" => /^O/ )
+        assert_equal(b1.hwnd,  $btn_panel.hwnd("b1"))
+        b2 = Window.new($hwnd).win_button("text" => /l$/ )
+        assert_equal(b2.hwnd,  $btn_panel.hwnd("b2"))        
+        b4 = Window.new($hwnd).win_button("text" => /c.*d/ )
+        assert_equal(b4.hwnd,  $btn_panel.hwnd("b4"))
+    end
+
+    
+    def test_text()
+        b1 = Window.new($hwnd).win_button("text" => "OK" )
+        assert_equal(b1.text,  "OK")
+        b2 = Window.new($hwnd).win_button("text" => "Cancel" )
+        assert_equal(b2.text,  "Cancel")        
+        b4 = Window.new($hwnd).win_button("text" => "c&onfused" )
+        assert_equal(b4.text,  "c&onfused")
+    end
+    
+    
+    def test_click_first()
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        Thread.new() {AppWindow.new($common_wxw.hwnd).win_button("text" => "OK" ).click; sleep 0.5; assert_equal(WET_B1.to_s(), $btn_panel.get_status) }   
+    end
+    
+    def test_click_last()
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        Thread.new() {AppWindow.new($common_wxw.hwnd).win_button("text" => "c&onfused" ).click; sleep 0.5; assert_equal(WET_B4.to_s(), $btn_panel.get_status) }   
+    end
+
+    def test_is_radio()
+        assert(!AppWindow.new($common_wxw.hwnd).win_button("text" => "c&onfused" ).is_radio)
+    end
+    
+    def test_is_checkbox()
+        assert(!AppWindow.new($common_wxw.hwnd).win_button("text" => "c&onfused" ).is_checkbox)
+    end
+    
+    def teardown()
+        $common_wxw.exit_main_loop
+    end
+    
+    
+
+end

data/tests/TestCheckbox.rb

@@ -0,0 +1,113 @@
+require 'wet-winobj-tests.rb'
+require 'timeout'
+
+class TestCheckbox < Test::Unit::TestCase
+
+    def setup
+        if !$is_init
+            $common_wxw = ControlWindow.new()        
+            $common_wxw.create("Checkbox Tester")
+            $cb_panel = CBPanel.new($common_wxw.get_frame) 
+            #st_panel = StatusPanel.new($common_wxw.get_frame)        
+            $common_wxw.show() 
+            $hwnd = $common_wxw.hwnd
+            $is_init = true
+        end            
+        
+    end
+    
+    def test_nothing
+    
+    end
+    
+    def test_get_by_text        
+        wtb = Window.new($hwnd).win_checkbox("text"=>"Is Ok")
+        assert_equal($cb_panel.hwnd("b1"), wtb.hwnd) 
+        wtb = Window.new($hwnd).win_checkbox("text"=>"Pass?")
+        assert_equal($cb_panel.hwnd("b2"), wtb.hwnd) 
+        wtb = Window.new($hwnd).win_checkbox("text"=>"Are you s&ure?")
+        assert_equal($cb_panel.hwnd("b3"), wtb.hwnd) 
+    end
+    
+    def test_get_by_regex_text        
+        wtb = Window.new($hwnd).win_checkbox("text"=>/^P/)
+        assert_equal($cb_panel.hwnd("b2"), wtb.hwnd) 
+        wtb = Window.new($hwnd).win_checkbox("text"=>/e\?$/)
+        assert_equal($cb_panel.hwnd("b3"), wtb.hwnd) 
+        wtb = Window.new($hwnd).win_checkbox("text"=>/Are.*re?/)
+        assert_equal($cb_panel.hwnd("b3"), wtb.hwnd) 
+    end    
+    
+    def test_text()
+        wtb = Window.new($hwnd).win_checkbox("text"=>/^P/)
+        assert_equal(wtb.text, "Pass?") 
+        wtb = Window.new($hwnd).win_checkbox("text"=>/Is.*?/)
+        assert_equal(wtb.text, "Is Ok")
+        wtb = Window.new($hwnd).win_checkbox("text"=>/Are.*re?/)
+        assert_equal(wtb.text, "Are you s&ure?") 
+    end
+    
+    def test_set()
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        Thread.new() { \
+            wcb = WinCheckbox.new($cb_panel.hwnd("b1")); \
+            wcb.set_on; \
+             \
+        }  
+        sleep 1
+        assert($cb_panel.is_checked('b1')) 
+    end
+    
+
+    def test_set_when_already_set()
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        Thread.new() { \
+        wcb = WinCheckbox.new($cb_panel.hwnd("b1")) ;\
+        wcb.set_on; \
+        wcb.set_on \
+        }
+        sleep 1
+        assert($cb_panel.is_checked('b1'))         
+    end
+
+    def test_clear()
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        Thread.new() { \
+        wcb = WinCheckbox.new($cb_panel.hwnd("b2")); \
+        wcb.set_off \
+        }
+        sleep 1
+        assert(!$cb_panel.is_checked('b1')) ;\
+    end
+    
+    def test_clear_when_already_cleared()
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        Thread.new() { \
+        wcb = WinCheckbox.new($cb_panel.hwnd("b3")) ;\
+        wcb.set_off; \
+        wcb.set_off \
+        
+        }
+        sleep 1
+        assert(!$cb_panel.is_checked('b3')) 
+        
+    end 
+
+    def test_is_checked_when_on()
+        Thread.new() {Thread.pass; $common_wxw.main_loop}
+        Thread.new() { \
+            $cb_panel.set_value("b3", true)  \
+        }
+        wcb = WinCheckbox.new($cb_panel.hwnd("b3")) ; \
+        assert(wcb.is_checked)
+        
+    end
+    
+    def teardown()
+        $cb_panel.set_value('b1', false)
+        $cb_panel.set_value('b2', false)
+        $cb_panel.set_value('b3', false)
+        $common_wxw.exit_main_loop
+    end    
+
+end

data/tests/TestCombo.rb

@@ -0,0 +1,53 @@
+require 'wet-winobj-tests.rb'
+require 'timeout'
+
+class TestCombo < Test::Unit::TestCase
+
+    def setup
+        if !$is_init
+            $common_wxw = ControlWindow.new()        
+            $common_wxw.create("Combo Tester")
+            $cmb_panel = ComboPanel.new($common_wxw.get_frame) 
+            $common_wxw.show() 
+            $hwnd = $common_wxw.hwnd
+            $is_init = true
+        end        
+    end
+    
+    def test_get_by_label()
+        c1 = AppWindow.new($hwnd).win_combobox("label" => "Tex&t1")
+        assert_equal(c1.hwnd, $cmb_panel.hwnd('cmb1'))
+        c2 = AppWindow.new($hwnd).win_combobox("label" => "Se&cond Text")
+        assert_equal(c2.hwnd, $cmb_panel.hwnd('cmb2'))
+        c3 = AppWindow.new($hwnd).win_combobox("label" => "Thir&d")
+        assert_equal(c3.hwnd, $cmb_panel.hwnd('cmb3'))
+        c4 = AppWindow.new($hwnd).win_combobox("label" => "Cho&ice box")
+        assert_equal(c4.hwnd, $cmb_panel.hwnd('cmb4'))        
+    end
+    
+    def test_get_by_label_regex()
+        c1 = AppWindow.new($hwnd).win_combobox("label" => /^T/)
+        assert_equal(c1.hwnd, $cmb_panel.hwnd('cmb1'))
+        c2 = AppWindow.new($hwnd).win_combobox("label" => /Text$/)
+        assert_equal(c2.hwnd, $cmb_panel.hwnd('cmb2'))
+        c3 = AppWindow.new($hwnd).win_combobox("label" => /Th.*d/)
+        assert_equal(c3.hwnd, $cmb_panel.hwnd('cmb3'))
+        c4 = AppWindow.new($hwnd).win_combobox("label" => /.*&i.*/)
+        assert_equal(c4.hwnd, $cmb_panel.hwnd('cmb4'))        
+    end
+    
+    def test_set()
+        c1 = AppWindow.new($hwnd).win_combobox("label" => "Tex&t1")
+        c1.set "new 1"
+        assert_equal($cmb_panel.get_value('cmb1'), "new 1")
+        c2 = AppWindow.new($hwnd).win_combobox("label" => "Se&cond Text")
+        c2.set "set previously blank"
+        assert_equal($cmb_panel.get_value('cmb2'), "set previously blank")
+    end
+    
+    def test_select()
+        assert(false, "select has not yet been implemented")
+    end
+    
+    
+end

data/tests/TestDialog.rb

@@ -0,0 +1,111 @@
+require 'wet-winobj-tests.rb'
+require 'timeout'
+
+class TestDialog < Test::Unit::TestCase
+
+    def setup
+        if !$is_init
+            $common_wxw = ControlWindow.new()        
+            $common_wxw.create("Dialog Tester")
+            $common_wxw.show() 
+            $common_dlg = Dialog.new($common_wxw.get_frame, -1, "My new dialog", DEFAULT_POSITION, Size.new(400, 200))
+            
+            #$cmb_panel = ComboPanel.new($common_dlg) 
+            #b1 = ButtonPanel.new($common_dlg)
+            
+            $lbl1 = StaticText.new($common_dlg, -1, "E&dit box", Point.new(10, 20))
+            $txt1 = TextCtrl.new($common_dlg, -1, "", Point.new(80, 20))
+            $cb1 = CheckBox.new($common_dlg, -1, "test cb", Point.new(10, 50))
+            $rad1 = RadioButton.new($common_dlg, -1, "test radio", Point.new(80, 50))
+            $lbl2 = StaticText.new($common_dlg, -1, "Co&mbo box", Point.new(175, 50))
+            $cmb1 = ComboBox.new($common_dlg, -1, "", Point.new(250, 50))
+            $btn1 = Button.new($common_dlg, -1, "OK", Point.new(10, 100))
+            
+            
+            $hwnd = $common_wxw.hwnd
+            $dlg_hwnd = $common_dlg.get_handle()
+            
+            $is_init = true
+        end        
+        #$common_wxw.main_loop
+    end
+    
+    def test_get_by_text_modal()
+        Thread.new {$common_dlg.show_modal}
+        d1 = AppWindow.new($hwnd).dialog("title" => "My new dialog")
+        assert_equal(d1.hwnd, $dlg_hwnd) 
+        
+        #Verify that not paramteres _do_ matter
+        d1 = AppWindow.new($hwnd).dialog("title" => "dfjdklejr")
+        assert_equal(d1.hwnd, -1) 
+    end
+    
+    def test_get_by_text_modeless()
+        Thread.new {$common_dlg.show}
+        d1 = AppWindow.new($hwnd).dialog("title" => "My new dialog")
+        assert_equal(d1.hwnd, $dlg_hwnd) 
+        
+        #Verify that not paramteres _do_ matter
+        d1 = AppWindow.new($hwnd).dialog("title" => "dfjdklejr")
+        assert_equal(d1.hwnd, -1) 
+    end
+    
+    def common_children_tester()        
+        d1 = AppWindow.new($hwnd).dialog("title" => "My new dialog")
+        
+        lbl = d1.win_label("text" => "E&dit box")
+        assert_equal(lbl.hwnd, $lbl1.get_handle())
+        txt = d1.win_edit("label" => "E&dit box")
+        assert_equal(txt.hwnd, $txt1.get_handle())
+        cb = d1.win_checkbox("text" => "test cb")
+        assert_equal(cb.hwnd, $cb1.get_handle())
+        r = d1.win_radio("text" => "test radio")
+        assert_equal(r.hwnd, $rad1.get_handle())
+        cmb = d1.win_combobox("label" => "Co&mbo box")
+        assert_equal(cmb.hwnd, $cmb1.get_handle())
+        btn = d1.win_button("text" => "OK")
+        assert_equal(btn.hwnd, $btn1.get_handle())    
+    end
+    
+    def test_dialog_children_modal()
+        Thread.new {$common_dlg.show_modal}
+        common_children_tester()        
+    end
+    
+    def test_dialog_children_modeless()
+        Thread.new {$common_dlg.show}
+        common_children_tester()        
+    end
+    
+    def test_dialog_owner_modal()
+        Thread.new {$common_dlg.show_modal}
+        
+        d = AppWindow.new($hwnd).dialog("title" => "My new dialog")
+        assert_equal(d.owner.hwnd, $hwnd) 
+    end
+    
+    def test_dialog_owner_modeless()
+        Thread.new {$common_dlg.show}
+        
+        d = AppWindow.new($hwnd).dialog("title" => "My new dialog")
+        assert_equal(d.owner.hwnd, $hwnd) 
+    end
+    
+    def test_dialog_content_text_modal()
+        Thread.new {$common_dlg.show_modal}        
+        d = AppWindow.new($hwnd).dialog("title" => "My new dialog")
+        assert_equal(d.content_text, "E&dit boxCo&mbo box")
+    end
+    
+    def test_dialog_content_text_modeless()
+        Thread.new {$common_dlg.show}        
+        d = AppWindow.new($hwnd).dialog("title" => "My new dialog")
+        assert_equal(d.content_text, "E&dit boxCo&mbo box")
+    end
+    
+    def teardown()
+        $common_dlg.close()
+        sleep 1         
+    end
+    
+end