watir 1.4.1

data/unittests/checkbox_test.rb

@@ -0,0 +1,149 @@
+# feature tests for Check Boxes
+# revision: $Revision: 1.30 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_CheckBox < Test::Unit::TestCase
+    include Watir
+
+    def setup()
+        $ie.goto($htmlRoot + "checkboxes1.html")
+    end
+
+    def test_checkbox_properties
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").id   }  
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").name   }  
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").disabled   }  
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").type   }  
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").value   }  
+
+       assert_equal("box1"  , $ie.checkbox(:index, 1).name  ) 
+       assert_equal(""  , $ie.checkbox(:index, 1).id  ) 
+       assert_equal("checkbox"  , $ie.checkbox(:index, 1).type  ) 
+       assert_equal("on"  , $ie.checkbox(:index, 1).value  ) 
+       assert_equal(false  , $ie.checkbox(:index, 1).disabled  ) 
+
+       assert_equal("1" , $ie.checkbox(:name,"box4").value )
+       assert_equal("3" , $ie.checkbox(:name,"box4" , 3).value )
+       assert_equal("checkbox" , $ie.checkbox(:name,"box4" , 3).type )
+       assert_equal(false , $ie.checkbox(:name,"box4" , 3).disabled )
+       assert_equal("" , $ie.checkbox(:name,"box4" , 3).id )
+
+       assert_equal("box4-value5" , $ie.checkbox(:name,"box4" , 5).title)
+       assert_equal("" , $ie.checkbox(:name,"box4" , 4).title)
+    end
+
+    def test_onClick
+       assert_false($ie.button(:value , "foo").enabled?)
+       $ie.checkBox(:name, "box5").set
+       assert($ie.button(:value , "foo").enabled?)
+
+       $ie.checkBox(:name, "box5").clear
+       assert_false($ie.button(:value , "foo").enabled?)
+
+       $ie.checkBox(:name, "box5").clear
+       assert_false($ie.button(:value , "foo").enabled?)
+    end
+
+    def test_CheckBox_Exists
+       assert($ie.checkBox(:name, "box1").exists?)   
+       assert_false($ie.checkBox(:name, "missing").exists?)   
+
+       assert($ie.checkbox(:name, "box4" , 1).exists?)   
+       assert_false($ie.checkbox(:name, "box4" , 22).exists?)   
+    end
+
+    def test_checkbox_Enabled
+       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").enabled? }  
+       assert_raises(UnknownObjectException) { $ie.checkbox(:id, "noName").enabled? }  
+       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "box4" , 6).enabled? }  
+
+       assert($ie.checkbox(:name, "box1").enabled?)   
+       assert_false($ie.checkbox(:name, "box2").enabled?)   
+
+       assert($ie.checkbox(:name, "box4", 4).enabled?)   
+       assert_false($ie.checkbox(:name, "box4" , 5 ).enabled?)   
+    end
+
+    def test_checkbox_isSet
+       assert_raises(UnknownObjectException ) { $ie.checkbox(:name, "noName").isSet? }  
+
+       assert_false($ie.checkbox(:name, "box1").isSet?)   
+       assert_false($ie.checkbox(:name, "box2").isSet?)   
+       assert($ie.checkbox(:name, "box3").isSet?)   
+
+       assert_false($ie.checkbox(:name, "box4" , 2 ).isSet?)   
+       assert($ie.checkbox(:name, "box4" , 1 ).isSet?)   
+    end
+
+    def test_checkbox_clear
+       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").clear }  
+       $ie.checkbox(:name, "box1").clear
+       assert_false($ie.checkbox(:name, "box1").isSet?)   
+
+       assert_raises(ObjectDisabledException) { $ie.checkbox(:name, "box2").clear } 
+       assert_false($ie.checkbox(:name, "box2").isSet?)   
+
+       $ie.checkbox(:name, "box3").clear
+       assert_false($ie.checkbox(:name, "box3").isSet?)   
+
+       $ie.checkbox(:name, "box4" , 1).clear
+       assert_false($ie.checkbox(:name, "box4" , 1).isSet?)   
+    end
+
+    def test_checkbox_getState
+       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").getState }  
+       assert_equal( false , $ie.checkbox(:name, "box1").getState )   
+       assert_equal( true , $ie.checkbox(:name, "box3").getState)   
+
+       # checkboxes that have the same name but different values
+       assert_equal( false , $ie.checkbox(:name, "box4" , 2).getState )   
+       assert_equal( true , $ie.checkbox(:name, "box4" , 1).getState)   
+    end
+
+    def test_checkbox_set
+       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").set }  
+       $ie.checkbox(:name, "box1").set
+       assert($ie.checkbox(:name, "box1").isSet?)   
+
+       assert_raises(ObjectDisabledException) { $ie.checkbox(:name, "box2").set }  
+
+       $ie.checkbox(:name, "box3").set
+       assert($ie.checkbox(:name, "box3").isSet?)   
+
+       # checkboxes that have the same name but different values
+       $ie.checkbox(:name, "box4" , 3).set
+       assert($ie.checkbox(:name, "box4" , 3).isSet?)   
+
+       # test set using the optinal true/false
+       # assumes the checkbox is already checked
+       $ie.checkbox(:name, "box1").set( false )
+       assert_false($ie.checkbox(:name, "box1").isSet?)   
+
+       $ie.checkbox(:name, "box1").set( true )
+       assert($ie.checkbox(:name, "box1").isSet?)   
+
+
+
+
+    end
+
+    def test_checkbox_iterator
+
+        assert_equal(11, $ie.checkboxes.length)
+        assert_equal("box1" , $ie.checkboxes[1].name )
+
+        index=1
+        $ie.checkboxes.each do |c|
+            assert_equal( $ie.checkbox(:index, index).name , c.name )
+            assert_equal( $ie.checkbox(:index, index).id, c.id )
+            assert_equal( $ie.checkbox(:index, index).value, c.value )
+            index+=1
+        end
+        assert_equal(index-1, $ie.checkboxes.length)
+ 
+    end
+
+
+end

data/unittests/core_tests.rb

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

data/unittests/css_test.rb

@@ -0,0 +1,60 @@
+# feature tests for css
+# revision: $Revision: 1.14.4.1 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_CSS < Test::Unit::TestCase
+    include Watir
+
+    def divTester( message )
+
+       divs = $ie.getIE.document.getElementsByTagName("DIV")
+       puts "Found #{divs.length} div tags"
+       divs.each do |d|
+           puts "Checking div #{d.id}"
+           puts "div #{d.invoke("id") } class is #{d.invoke("className")  	}"
+       end
+    end
+
+    def isMessageDisplayed(message)
+
+       s = false
+       divs = $ie.getIE.document.getElementsByTagName("DIV")
+       #puts "Found #{divs.length} div tags"
+       divs.each do |d|
+           #puts "----Checking div #{d.id} innertext is ( #{d.innerText}  )"
+          
+           if d.innerText.to_s.downcase.match( /#{message}/i )
+
+               #puts "div #{d.invoke("id") } class is #{d.invoke("className")  	}"
+               if d.invoke("className").to_s.downcase.match(/show/i)
+                   #puts "message is shown!!!"
+                   s = true
+               end
+
+           end
+       end
+
+       #puts "Not Shown " if s== false
+       return s
+    end
+
+    def gotoCSSPage()
+        $ie.goto($htmlRoot + "cssTest.html")
+    end
+
+    def test_SuccessMessage
+        gotoCSSPage()
+        $ie.button( :caption , "Success").click
+
+        #isMessageDisplayed( "Success" )
+        #divTester( "Success" )
+        assert( isMessageDisplayed("Success") )
+
+        $ie.button( :caption , "Failure").click
+
+        assert_false(isMessageDisplayed("Success") )
+    end
+end
+

data/unittests/div_test.rb

@@ -0,0 +1,179 @@
+# feature tests for Divs, Spans and P's
+# revision: $Revision: 1.15 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Divs < Test::Unit::TestCase
+    include Watir
+    
+    def setup()
+        $ie.goto($htmlRoot + "div.html")
+    end
+    
+    def test_divs
+        assert_raises(UnknownObjectException) {$ie.div(:id , "div77").click }
+        assert_raises(UnknownObjectException) {$ie.div(:title , "div77").click }
+        
+        assert($ie.text_field(:name, "text1").verify_contains("0") )  
+        $ie.div(:id , "div3").click
+        assert($ie.text_field(:name, "text1").verify_contains("1") )  
+        $ie.div(:id , "div4").click
+        assert($ie.text_field(:name, "text1").verify_contains("0") )  
+    end
+    
+    def test_div_properties
+        assert_raises(UnknownObjectException) {$ie.div(:id , "div77").text }
+        assert_raises(UnknownObjectException) {$ie.div(:title , "div77").text }
+        
+        assert_equal("This div has an onClick that increments text1", 
+            $ie.div(:id , "div3").text.strip )
+        assert_equal("This text is in a div with an id of div1 and title of test1",   
+            $ie.div(:title , "Test1").text.strip )
+        
+        assert_raises(UnknownObjectException) {$ie.div(:id , "div77").class_name }
+        assert_equal("blueText" ,   $ie.div(:id , "div2").class_name )
+        assert_equal("" ,   $ie.div(:id , "div1").class_name )
+        
+        assert_raises(UnknownObjectException) {$ie.div(:index , 44).class_name }
+        assert_equal("div1" ,      $ie.div(:index , 1).id )
+        assert_equal("" ,          $ie.div(:index , 1).class_name )
+        assert_equal("blueText" ,  $ie.div(:index , 2).class_name )
+        assert_equal("Div" ,       $ie.div(:index , 2).type)
+        assert_equal(""    ,       $ie.div(:index , 2).value)
+        assert_equal(false ,       $ie.div(:index , 2).disabled)
+        assert_equal(""    ,       $ie.div(:index , 2).name)
+        assert_equal("div2",       $ie.div(:index , 2).id)
+    end
+    
+    def test_div_iterator
+        assert_equal( 7 , $ie.divs.length)
+        assert_equal( "div1" , $ie.divs[1].id )
+        
+        index =1
+        $ie.divs.each do |s|
+            # puts "each - div= " + s.to_s
+            assert_equal($ie.div(:index, index ).name , s.name )
+            assert_equal($ie.div(:index, index ).id , s.id )
+            assert_equal($ie.div(:index, index ).class_name , s.class_name )
+            index +=1
+        end
+        assert_equal(index-1, $ie.divs.length)   # -1 as we add 1 at the end of the loop
+    end
+    
+    def test_objects_in_div
+        assert($ie.div(:id, 'buttons1').button(:index,1).exists? )
+        assert_false($ie.div(:id, 'buttons1').button(:index,3).exists? )
+        assert($ie.div(:id, 'buttons1').button(:name,'b1').exists? )
+        
+        assert($ie.div(:id, 'buttons2').button(:index,1).exists? )
+        assert($ie.div(:id, 'buttons2').button(:index,2).exists? )
+        assert_false($ie.div(:id, 'buttons1').button(:index,3).exists? )
+        
+        $ie.div(:id, 'buttons1').button(:index,1).click
+        
+        assert_equal( 'button1' ,   $ie.div(:id , 'text_fields1').text_field(:index,1).value)
+        
+        assert_equal( 3 , $ie.div(:id , 'text_fields1').text_fields.length )
+    end
+    
+    #---- Span Tests ---
+    def test_spans
+        assert_raises(UnknownObjectException) {$ie.span(:id , "span77").click }
+        assert_raises(UnknownObjectException) {$ie.span(:title , "span77").click }
+        
+        assert($ie.text_field(:name, "text2").verify_contains("0") )  
+        $ie.span(:id , "span3").click
+        assert($ie.text_field(:name, "text2").verify_contains("1") )  
+        
+        $ie.span(:id , "span4").click
+        assert($ie.text_field(:name, "text2").verify_contains("0") )  
+
+    end
+
+    def test_span_properties
+        assert_raises(UnknownObjectException) {$ie.span(:id , "span77").text }
+        assert_raises(UnknownObjectException) {$ie.span(:title , "span77").text }
+        
+        assert_equal("This span has an onClick that increments text2" ,   $ie.span(:id , "span3").text.strip )
+        assert_equal("This text is in a span with an id of span1 and title of test2" ,   $ie.span(:title , "Test2").text.strip )
+        
+        assert_raises(UnknownObjectException) {$ie.span(:id , "span77").class_name }
+        assert_equal("blueText" ,   $ie.span(:id , "span2").class_name )
+        assert_equal("" ,   $ie.span(:id , "span1").class_name )
+        
+        assert_raises(UnknownObjectException) {$ie.span(:index , 44).class_name }
+        assert_equal("span1" ,     $ie.span(:index , 1).id )
+        assert_equal("" ,          $ie.span(:index , 1).class_name )
+        assert_equal("blueText" ,  $ie.span(:index , 2).class_name )
+        assert_equal("Span" ,      $ie.span(:index , 2).type)
+        assert_equal(""    ,       $ie.span(:index , 2).value)
+        assert_equal(false ,       $ie.span(:index , 2).disabled)
+        assert_equal(""    ,       $ie.span(:index , 2).name)
+        assert_equal("span2",      $ie.span(:index , 2).id)
+    end
+    
+    def test_span_iterator
+        assert_equal( 7 , $ie.spans.length)
+        assert_equal( "span1" , $ie.spans[1].id )
+        
+        index = 1
+        $ie.spans.each do |s|
+            # puts "each - span = " + s.to_s
+            assert_equal($ie.span(:index, index ).name , s.name )
+            assert_equal($ie.span(:index, index ).id , s.id )
+            assert_equal($ie.span(:index, index ).class_name , s.class_name )
+            index +=1
+        end
+        assert_equal(index-1, $ie.spans.length)   # -1 as we add 1 at the end of the loop
+    end
+    
+    def test_objects_in_span
+        assert($ie.span(:id, 'buttons1').button(:index,1).exists? )
+        assert_false($ie.span(:id, 'buttons1').button(:index,3).exists? )
+        assert($ie.span(:id, 'buttons1').button(:name,'b1').exists? )
+        
+        assert($ie.span(:id, 'buttons2').button(:index,1).exists? )
+        assert($ie.span(:id, 'buttons2').button(:index,2).exists? )
+        assert_false($ie.span(:id, 'buttons1').button(:index,3).exists? )
+        
+        $ie.span(:id, 'buttons1').button(:index,1).click
+        
+        assert_equal( 'button1' ,   $ie.span(:id , 'text_fields1').text_field(:index,1).value)
+        
+        assert_equal( 3 , $ie.span(:id , 'text_fields1').text_fields.length )
+    end
+    
+    def test_p
+        assert($ie.p(:id, 'number1').exists?)
+        assert($ie.p(:index, 3).exists?)
+        assert($ie.p(:title, 'test_3').exists?)
+        
+        assert_false($ie.p(:id, 'missing').exists?)
+        assert_false($ie.p(:index, 8).exists?)
+        assert_false($ie.p(:title, 'test_55').exists?)
+        
+        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').class_name }
+        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').text }
+        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').title }
+        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').to_s }
+        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').disabled }
+        
+        assert_equal(  'redText' , $ie.p(:index,1).class_name)
+        assert_equal(  'P_tag_1' , $ie.p(:index,1).title)
+        assert_equal(  'This text is in a p with an id of number2' , $ie.p(:index,2).text)
+    end
+    
+    def test_p_iterator
+        assert_equal( 3, $ie.ps.length)
+        assert_equal( 'italicText', $ie.ps[2].class_name)
+        assert_equal( 'number3', $ie.ps[3].id)
+        
+        count=1
+        $ie.ps.each do |p|
+            assert_equal('number'+count.to_s , p.id)
+            count+=1
+        end
+        assert_equal( count-1 ,  $ie.ps.length)
+    end
+end

data/unittests/errorchecker_test.rb

@@ -0,0 +1,29 @@
+# feature tests for Goto
+# revision: $Revision: 1.2 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_error_checker< Test::Unit::TestCase
+    include Watir
+
+    def goto_page(page)
+        $ie.goto($htmlRoot + page)
+    end
+
+    def test_simple_checker
+        button_checker = Proc.new{
+            |ie|  raise RuntimeError, "text 'buttons' was missing"  if !ie.pageContainsText(/buttons/)
+        }
+
+        $ie.add_checker(button_checker )
+        assert_raises( RuntimeError ) { goto_page('forms3.html') }
+        assert_nothing_raised { goto_page('buttons1.html') }
+
+        $ie.disable_checker( button_checker )
+        assert_nothing_raised { goto_page('forms3.html') }
+
+    end
+
+
+end

data/unittests/filefield_test.rb

@@ -0,0 +1,35 @@
+# feature tests for TextArea Fields
+# revision: $Revision: 1.3 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_FileField < Test::Unit::TestCase
+  include Watir
+
+  def gotoPage()
+	$ie.goto($htmlRoot + "fileupload.html")
+  end
+
+  def test_fileField_Exists
+	gotoPage()
+	#test for existance of 4 file area
+	assert($ie.fileField(:name,"file1").exists?)
+	assert($ie.fileField(:id,"file2").exists?)
+	#test for missing 
+	assert_false($ie.fileField(:name, "missing").exists?)   
+	assert_false($ie.fileField(:name,"totallybogus").exists?)
+	#pop one open and put something in it.
+	$ie.fileField(:name,"file1").set($htmlRoot + "fileupload.html")	
+	#click the upload button
+	$ie.button(:name,"upload").click
+
+	assert($ie.contains_text("PASS"))	
+    end
+
+    def test_iterator
+        gotoPage()
+        assert_equal(6, $ie.file_fields.length)
+    end
+
+end