watir 1.4.1

data/unittests/js_events_test.rb

@@ -0,0 +1,77 @@
+# feature tests for JavaScript events
+# revision: $Revision: 1.13 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_JSEvents < Test::Unit::TestCase
+    include Watir
+
+    
+    def gotoJavaScriptEventsPage()
+        $ie.goto($htmlRoot + "javascriptevents.html")
+    end
+
+  
+    def test_Button_disabled
+       gotoJavaScriptEventsPage()
+       assert_false($ie.button(:caption, "Button 1").enabled?) 
+    end
+
+    def test_Button_Enabled
+       gotoJavaScriptEventsPage()    
+     
+       $ie.text_field(:name, "entertext").fire_event("onkeyup")
+       assert($ie.button(:caption, "Button 1").enabled?)   
+     
+    end
+
+    def test_Button_click
+
+       gotoJavaScriptEventsPage()
+       
+       puts "Firing event to make button enabled"
+       $ie.text_field(:name, "entertext").fire_event("onKeyUp")
+       puts "Clicking the button"
+
+       $ie.button(:caption, "Button 1").click
+       assert($ie.contains_text("PASS") )
+    end
+
+#onMouseOver tests
+ #window status
+
+    def test_no_status_bar_exception
+        gotoJavaScriptEventsPage()
+        $ie.link(:text, "New Window No Status Bar").click
+        status_bar_test_win = nil
+        assert_nothing_raised { status_bar_test_win = Watir::IE.attach(:title, "Pass Page") }
+        assert_raises( Watir::NoStatusBarException ) { status_bar_test_win.status }
+        status_bar_test_win.close
+        status_bar_test_win = nil
+
+    end
+
+    
+    def test_page_nostatus
+       gotoJavaScriptEventsPage()
+       assert_false($ie.status == "Here is your status") 
+    end
+  
+    def test_page_status
+       gotoJavaScriptEventsPage()
+       $ie.link(:text, "Check the Status").fire_event("onMouseOver")
+       assert($ie.status, "It worked") 
+    end
+    
+    def test_page_status
+       gotoJavaScriptEventsPage()
+       $ie.link(:text, "Clear the Status").fire_event("onMouseOver")
+       assert($ie.status, "") 
+    end
+ #end of window status
+
+#end of onMouseOver tests
+
+end
+

data/unittests/jscriptExtraAlert.rb

@@ -0,0 +1,6 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+
+require 'watir/WindowHelper'
+
+helper = WindowHelper.new
+helper.push_alert_button()

data/unittests/jscriptExtraConfirmCancel.rb

@@ -0,0 +1,7 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+
+require 'watir/WindowHelper'
+
+
+helper = WindowHelper.new
+helper.push_confirm_button_cancel()

data/unittests/jscriptExtraConfirmOk.rb

@@ -0,0 +1,7 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+
+require 'watir/WindowHelper'
+
+
+helper = WindowHelper.new
+helper.push_confirm_button_ok()

data/unittests/jscriptPushButton.rb

@@ -0,0 +1,5 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'watir'
+
+ie = Watir::IE.attach(:title, 'Alert Test')
+ie.button(:id, 'btnAlert').click

data/unittests/jscript_test.rb

@@ -0,0 +1,57 @@
+# feature tests for AutoIt wrapper
+# revision: $Revision: 1.8 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+require 'watir/WindowHelper'
+
+$mydir = File.expand_path(File.dirname(__FILE__)).gsub('/', '\\')
+
+class TC_JavaScript_Test < Test::Unit::TestCase
+    include Watir
+    @@attach = true
+    @@javascript_page_title	= 'Alert Test'
+    @@javascript_page		= $htmlRoot  + 'JavascriptClick.htm'
+    
+    def setup
+        begin
+            WindowHelper.check_autoit_installed
+        rescue Watir::Exception::WatirException
+            puts "Problem with Autoit - is it installed?."
+            exit
+        rescue
+            puts "There is a Problem with Autoit - is it installed?."
+            exit
+        end
+    end
+
+    def goto_javascript_page()
+        $ie.goto(@@javascript_page)
+    end
+    
+    def check_dialog(extra_file, expected_result, &block)
+        goto_javascript_page()
+        Thread.new { system("rubyw \"#{$mydir}\\#{extra_file}.rb\"") }
+
+        block.call
+        testResult = $ie.text_field(:id, "testResult").value
+        assert_match( expected_result, testResult )  
+    end
+
+    def test_alert_button()
+        check_dialog('jscriptExtraAlert', /Alert OK/){ $ie.button(:id, 'btnAlert').click }
+    end
+    def test_alert_button2()
+        check_dialog('jscriptPushButton', /Alert OK/){ sleep 0.1; WindowHelper.new.push_alert_button }
+    end
+    def test_confirm_button_ok()
+        check_dialog('jscriptExtraConfirmOk', /Confirm OK/){ push_confirm_button }
+    end
+    def test_confirm_button_Cancel()
+        check_dialog('jscriptExtraConfirmCancel', /Confirm Cancel/){push_confirm_button}
+    end
+        
+    def push_confirm_button
+        $ie.button(:id, 'btnInformation').click
+    end
+end

data/unittests/links_test.rb

@@ -0,0 +1,169 @@
+# feature tests for Links
+# revision: $Revision: 1.33 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Links < Test::Unit::TestCase
+    include Watir
+
+    def gotoLinksPage()
+        $ie.goto($htmlRoot + "links1.html")
+    end
+
+    def gotoFrameLinksPage()
+        $ie.goto($htmlRoot + "frame_links.html")
+    end
+
+    def setup()
+        gotoLinksPage()
+    end
+
+    def xtest_new_link_exists
+        assert(exists?{$ie.link(:text, "test1")})   
+        assert(exists?{$ie.link(:text, /TEST/i)})   
+        assert_false(exists?{$ie.link(:text, "missing")})   
+        assert_false(exists?{$ie.link(:text, /miss/)})   
+
+        gotoFrameLinksPage()
+        assert(exists?{$ie.frame("buttonFrame").link(:text, "test1")})   
+        assert_false(exists?{$ie.frame("buttonFrame").link(:text, "missing")})
+        
+        assert_false(exists?{ie.frame("missing").link(:text, "test1")})   
+    end
+    
+    def test_links_in_frames
+        gotoFrameLinksPage()
+
+        assert($ie.frame("buttonFrame").link(:text, "test1").exists?)   
+        assert_false($ie.frame("buttonFrame").link(:text, "missing").exists?)   
+
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.frame("buttonFrame").link(:index, 199).href }  
+        assert_match( /links2/ ,$ie.frame("buttonFrame").link(:index, 1).href )
+
+        count =0
+        $ie.frame("buttonFrame").links.each do |l|
+            count+=1
+        end
+
+        assert_equal( 9 , count)
+    end
+    
+    def test_Link_Exists
+       assert($ie.link(:text, "test1").exists?)   
+       assert($ie.link(:text, /TEST/i).exists?)   
+       assert_false($ie.link(:text, "missing").exists?)   
+       assert_false($ie.link(:text, /miss/).exists?)   
+
+       # this assert we have to build up the path
+       #  this is what it looks like if you do a to_s on the link  file:///C:/watir_bonus/unitTests/html/links1.HTML
+       # but what we get back from $htmlRoot is a mixed case, so its almost impossible for use to test this correctly
+       # assert($ie.link(:url,'file:///C:/watir_bonus/unitTests/html/links1.HTML' ).exists?)   
+
+       assert($ie.link(:url, /link_pass.html/).exists?)   
+       assert_false($ie.link(:url, "alsomissing.html").exists?)   
+
+       assert($ie.link(:id, "link_id").exists?)   
+       assert_false($ie.link(:id, "alsomissing").exists?)   
+
+       assert($ie.link(:id, /_id/).exists?)   
+       assert_false($ie.link(:id, /alsomissing/).exists?)   
+
+       assert($ie.link(:name, "link_name").exists?)   
+       assert_false($ie.link(:name, "alsomissing").exists?)   
+
+       assert($ie.link(:name, /_n/).exists?)   
+       assert_false($ie.link(:name, /missing/).exists?)   
+
+       assert($ie.link(:title, /ti/).exists?)   
+       assert($ie.link(:title, "link_title").exists?)   
+
+       assert_false($ie.link(:title, /missing/).exists?)   
+
+       assert($ie.link(:url, /_pass/).exists?)   
+       assert_false($ie.link(:url, /dont_exist/).exists?)   
+    end
+
+    def test_Link_click
+        $ie.link(:text, "test1").click
+        assert( $ie.contains_text("Links2-Pass") ) 
+
+        gotoLinksPage()
+        $ie.link(:url, /link_pass.html/).click
+        assert( $ie.contains_text("Links3-Pass") ) 
+
+        gotoLinksPage()
+
+        $ie.link(:index, 1).click
+        assert( $ie.contains_text("Links2-Pass") ) 
+
+        gotoLinksPage()
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).click }  
+    end
+
+    def test_link_properties
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).href }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).value}  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).innerText }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).name }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).id }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).disabled }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).type }  
+
+        assert_match( /links2/ ,$ie.link(:index, 1).href )
+        assert_equal( ""      , $ie.link(:index, 1).value)
+        assert_equal( "test1" , $ie.link(:index, 1).innerText )
+        assert_equal( ""      , $ie.link(:index, 1).name )
+        assert_equal( ""      , $ie.link(:index, 1).id )
+        assert_equal( false   , $ie.link(:index, 1).disabled )  
+        assert_equal( "link"  , $ie.link(:index, 1).type )
+
+        assert_equal( "link_id"   , $ie.link(:index, 6).id )
+        assert_equal( "link_name" , $ie.link(:index, 7).name )
+
+        assert_equal( "" , $ie.link(:index, 7).title)
+
+        assert_equal( "link_title" , $ie.link(:index, 8).title)
+    end
+
+    def test_link_iterator
+        assert_equal(9, $ie.links.length )
+        assert_equal("Link Using a name" , $ie.links[7].innerText)
+
+        index = 1
+        $ie.links.each do |link|
+            assert_equal( $ie.link(:index, index).href      , link.href )
+            assert_equal( $ie.link(:index, index).id        , link.id )
+            assert_equal( $ie.link(:index, index).name      , link.name )
+            assert_equal( $ie.link(:index, index).innerText , link.innerText )
+            index+=1
+        end
+    end
+end
+
+require 'unittests/iostring'
+class TC_showlinks < Test::Unit::TestCase
+    include MockStdoutTestCase
+    
+    def test_showLinks
+        $ie.goto($htmlRoot + "links1.html")
+        $stdout = @mockout
+        $ie.showLinks
+        expected = [/^index name +id +href + text\/src$/,
+                    get_path_regex(1, "links2.html","test1"),
+                    get_path_regex(2, "link_pass.html","test1"),
+                    get_path_regex(3, "pass3.html", " / file:///#{$myDir.downcase}/html/images/button.jpg"),
+                    get_path_regex(4, "textarea.html", "new window"),
+                    get_path_regex(5, "textarea.html", "new window"),
+                    get_path_regex(6, "links1.html", "link using an id", "link_id"),
+                    get_path_regex(7, "links1.html", "link using a name", "link_name"),
+                    get_path_regex(8, "links1.html", "link using a title"),
+                    get_path_regex(9, "pass.html", "image and a text link / file:///#{$myDir.downcase}/html/images/triangle.jpg")]
+        items = @mockout.split(/\n/).collect {|s|s.downcase.strip}
+        expected.each_with_index{|regex, x| assert_match(regex, items[x])}
+    end
+
+    def get_path_regex(idx, name, inner, nameid="")
+      Regexp.new("^#{idx} +#{nameid} +file:///#{$myDir.downcase}/html/#{name} *#{inner}$")
+    end
+end

data/unittests/minmax_test.rb

@@ -0,0 +1,31 @@
+# feature tests for minimizing and maximizing IE windows
+# revision: $Revision: 1.1.2.1 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_MinMax< Test::Unit::TestCase
+    include Watir
+    def setup
+        $ie.goto($htmlRoot + 'pass.html')
+    end        
+    def teardown
+        $ie.restore
+    end
+    def test_minimimum
+        $ie.minimize
+    end
+    def test_maximum
+        $ie.maximize
+    end
+    def test_front
+        assert $ie.front?
+        ie2 = IE.start($htmlRoot + 'blankpage.html')
+        assert ie2.front?
+        assert_false $ie.front?
+        $ie.bring_to_front
+        assert $ie.front?
+        ie2.close
+    end
+end
+

data/unittests/navigate_test.rb

@@ -0,0 +1,56 @@
+# feature tests for navigation
+# revision: $Revision: 1.12 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Navigate< Test::Unit::TestCase
+    include Watir
+   
+    def gotoPage( a )
+       $ie.goto($htmlRoot + a)
+    end
+
+    def test_navigation
+
+       $ie.clear_url_list
+       gotoPage( 'buttons1.html')
+       url = $ie.url.downcase.gsub('///' , '//')   # no idea why this happens - we get 3 / after file:
+       assert_equal(url.downcase , ( $htmlRoot + 'buttons1.html' ).downcase )  # the downcase is that sometimes we get capital drivee letters 
+
+       assert_equal( 1, $ie.url_list.length )
+       assert_equal( url , $ie.url_list[0].gsub('\\', '/').downcase )
+
+       gotoPage( 'checkboxes1.html')
+       url = $ie.url.downcase.gsub('///' , '//')   # no idea why this happens - we get 3 / after file:
+
+       assert_equal($ie.title , "Test page for Check Boxes") 
+       assert_equal( 2, $ie.url_list.length )
+       assert_equal( url , $ie.url_list[1].gsub('\\', '/').downcase )
+
+       $ie.clear_url_list
+       assert_equal( 0, $ie.url_list.length )
+
+       $ie.back
+       assert_equal($ie.title , "Test page for buttons")   
+
+       $ie.forward
+       assert_equal($ie.title , "Test page for Check Boxes")   
+
+       $ie.checkBox(:name , "box1").set
+       assert($ie.checkBox(:name, "box1").isSet?)   
+ 
+       $ie.refresh
+       # Not sure how we test this. Text fields and checkboxes dont get reset if you click the browser refresh button
+    end
+
+    def test_http_errors
+        # this is commented out as it depends on too many things.....
+
+          assert_raises(NavigationException) { $ie.goto('http://localhost:3001') }         # Cannot find server or DNS Error
+          assert_raises(NavigationException) { $ie.goto('http://www.fxruby.org/dfdf' ) }  # HTTP 404 - File not found
+
+    end
+
+end
+

data/unittests/non_core_tests.rb

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

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