watir 1.4.1

data/unittests/popups_test.rb

@@ -0,0 +1,44 @@
+# feature tests for javascript PopUps
+# revision: $Revision: 1.13 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_PopUps < Test::Unit::TestCase
+    include Watir
+
+    def setup
+        $ie.goto("file://#{$myDir}/html/popups1.html")
+    end
+
+    def startClicker( button , waitTime = 0.5)
+        w = WinClicker.new
+        longName = $ie.dir.gsub("/" , "\\" )
+        shortName = w.getShortFileName(longName)
+        c = "start rubyw #{shortName }\\watir\\clickJSDialog.rb #{button } #{ waitTime} "
+        puts "Starting #{c}"
+        w.winsystem(c )   
+        w=nil
+    end
+
+    def test_simple
+        startClicker("OK")
+        $ie.button("Alert").click
+    end
+
+    def test_confirm
+        startClicker("OK")
+        $ie.button("Confirm").click
+        assert( $ie.text_field(:name , "confirmtext").verify_contains("OK") )
+
+        startClicker("Cancel")
+        $ie.button("Confirm").click
+        assert( $ie.text_field(:name , "confirmtext").verify_contains("Cancel") )
+    end
+
+    def xtest_Prompt
+        startClicker("OK")
+        $ie.button("Prompt").click
+    end
+end
+

data/unittests/radios_test.rb

@@ -0,0 +1,164 @@
+# feature tests for Radio Buttons
+# revision: $Revision: 1.25 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Radios < Test::Unit::TestCase
+    include Watir
+
+    def setup()
+        $ie.goto($htmlRoot + "radioButtons1.html")
+    end
+
+    def test_Radio_Exists
+       assert($ie.radio(:name, "box1").exists?)   
+       assert($ie.radio(:id, "box5").exists?)   
+
+       assert_false($ie.radio(:name, "missingname").exists?)   
+       assert_false($ie.radio(:id, "missingid").exists?)   
+    end
+
+    def test_Radio_Enabled
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.radio(:name, "noName").enabled?  }  
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.radio(:id, "noName").enabled?  }  
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.radio(:name, "box4" , 6).enabled?  }  
+
+       assert_false($ie.radio(:name, "box2").enabled?)   
+       assert($ie.radio(:id, "box5").enabled?)   
+       assert($ie.radio(:name, "box1").enabled?)   
+    end
+
+   def test_little
+       assert_false($ie.button(:value , "foo").enabled?)
+   end
+
+   def test_onClick
+
+       assert_false($ie.radio(:name, "box5").isSet?)
+       assert_false($ie.button(:value , "foo").enabled?)
+
+       # first click the button is enabled and the radio is set
+       $ie.radio(:name, "box5" , 1).set
+       assert($ie.radio(:name, "box5",1).isSet?)
+       assert($ie.button(:value , "foo").enabled?)
+
+       # second click the button is disabled and the radio is still set
+       $ie.radio(:name, "box5", 1).set
+       assert($ie.radio(:name, "box5",1).isSet?)
+       assert_false($ie.button(:value , "foo").enabled?)
+
+       # third click the button is enabled and the radio is still set
+       $ie.radio(:name, "box5", 1).set
+       assert($ie.radio(:name, "box5",1 ).isSet?)
+       assert($ie.button(:value , "foo").enabled?)
+
+       # click the radio with a value of 2 , button is disabled and the radio is still set
+       $ie.radio(:name, "box5", 2).set
+       assert_false($ie.radio(:name, "box5" ,1).isSet?)
+       assert($ie.radio(:name, "box5" ,2).isSet?)
+       assert_false($ie.button(:value , "foo").enabled?)
+
+
+
+
+    end
+
+    def test_Radio_isSet
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.radio(:name, "noName").isSet?  }  
+
+       assert_false($ie.radio(:name, "box1").isSet?)   
+       assert( $ie.radio(:name, "box3").isSet?)   
+       assert_false($ie.radio(:name, "box2").isSet?)   
+       assert( $ie.radio(:name, "box4" , 1 ).isSet?)   
+       assert_false($ie.radio(:name, "box4" , 2 ).isSet?)   
+    end
+
+    def test_radio_clear
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.radio(:name, "noName").clear  }  
+
+       $ie.radio(:name, "box1").clear
+       assert_false($ie.radio(:name, "box1").isSet?)   
+
+       assert_raises(ObjectDisabledException, "ObjectDisabledException was supposed to be thrown" ) {   $ie.radio(:name, "box2").clear  } 
+       assert_false($ie.radio(:name, "box2").isSet?)   
+
+       $ie.radio(:name, "box3").clear
+       assert_false($ie.radio(:name, "box3").isSet?)   
+
+       $ie.radio(:name, "box4" , 1).clear
+       assert_false($ie.radio(:name, "box4" , 1).isSet?)   
+    end
+
+    def test_radio_getState
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.radio(:name, "noName").getState  }  
+
+       assert_equal( false , $ie.radio(:name, "box1").getState )   
+       assert_equal( true , $ie.radio(:name, "box3").getState)   
+
+       # radioes that have the same name but different values
+       assert_equal( false , $ie.radio(:name, "box4" , 2).getState )   
+       assert_equal( true , $ie.radio(:name, "box4" , 1).getState)   
+    end
+
+    def test_radio_set
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.radio(:name, "noName").set  }  
+       $ie.radio(:name, "box1").set
+       assert($ie.radio(:name, "box1").isSet?)   
+
+       assert_raises(ObjectDisabledException, "ObjectDisabledException was supposed to be thrown" ) {   $ie.radio(:name, "box2").set  }  
+
+       $ie.radio(:name, "box3").set
+       assert($ie.radio(:name, "box3").isSet?)   
+
+       # radioes that have the same name but different values
+       $ie.radio(:name, "box4" , 3).set
+       assert($ie.radio(:name, "box4" , 3).isSet?)   
+    end
+
+    def test_radio_properties
+
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.radio(:index, 199).value}  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.radio(:index, 199).name }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.radio(:index, 199).id }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.radio(:index, 199).disabled }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.radio(:index, 199).type }  
+
+        assert_equal("on"   ,    $ie.radio(:index, 1).value)  
+        assert_equal("box1" ,    $ie.radio(:index, 1).name )  
+        assert_equal(""     ,    $ie.radio(:index, 1).id )  
+        assert_equal("radio",    $ie.radio(:index, 1).type )  
+
+        assert_equal( false, $ie.radio(:index, 1).disabled )
+        assert_equal( true,  $ie.radio(:index, 3).disabled )
+
+        assert_equal("box5"  ,    $ie.radio(:index, 2).id )  
+        assert_equal(""      ,    $ie.radio(:index, 2).name )  
+
+        assert_equal("box4-value5", $ie.radio(:name , "box4" , 5 ).title  )
+        assert_equal("", $ie.radio(:name , "box4" , 4 ).title  )
+
+
+    end
+
+    def test_radio_iterators
+
+        assert_equal(11, $ie.radios.length)
+        assert_equal("box5" , $ie.radios[2].id )
+        assert_equal(true ,  $ie.radios[3].disabled )
+        assert_equal(false ,  $ie.radios[1].disabled )
+
+        index = 1
+        $ie.radios.each do |r|
+            assert_equal( $ie.radio(:index, index).name , r.name )
+            assert_equal( $ie.radio(:index, index).id , r.id )
+            assert_equal( $ie.radio(:index, index).value, r.value)
+            assert_equal( $ie.radio(:index, index).disabled , r.disabled )
+            index+=1
+        end
+        assert_equal(index -1, $ie.radios.length)
+    end
+
+
+end
+

data/unittests/screen_capture_test.rb

@@ -0,0 +1,53 @@
+# feature tests for screen capture
+# revision: $Revision: 1.4 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+require 'watir/screen_capture'
+
+class TC_Capture< Test::Unit::TestCase
+    include Watir
+    include Watir::ScreenCapture
+    
+    def setup
+        delete_captured_files( [ 'jpeg1.jpg' , 'jpeg2.jpg' , 'bmp1.bmp', 'bmp2.bmp' ] )
+        $ie.goto($htmlRoot + 'buttons1.html' )
+        @file_list = []       
+    end
+    
+    def teardown
+        delete_captured_files
+    end
+    
+    def delete_captured_files(files=nil )
+        files = @file_list unless files
+        files.each do |f|
+            File.delete( f) if FileTest.exists?( f)
+        end
+    end
+    
+    def test_jpeg
+        file_name= 'jpeg1.jpg'
+        @file_list << file_name
+        screen_capture( file_name  )
+        assert(FileTest.exist?( file_name) )
+        
+        file_name= 'jpeg2.jpg'
+        @file_list << file_name
+        screen_capture( file_name , true  )   # just the active window
+        assert(FileTest.exist?( file_name) )
+    end
+    
+    def test_bmp
+        file_name= 'bmp1.bmp'
+        @file_list << file_name
+        screen_capture( file_name , false, true )
+        assert(FileTest.exist?( file_name ) )
+        
+        file_name= 'bmp2.bmp'
+        @file_list << file_name
+        screen_capture( file_name , true , true )   # just the active window
+        assert(FileTest.exist?( file_name) ) 
+    end
+end
+

data/unittests/selectbox_test.rb

@@ -0,0 +1,197 @@
+# feature tests for Select Boxes
+# revision: $Revision: 1.28 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_SelectList < Test::Unit::TestCase
+    include Watir
+    
+    def setup()
+        $ie.goto($htmlRoot + "selectboxes1.html")
+    end
+    
+    def test_SelectList_exists
+        assert($ie.select_list(:name, "sel1").exists?)   
+        assert_false($ie.select_list(:name, "missing").exists?)   
+        assert_false($ie.select_list(:id, "missing").exists?)   
+    end
+    
+    def test_SelectList_enabled
+        assert($ie.select_list(:name, "sel1").enabled?)   
+        assert_raises(UnknownObjectException) { $ie.selectBox(:name, "NoName").enabled? }  
+        assert_false($ie.select_list(:id, 'selectbox_4').enabled?)
+    end
+
+    def test_Option_text_select
+        assert_raises(UnknownObjectException) { $ie.select_list(:name, "sel1").option(:text, "missing item").select }  
+        assert_raises(UnknownObjectException) { $ie.select_list(:name, "sel1").option(:text, /missing/).select }  
+        assert_raises(MissingWayOfFindingObjectException) { $ie.select_list(:name, "sel1").option(:missing, "Option 1").select }
+
+        # the select method keeps any currently selected items - use the clear selection method first
+        $ie.select_list( :name , "sel1").clearSelection
+        $ie.select_list( :name , "sel1").option(:text, "Option 1").select
+        assert_arrayEquals( ["Option 1" ] , $ie.select_list(:name, "sel1").getSelectedItems)   
+    end    
+end
+
+# Tests for the old interface
+class TC_Selectbox < Test::Unit::TestCase
+    include Watir
+    
+    def setup()
+        $ie.goto($htmlRoot + "selectboxes1.html")
+    end
+    
+    def test_selectBox_Exists
+        assert($ie.selectBox(:name, "sel1").exists?)   
+        assert_false($ie.selectBox(:name, "missing").exists?)   
+        assert_false($ie.selectBox(:id, "missing").exists?)   
+    end
+    
+    def test_selectBox_enabled
+        assert($ie.selectBox(:name, "sel1").enabled?)   
+        assert_raises(UnknownObjectException) { $ie.selectBox(:name, "NoName").enabled? }  
+    end
+    
+    def test_selectBox_getAllContents
+        assert_raises(UnknownObjectException) { $ie.selectBox(:name, "NoName").getAllContents }  
+        assert_arrayEquals( ["Option 1" ,"Option 2" , "Option 3" , "Option 4"] , 
+            $ie.selectBox(:name, "sel1").getAllContents)   
+    end
+    
+    def test_selectBox_getSelectedItems
+        assert_raises(UnknownObjectException) { $ie.selectBox(:name, "NoName").getSelectedItems }  
+        assert_arrayEquals( ["Option 3" ] , 
+            $ie.selectBox(:name, "sel1").getSelectedItems)   
+        assert_arrayEquals( ["Option 3" , "Option 6" ] , 
+            $ie.selectBox(:name, "sel2").getSelectedItems)   
+    end
+    
+    def test_clearSelection
+        assert_raises(UnknownObjectException) { $ie.selectBox(:name, "NoName").clearSelection }  
+        $ie.selectBox( :name , "sel1").clearSelection
+        
+        # the box sel1 has no ability to have a de-selected item
+        assert_arrayEquals( ["Option 3" ] , $ie.selectBox(:name, "sel1").getSelectedItems)   
+        
+        $ie.selectBox( :name , "sel2").clearSelection
+        assert_arrayEquals( [ ] , $ie.selectBox(:name, "sel2").getSelectedItems)   
+    end
+    
+    def test_selectBox_select
+        assert_raises(NoValueFoundException) { $ie.selectBox(:name, "sel1").select("missing item") }  
+        assert_raises(NoValueFoundException) { $ie.selectBox(:name, "sel1").select(/missing/) }  
+        
+        # the select method keeps any currently selected items - use the clear selectcion method first
+        $ie.selectBox( :name , "sel1").clearSelection
+        $ie.selectBox( :name , "sel1").select("Option 1")
+        assert_arrayEquals( ["Option 1" ] , $ie.selectBox(:name, "sel1").getSelectedItems)   
+        
+        $ie.selectBox( :name , "sel1").clearSelection
+        $ie.selectBox( :name , "sel1").select(/2/)
+        assert_arrayEquals( ["Option 2" ] , $ie.selectBox(:name, "sel1").getSelectedItems)   
+        
+        $ie.selectBox( :name , "sel2").clearSelection
+        $ie.selectBox( :name , "sel2").select(/2/)
+        $ie.selectBox( :name , "sel2").select(/4/)
+        assert_arrayEquals( ["Option 2" , "Option 4" ] , 
+        $ie.selectBox(:name, "sel2").getSelectedItems)   
+        
+        # these are to test the onchange event
+        # the event shouldnt get fired, as this is the selected item
+        $ie.selectBox( :name , "sel3").select( /3/ )
+        assert_false($ie.contains_text("Pass") )
+    end
+    
+    def test_selectBox_select2
+        # the event should get fired
+        $ie.selectBox( :name , "sel3").select( /2/ )
+        assert($ie.contains_text("PASS") )
+    end
+    
+    def test_selectBox_select_using_value
+        assert_raises(UnknownObjectException) { $ie.select_list(:name, "NoName").getSelectedItems }  
+        assert_raises(NoValueFoundException) { $ie.select_list(:name, "sel1").select_value("missing item") }  
+        assert_raises(NoValueFoundException) { $ie.select_list(:name, "sel1").select_value(/missing/) }  
+        
+        # the select method keeps any currently selected items - use the clear selectcion method first
+        $ie.select_list( :name , "sel1").clearSelection
+        $ie.select_list( :name , "sel1").select_value("o1")
+        assert_arrayEquals( ["Option 1" ] , $ie.select_list(:name, "sel1").getSelectedItems)   
+        
+        $ie.select_list( :name , "sel1").clearSelection
+        $ie.select_list( :name , "sel1").select_value(/2/)
+        assert_arrayEquals( ["Option 2" ] , $ie.select_list(:name, "sel1").getSelectedItems)   
+        
+        $ie.select_list( :name , "sel2").clearSelection
+        $ie.select_list( :name , "sel2").select_value(/4/)
+        $ie.select_list( :name , "sel2").select_value(/2/)
+        assert_arrayEquals( ["Option 2" , "Option 4" ] , 
+            $ie.select_list(:name, "sel2").getSelectedItems)   
+        
+        # these are to test the onchange event
+        # the event shouldnt get fired, as this is the selected item
+        $ie.select_list( :name , "sel3").select_value( /3/ )
+        assert_false($ie.contains_text("Pass") )
+    end
+    
+    def test_select_list_select_using_value2
+        # the event should get fired
+        $ie.select_list( :name , "sel3").select_value( /2/ )
+        assert($ie.contains_text("PASS") )
+    end
+    
+    def test_select_list_properties
+        assert_raises(UnknownObjectException) { $ie.select_list(:index, 199).value }  
+        assert_raises(UnknownObjectException) { $ie.select_list(:index, 199).name }  
+        assert_raises(UnknownObjectException) { $ie.select_list(:index, 199).id }  
+        assert_raises(UnknownObjectException) { $ie.select_list(:index, 199).disabled }  
+        assert_raises(UnknownObjectException) { $ie.select_list(:index, 199).type }  
+        
+        assert_equal("o3"   ,    $ie.select_list(:index, 1).value)  
+        assert_equal("sel1" ,    $ie.select_list(:index, 1).name )  
+        assert_equal(""     ,    $ie.select_list(:index, 1).id )  
+        assert_equal("select-one",         $ie.select_list(:index, 1).type )  
+        assert_equal("select-multiple",    $ie.select_list(:index, 2).type )  
+        
+        $ie.select_list(:index,1).select(/1/)
+        assert_equal("o1"   ,    $ie.select_list(:index, 1).value)  
+                
+        assert_false( $ie.select_list(:index, 1).disabled )
+        assert( $ie.select_list(:index, 4).disabled )
+        assert( $ie.select_list(:id, 'selectbox_4').disabled )
+    end
+    
+    def test_select_list_iterator
+        assert_equal(4, $ie.select_lists.length)
+        assert_equal("o3"   ,    $ie.select_lists[1].value)  
+        assert_equal("sel1" ,    $ie.select_lists[1].name )  
+        assert_equal("select-one",         $ie.select_lists[1].type )  
+        assert_equal("select-multiple" ,   $ie.select_lists[2].type )  
+        
+        index=1
+        $ie.select_lists.each do |l|
+            assert_equal( $ie.select_list(:index, index).name , l.name )
+            assert_equal( $ie.select_list(:index, index).id , l.id )
+            assert_equal( $ie.select_list(:index, index).type , l.type )
+            assert_equal( $ie.select_list(:index, index).value , l.value )
+            index+=1
+        end
+        assert_equal( index-1, $ie.select_lists.length)
+    end
+end
+
+class TC_Select_Options < Test::Unit::TestCase
+    include Watir
+    
+    def setup()
+        $ie.goto($htmlRoot + "select_tealeaf.html")
+    end
+    
+    def test_options_text
+        $ie.select_list(:name, 'op_numhits').option(:text, '>=').select
+        assert($ie.select_list(:name, 'op_numhits').option(:text, '>=').selected)
+    end
+end
+