watir 1.4.1

data/unittests/form_test.rb

@@ -0,0 +1,279 @@
+# feature tests for Forms
+# revision: $Revision: 1.29 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Forms2 < Test::Unit::TestCase
+    def setup()
+        $ie.goto($htmlRoot + "forms2.html")
+    end
+    
+    def test_Form_Exists
+        assert($ie.form(:name, "test2").exists?)   
+        assert_false($ie.form(:name, "missing").exists?)   
+        
+        assert($ie.form("test2").exists?)   
+        assert_false($ie.form( "missing").exists?)   
+        
+        assert($ie.form(:index,  1).exists?)   
+        assert_false($ie.form(:index, 88).exists?)   
+        
+        assert($ie.form(:method, "get").exists?)   
+        assert_false($ie.form(:method, "missing").exists?)   
+        
+        assert($ie.form(:action, "pass.html").exists?)   
+        assert_false($ie.form(:action, "missing").exists?)   
+    end
+    
+    def test_ButtonInForm
+        assert($ie.form(:name ,"test2").button(:caption , "Submit").exists?)
+    end     
+end
+
+require 'unittests/iostring'
+class TC_Form_Display < Test::Unit::TestCase
+    include MockStdoutTestCase                
+    def test_showforms
+        $ie.goto($htmlRoot + "forms2.html")
+        $stdout = @mockout
+        $ie.showForms
+        assert_equal(<<END_OF_MESSAGE, @mockout)
+There are 4 forms
+Form name: 
+       id: 
+   method: get
+   action: pass.html
+Form name: test2
+       id: 
+   method: get
+   action: pass2.html
+Form name: test3
+       id: 
+   method: get
+   action: pass2.html
+Form name: test2
+       id: 
+   method: get
+   action: pass2.html
+END_OF_MESSAGE
+    end
+end
+
+class TC_Forms3 < Test::Unit::TestCase
+    def setup()
+        $ie.goto($htmlRoot + "forms3.html")
+    end
+    
+    def test_Form_Exists
+        assert($ie.form(:name, "test2").exists?)   
+        assert_false($ie.form(:name, "missing").exists?)   
+        
+        assert($ie.form("test2").exists?)   
+        assert_false($ie.form( "missing").exists?)   
+        
+        assert($ie.form(:index,  1).exists?)   
+        assert_false($ie.form(:index, 88).exists?)   
+        
+        assert($ie.form(:method, "get").exists?)   
+        assert_false($ie.form(:method, "missing").exists?)   
+        
+        assert($ie.form(:action, "pass.html").exists?)   
+        assert_false($ie.form(:action, "missing").exists?)   
+    end
+
+    def test_getObject_when_non_watir_object_before_it
+        # test for bug reported by Scott Pack,  http://rubyforge.org/pipermail/wtr-general/2005-June/002223.html
+        assert_equal("check1" , $ie.checkbox(:index,1).name )
+    end
+    
+    def test_showforms # add verification of output!
+        $ie.showForms
+    end
+
+    def test_reset
+                
+        $ie.text_field(:id, "t1").set("Hello, reset test!")
+        assert_equal($ie.text_field(:id, 't1').getContents, 'Hello, reset test!')
+        
+        $ie.button(:caption, "Reset").click
+        assert_equal("" , $ie.text_field(:id, 't1').getContents )
+        
+        # also verify it works under a form
+        $ie.text_field(:id, "t1").set("reset test - using a form")
+        assert_equal($ie.text_field(:id, 't1').getContents, 'reset test - using a form')
+        
+        $ie.form(:index,2).button(:index,2).click
+        assert_equal("" , $ie.text_field(:id, 't1').getContents )
+
+        # also verify it works under a form, this time using the :id attribute
+        $ie.text_field(:id, "t1").set("reset test - using a form")
+        assert_equal($ie.text_field(:id, 't1').getContents, 'reset test - using a form')
+        
+        $ie.form(:index,2).button(:id,'reset_button').click
+        assert_equal("" , $ie.text_field(:id, 't1').getContents )
+
+    end
+
+
+
+    def test_flash1
+        $ie.form(:name ,"test2").button(:caption , "Submit").flash
+    end 
+    
+    def test_objects_with_same_name
+        assert_equal('textfield' ,$ie.text_field( :name , 'g1').value )
+        assert_equal('button'    ,$ie.button(    :name , 'g1').value )
+        assert_equal('1'         ,$ie.checkbox(  :name , 'g1').value )
+        assert_equal('2'         ,$ie.radio(     :name , 'g1').value )
+        
+        assert_equal('textfield_id' ,$ie.text_field( :id , 'g1').value )
+        assert_equal('button_id'    ,$ie.button(    :id , 'g1').value )
+        assert_equal('1_id'         ,$ie.checkbox(  :id , 'g1').value )
+        assert_equal('2_id'         ,$ie.radio(     :id , 'g1').value )
+    end
+    
+    def test_flash2
+        $ie.button(:value, 'Click Me').flash
+        assert_raises( Watir::UnknownObjectException ) { $ie.text_field( :name , 'g177').flash }
+    end
+    
+    def test_showElements # add verification!
+        $ie.showAllObjects
+    end
+    
+    def test_showText
+        puts $ie.getText
+    end
+    
+    def test_showHTML
+        puts $ie.getHTML
+    end
+    
+    def test_submitWithImage
+        assert( $ie.button(:alt , "submit").exists? )
+        assert( $ie.button(:alt , /sub/).exists? )
+        
+        assert_false( $ie.button(:alt , "missing").exists? )
+        assert_false( $ie.button(:alt , /missing/).exists? )
+        
+        #assert( $ie.button(:src , "file:///#{$myDir}/html/images/button.jpg").exists? )    # this doesnt work for everybody
+        assert( $ie.button(:src , /button/).exists? )
+        
+        assert_false( $ie.button(:src , "missing").exists? )
+        assert_false( $ie.button(:src , /missing/).exists? )
+        assert_nothing_raised("raised an exception when it shouldnt have") { $ie.button(:src , /button/).click }
+        
+        assert( $ie.contains_text("PASS") )
+    end
+end
+
+class TC_Forms4 < Test::Unit::TestCase
+    def setup()
+        $ie.goto($htmlRoot + "forms4.html")
+    end
+    
+    def test_find_text_field_ignoring_form
+        assert_equal($ie.text_field(:name, 'name').getContents, 'apple') # should it raise a not-unique error instead?
+    end
+    
+    def test_correct_form_field_is_found_using_form_name
+        assert_equal($ie.form(:name, 'apple_form').text_field(:name, 'name').getContents, 'apple')
+        assert_equal($ie.form(:name, 'banana_form').text_field(:name, 'name').getContents, 'banana')
+    end
+    
+    def test_correct_form_field_is_found_using_form_index
+        assert_equal($ie.form(:index, 1).text_field(:name, 'name').getContents, 'apple')
+        assert_equal($ie.form(:index, 2).text_field(:name, 'name').getContents, 'banana')
+    end
+    
+    def test_using_text_on_form
+        $ie.form(:name, 'apple_form').text_field(:name, 'name').set('strudel')
+        assert_equal($ie.form(:index, 1).text_field(:name, 'name').getContents, 'strudel')
+    end 
+    
+    def test_submit
+        $ie.form(:name, 'apple_form').submit
+        assert( $ie.contains_text("PASS") )
+    end
+end
+
+class TC_Hidden_Fields < Test::Unit::TestCase
+    def setup
+        $ie.goto($htmlRoot + "forms3.html")
+    end
+    
+    def test_hidden
+        
+        # test using index
+        assert( $ie.hidden(:index,1).exists? )
+        assert( $ie.hidden(:index,2).exists? )
+        assert_false( $ie.hidden(:index,3).exists? )
+        
+        $ie.hidden(:index,1).value = 44
+        $ie.hidden(:index,2).value = 55
+        
+        $ie.button(:value , "Show Hidden").click
+        
+        assert_equal("44"  , $ie.text_field(:name , "vis1").value ) 
+        assert_equal("55"  , $ie.text_field(:name , "vis2").value )
+                        
+        # test using name and ID
+        assert( $ie.hidden(:name ,"hid1").exists? )
+        assert( $ie.hidden(:id,"hidden_1").exists? )
+        assert_false( $ie.hidden(:name,"hidden_44").exists? )
+        assert_false( $ie.hidden(:id,"hidden_55").exists? )
+        
+        $ie.hidden(:name ,"hid1").value = 444
+        $ie.hidden(:id,"hidden_1").value = 555
+        
+        $ie.button(:value , "Show Hidden").click
+        
+        assert_equal("444"  , $ie.text_field(:name , "vis1").value ) 
+        assert_equal("555"  , $ie.text_field(:name ,"vis2").value )
+                
+        #  test the over-ridden append method
+        $ie.hidden(:name ,"hid1").append("a")
+        $ie.button(:value , "Show Hidden").click
+        assert_equal("444a"  , $ie.text_field(:name , "vis1").value ) 
+        assert_equal("555"  , $ie.text_field(:name ,"vis2").value )
+        
+        #  test the over-ridden clear method
+        $ie.hidden(:name ,"hid1").clear
+        $ie.button(:value , "Show Hidden").click
+        assert_equal(""  , $ie.text_field(:name , "vis1").value ) 
+        assert_equal("555"  , $ie.text_field(:name ,"vis2").value )
+        
+        # test using a form
+        assert( $ie.form(:name , "has_a_hidden").hidden(:name ,"hid1").exists? )
+        assert( $ie.form(:name , "has_a_hidden").hidden(:id,"hidden_1").exists? )
+        assert_false( $ie.form(:name , "has_a_hidden").hidden(:name,"hidden_44").exists? )
+        assert_false( $ie.form(:name , "has_a_hidden").hidden(:id,"hidden_55").exists? )
+        
+        $ie.form(:name , "has_a_hidden").hidden(:name ,"hid1").value = 222
+        $ie.form(:name , "has_a_hidden").hidden(:id,"hidden_1").value = 333
+        
+        $ie.button(:value , "Show Hidden").click
+        
+        assert_equal("222"  , $ie.text_field(:name , "vis1").value ) 
+        assert_equal("333"  , $ie.text_field(:name ,"vis2").value )
+        
+        # iterators
+        assert_equal(2, $ie.hiddens.length)
+        count =1
+        $ie.hiddens.each do |h|
+            case count
+            when 1
+                assert_equal( "", h.id)
+                assert_equal( "hid1", h.name)
+            when 2
+                assert_equal( "", h.name)
+                assert_equal( "hidden_1", h.id)
+            end
+            count+=1
+        end
+        
+        assert_equal("hid1" , $ie.hiddens[1].name )
+        assert_equal("hidden_1" , $ie.hiddens[2].id )
+    end
+end

data/unittests/frame_test.rb

@@ -0,0 +1,141 @@
+# feature tests for Frames
+# revision: $Revision: 1.22.2.1 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Frames < Test::Unit::TestCase
+    include Watir
+
+    def setup()
+        $ie.goto($htmlRoot + "frame_buttons.html")
+    end
+
+    def test_frame_no_what
+        assert_raises(UnknownFrameException) { $ie.frame("missingFrame").button(:id, "b2").enabled?  }  
+        assert_raises(UnknownObjectException) { $ie.frame("buttonFrame2").button(:id, "b2").enabled?  }  
+        assert($ie.frame("buttonFrame").button(:id, "b2").enabled?)   
+        assert_false($ie.frame("buttonFrame").button(:caption, "Disabled Button").enabled?)
+    end
+
+    def test_frame_using_name
+        assert_raises(UnknownFrameException) { $ie.frame(:name , "missingFrame").button(:id, "b2").enabled?  }  
+        assert_raises(UnknownObjectException) { $ie.frame(:name, "buttonFrame2").button(:id, "b2").enabled?  }  
+        assert($ie.frame(:name, "buttonFrame").button(:id, "b2").enabled?)   
+        assert_false($ie.frame(:name , "buttonFrame").button(:caption, "Disabled Button").enabled?)
+    end
+    
+    def test_frame_using_name_and_regexp
+        assert_raises(UnknownFrameException) { $ie.frame(:name , /missingFrame/).button(:id, "b2").enabled?  }  
+        assert($ie.frame(:name, /button/).button(:id, "b2").enabled?)   
+    end
+    
+    def test_frame_using_index
+        assert_raises(UnknownFrameException) { $ie.frame(:index, 8).button(:id, "b2").enabled?  }  
+        assert_raises(UnknownObjectException) { $ie.frame(:index, 2).button(:id, "b2").enabled?  }  
+        assert($ie.frame(:index, 1 ).button(:id, "b2").enabled?)   
+        assert_false($ie.frame(:index, 1).button(:caption, "Disabled Button").enabled?)
+    end
+
+    def test_frame_with_invalid_attribute
+        assert_raises(ArgumentError) { $ie.frame(:blah, 'no_such_thing').button(:id, "b2").enabled?  }  
+    end
+
+    def test_preset_frame
+        # with ruby's instance_eval, we are able to use the same frame for several actions
+        results = $ie.frame("buttonFrame").instance_eval do [
+            button(:id, "b2").enabled?, 
+            button(:caption, "Disabled Button").enabled?
+            ]
+        end
+        assert_equal([true, false], results)
+    end
+
+end
+
+class TC_Frames2 < Test::Unit::TestCase
+    include Watir
+    
+    def setup()
+        $ie.goto($htmlRoot + "frame_multi.html")
+    end
+
+    def test_frame_with_no_name
+        assert_raises(UnknownFrameException) { $ie.frame(:name , "missingFrame").button(:id, "b2").enabled?  }  
+    end            
+    
+    def test_frame_by_id
+        assert_raises(UnknownFrameException) { $ie.frame(:id , "missingFrame").button(:id, "b2").enabled?  }  
+    end
+end
+
+class TC_NestedFrames < Test::Unit::TestCase
+    include Watir
+   
+    def setup()
+        $ie.goto($htmlRoot + "nestedFrames.html")
+    end
+
+    def test_frame
+        assert_raises(UnknownFrameException) { $ie.frame("missingFrame").button(:id, "b2").enabled?  }  
+        assert_raises(UnknownFrameException) { $ie.frame("nestedFrame").frame("subFrame").button(:id, "b2").enabled?  }  
+        assert($ie.frame("nestedFrame").frame("senderFrame").button(:name, "sendIt").enabled?)   
+        $ie.frame("nestedFrame").frame("senderFrame").text_field(:index, "1").set("Hello")
+        $ie.frame("nestedFrame").frame("senderFrame").button(:name, "sendIt").click()
+        assert($ie.frame("nestedFrame").frame("receiverFrame").text_field(:name, "receiverText").verify_contains("Hello"))   
+    end
+
+end
+
+class TC_IFrames < Test::Unit::TestCase
+    include Watir
+
+    def setup()
+        $ie.goto($htmlRoot + "iframeTest.html")
+    end
+
+    def test_Iframe
+       $ie.frame("senderFrame").text_field(:name , "textToSend").set( "Hello World")
+       $ie.frame("senderFrame").button(:index, 1).click
+       assert( $ie.frame("receiverFrame").text_field(:name , "receiverText").verify_contains("Hello World") )
+    end
+
+end   
+
+require 'unittests/iostring'
+class TC_show_frames < Test::Unit::TestCase
+    include MockStdoutTestCase                
+    
+    def capture_and_compare(page, expected)
+        $ie.goto($htmlRoot + page)
+        $stdout = @mockout
+        $ie.showFrames
+        assert_equal(expected, @mockout)
+    end
+      
+    def test_show_nested_frames
+        capture_and_compare("nestedFrames.html", <<END_OF_MESSAGE)
+there are 2 frames
+frame  index: 1 name: nestedFrame
+frame  index: 2 name: nestedFrame2
+END_OF_MESSAGE
+    end
+
+    def test_button_frames
+        capture_and_compare("frame_buttons.html", <<END_OF_MESSAGE)
+there are 2 frames
+frame  index: 1 name: buttonFrame
+frame  index: 2 name: buttonFrame2
+END_OF_MESSAGE
+    end
+
+    def test_iframes
+        capture_and_compare("iframeTest.html", <<END_OF_MESSAGE)
+there are 2 frames
+frame  index: 1 name: senderFrame
+frame  index: 2 name: receiverFrame
+END_OF_MESSAGE
+    end
+
+end
+

data/unittests/html/blankpage.html

@@ -0,0 +1,12 @@
+<html>
+<head>
+<title>
+Test page for buttons
+</title>
+</head>
+<body>
+CVS Revision: $Revision $
+<br>
+Blank page to fill in the frames
+</body>
+</html>

data/unittests/html/buttons1.html

@@ -0,0 +1,40 @@
+<html>
+<head>
+<title>
+Test page for buttons
+</title>
+</head>
+<body>
+CVS Revision: $Revision $
+<br>
+<br>
+<table>
+<tr>
+<td>
+<form name = test1 method = get action = pass.html>
+
+<input type = button name = b1 id = b2 value = "Click Me" onClick="javascript:document.location='pass.html';" title = "this is button1">
+<br><input type = button name = b4 id=b5 value = "Disabled Button" onClick="javascript:document.location='fail.html';" disabled>
+
+</form>
+<td> The top button is for testing buttons with names
+<br> The second button is used for testing disabled buttons
+
+
+<tr>
+<td>
+<form name = test2 method = get action = pass2.html>
+<br><input type = submit value=Submit>
+</form>
+<td> This button is a submit ( the others are buttons)
+
+<tr>
+<td>
+<form name = test3 method = get action = pass3.html>
+<br><input type = image src=images/button.jpg name =sub3>
+</form>
+<td> This button is an image. It should behave the same as a submit
+
+
+
+</html>