watir 1.4.1 → 7.3.0

data/unittests/non_core_tests.rb

@@ -1,9 +0,0 @@
-TOPDIR = File.join(File.dirname(__FILE__), '..')
-$LOAD_PATH.unshift TOPDIR
-
-require 'unittests/setup.rb'
-
-Dir.chdir TOPDIR
-$non_core_tests.each {|x| require x}
-
-

data/unittests/pagecontainstext_test.rb

@@ -1,49 +0,0 @@
-# feature tests for IE::contains_text
-# revision: $Revision: 1.3 $
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
-require 'unittests/setup'
-
-class TC_contains_text < Test::Unit::TestCase
-    include Watir
-
-    def setup
-        $ie.goto($htmlRoot + "textsearch.html")
-    end        
-    
-    def test_text_found
-        assert($ie.contains_text('slings and arrows of outrageous fortune'))
-    end
-
-    def test_text_not_found
-        assert_false($ie.contains_text('So are they all, all honourable men'))
-    end
-    
-    def test_regexp_found
-        assert($ie.contains_text(/bodkin.*fardels/))
-    end
-    
-    def test_regexp_not_found
-        assert_false($ie.contains_text(/winding.*watch.*wit/))
-    end
-                
-    def test_match_regexp_found
-    	$~ = $ie.contains_text(/Messages ([0-9]+)/)
-        assert_equal('42', $1)
-    end
-
-    def test_bad_search_argument
-        assert_raises(ArgumentError) do
-            $ie.contains_text()
-        end
-        assert_raises(MissingWayOfFindingObjectException) do
-            $ie.contains_text(nil)
-        end
-        assert_raises(MissingWayOfFindingObjectException) do
-            $ie.contains_text(42)
-        end
-    end
-                        
-end
-
-    

data/unittests/popups_test.rb

@@ -1,44 +0,0 @@
-# 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

@@ -1,164 +0,0 @@
-# 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

@@ -1,53 +0,0 @@
-# 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

@@ -1,197 +0,0 @@
-# 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
-

data/unittests/send_keys_test.rb

@@ -1,29 +0,0 @@
-# feature tests for IE#send_keys
-# revision: $Revision: 1.2 $
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
-require 'unittests/setup'
-
-class TC_Fields < Test::Unit::TestCase
-    include Watir
-    
-    def setup()
-        $ie.goto($htmlRoot + "textfields1.html")
-    end
-    
-    def test_tabbing
-        $ie.text_field(:name, 'text1').focus
-        $ie.send_keys('{tab}')
-        $ie.send_keys('Scooby')
-        assert('Scooby', $ie.text_field(:name, 'beforetest').value)
-    end
-    
-    def test_enter
-        $ie.text_field(:name, 'text1').focus
-        $ie.send_keys('{tab}{tab}{tab}{tab}')
-        $ie.send_keys('Dooby{enter}')
-        assert($ie.contains_text('PASS'))
-    end
-    
-end
- 

data/unittests/setup.rb

@@ -1,47 +0,0 @@
-END {$ie.close if $ie} # close ie at completion of the tests
-
-# libraries used by feature tests
-require 'watir'
-require 'test/unit'
-require 'test/unit/ui/console/testrunner'
-require 'watir/testUnitAddons'
-
-topdir = File.join(File.dirname(__FILE__), '..')
-Dir.chdir topdir do
-  $all_tests = Dir["unittests/*_test.rb"]
-end
-
-$non_core_tests = 
-    ['popups', # has problems when run in a suite (is ok when run alone); 
-               # must be visible
-               # will be revised to use autoit 
-               # takes 15 seconds to run
-     'images', # failing tests; also assumes working dir is unittests
-     'screen_capture', # is always visible; takes 25 secons
-     'filefield', # is always visible; takes 40 seconds 
-     'jscript',
-     'js_events', # is always visible
-     'minmax', # becomes visible
-     'send_keys' # uses autoit
-    ].collect {|x| "unittests/#{x}_test.rb"}
-
-$core_tests = $all_tests - $non_core_tests
-
-def start_ie_with_logger
-  $ie = Watir::IE.new()
-#  $ie.logger = Watir::WatirLogger.new( 'debug.txt', 4, 10000 )
-  $ie.set_fast_speed
-end
-
-def set_local_dir
-  $myDir = File.expand_path(File.dirname(__FILE__))
-  $myDir.sub!( %r{/cygdrive/(\w)/}, '\1:/' ) # convert from cygwin to dos
-  # if you run the unit tests form a local file system use this line
-  $htmlRoot =  "file://#{$myDir}/html/" 
-  # if you run the unit tests from a web server use this line
-  #   $htmlRoot =  "http://localhost:8080/watir/html/"
-end
-
-start_ie_with_logger
-set_local_dir
-