watir 1.4.1 → 1.5.2

data/unittests/links_multi_test.rb

@@ -0,0 +1,36 @@
+# feature tests for Links with multiple attributes
+# revision: $Revision: 1009 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Links_Multi < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto $htmlRoot + 'links_multi.html'
+  end
+  
+  def test_existing
+    assert_match(/not.html/, $ie.link(:class_name, 'Papa').href)
+    assert_match(/mama.html/, $ie.link(:text, 'click').href)
+  end
+  
+  def test_class_alias
+    assert_match(/not.html/, $ie.link(:class, 'Papa').href)
+  end
+
+  def test_hash_syntax
+    assert_match(/not.html/, $ie.link(:class_name => 'Papa').href)
+    assert_match(/mama.html/, $ie.link(:text => 'click').href)
+  end
+  
+  def test_class_and_text
+    assert_match(/papa.html/, $ie.link(:class => 'Papa', :text => 'click').href)
+  end
+  
+  def test_class_and_index
+    assert_match(/papa.html/, $ie.link(:class => 'Papa', :index => 2).href)
+  end  
+  
+end

data/unittests/links_test.rb

@@ -1,169 +1,175 @@
 # feature tests for Links
-# revision: $Revision: 1.33 $
+# revision: $Revision: 1078 $
 
 $LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
 require 'unittests/setup'
+require 'CGI'
 
 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")})   
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "links1.html")
+  end
+  
+  def test_bad_attribute
+    assert_raises(MissingWayOfFindingObjectException) { $ie.link(:bad_attribute, 199).click }  
+    begin
+      $ie.link(:bad_attribute, 199).click 
+    rescue MissingWayOfFindingObjectException => e           
+      assert_equal "bad_attribute is an unknown way of finding a <A> element (199)", e.to_s
     end
+  end
+  
+  def xtest_missing_links_dont_exist
+    assert(!exists?{$ie.link(:text, "missing")})   
+    assert(!exists?{$ie.link(:text, /miss/)})   
+  end
+  
+  def test_link_Exists
+    assert($ie.link(:text, "test1").exists?)   
+    assert($ie.link(:text, /TEST/i).exists?)   
+    assert(!$ie.link(:text, "missing").exists?)   
+    assert(!$ie.link(:text, /miss/).exists?)   
     
-    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
+    # 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?)   
     
-    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)
+    assert($ie.link(:url, /link_pass.html/).exists?)   
+    assert(!$ie.link(:url, "alsomissing.html").exists?)   
+    
+    assert($ie.link(:id, "link_id").exists?)   
+    assert(!$ie.link(:id, "alsomissing").exists?)   
+    
+    assert($ie.link(:id, /_id/).exists?)   
+    assert(!$ie.link(:id, /alsomissing/).exists?)   
+    
+    assert($ie.link(:name, "link_name").exists?)   
+    assert(!$ie.link(:name, "alsomissing").exists?)   
+    
+    assert($ie.link(:name, /_n/).exists?)   
+    assert(!$ie.link(:name, /missing/).exists?)   
+    
+    assert($ie.link(:title, /ti/).exists?)   
+    assert($ie.link(:title, "link_title").exists?)   
+    
+    assert(!$ie.link(:title, /missing/).exists?)   
+    
+    assert($ie.link(:url, /_pass/).exists?)   
+    assert(!$ie.link(:url, /dont_exist/).exists?)   
+  end
+  
+  def test_link_click
+    $ie.link(:text, "test1").click
+    assert( $ie.text.include?("Links2-Pass") ) 
+  end
+  def test_link2_click    
+    $ie.link(:url, /link_pass.html/).click
+    assert( $ie.text.include?("Links3-Pass") ) 
+  end
+  def test_link3_click        
+    $ie.link(:index, 1).click
+    assert( $ie.text.include?("Links2-Pass") ) 
+  end
+  def test_link4_click        
+    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_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.link(:index, 199).class_name }  
+    
+    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( ""      , $ie.link(:index, 1).class_name)
+    assert_equal( "link_class_1"      , $ie.link(:index, 2).class_name)
+    
+    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
+  
+  def test_div_xml_bug
+    $ie.goto($htmlRoot + "div_xml.html")
+    assert_nothing_raised {$ie.link(:text, 'Create').exists? }   
+  end
+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
+class TC_Frame_Links < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "frame_links.html")
+  end
+  
+  def test_links_in_frames
+    assert($ie.frame("linkFrame").link(:text, "test1").exists?)   
+    assert(!$ie.frame("linkFrame").link(:text, "missing").exists?)   
+    
+    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) { $ie.frame("linkFrame").link(:index, 199).href }  
+    assert_match(/links2/, $ie.frame("linkFrame").link(:index, 1).href)
+    
+    count =0
+    $ie.frame("linkFrame").links.each do |l|
+      count+=1
     end
+    
+    assert_equal( 9 , count)
+  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
+  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| CGI.unescape(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/links_xpath_test.rb

@@ -0,0 +1,40 @@
+# feature tests for Links
+# revision: $Revision: 975 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Links_XPath < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "links1.html")
+  end
+  
+  def test_link_exists
+    assert($ie.link(:xpath, "//a[contains(.,'test1')]/").exists?)
+    assert($ie.link(:xpath, "//a[contains(., /TEST/i)]/").exists?)   
+    assert(!$ie.link(:xpath, "//a[contains(.,'missing')]/").exists?)
+    
+    assert(!$ie.link(:xpath, "//a[@url='alsomissing.html']/").exists?)
+    
+    assert($ie.link(:xpath, "//a[@id='link_id']/").exists?)
+    assert(!$ie.link(:xpath, "//a[@id='alsomissing']/").exists?)
+    
+    assert($ie.link(:xpath, "//a[@name='link_name']/").exists?)
+    assert(!$ie.link(:xpath, "//a[@name='alsomissing']/").exists?)
+    assert($ie.link(:xpath, "//a[@title='link_title']/").exists?)
+  end
+  
+  def test_link_click
+    $ie.link(:xpath, "//a[contains(.,'test1')]/").click
+    assert($ie.text.include?("Links2-Pass"))
+  end
+  
+  def test_link_with_text_call
+    $ie.link(:xpath, "//a[text()='test1']").click
+    assert($ie.text.include?("Links2-Pass"))
+  end
+  
+end
+

data/unittests/lists_test.rb

@@ -0,0 +1,29 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+  
+class Lists_Tests < Watir::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + 'lists.html')
+  end        
+
+  def test_list_items_exist
+    assert($ie.li(:id, 'list1').exists?)
+    assert($ie.li(:id, 'list2').exists?)
+    assert($ie.li(:id, 'list3').exists?)    
+    assert($ie.li(:id, 'ordered1').exists?)    
+    assert_equal('Coffee', $ie.li(:index, 1).text)
+  end
+
+  def test_list_item_exists_by_name
+    assert($ie.li(:name, 'l1').exists?)
+    assert ! ($ie.li(:name, 'maptest02').exists?)
+  end  
+  
+  def test_li_length
+    assert_equal(6, $ie.lis.length)
+  end
+
+end 
+

data/unittests/map_test.rb

@@ -0,0 +1,99 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+  
+class Map_Tests < Watir::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + 'map_test.html')
+  end        
+
+  def test_01
+    assert_contains_text "Test Page for Map Tests"
+  end
+    
+  def test_map_exists_by_name
+    assert($ie.map(:name, 'maptest01').exists?)
+    assert ! ($ie.map(:name, 'maptest03').exists?)
+  end  
+  
+  def test_map_exists_by_id
+    assert($ie.map(:id, 'maptestid01').exists?)
+    assert ! ($ie.map(:id, 'maptestid03').exists?)
+  end  
+
+  def test_map_area_exists_by_href
+    assert($ie.area(:url, /pass.html/).exists?)
+    assert($ie.area(:url, /simple_table_buttons.html/).exists?)
+    assert($ie.area(:url, /images1.html/).exists?)
+    assert ! ($ie.area(:url, /blobs.html/).exists?)
+    assert($ie.map(:name, 'maptest01').area(:url, /pass.html/).exists?)
+    assert($ie.map(:id, 'maptestid01').area(:url, /images1.html/).exists?)
+  end
+  
+  def test_map_area_exists_by_alt
+    assert($ie.area(:alt, 'Pass').exists?)
+    assert($ie.area(:alt, 'Table Buttons').exists?)
+    assert($ie.area(:alt, 'Images').exists?)
+    assert ! ($ie.area(:alt, 'Blobs').exists?)
+    assert($ie.map(:name, 'maptest01').area(:alt, 'Pass').exists?)
+    assert($ie.map(:id, 'maptestid01').area(:alt, 'Table Buttons').exists?)
+  end
+
+  def test_map_area_click
+    $ie.area(:alt, 'Table Buttons').click
+	assert_contains_text "This table has 3 images"
+    $ie.back
+	assert_contains_text "Test Page for Map Tests"
+    $ie.area(:alt, 'Pass').click
+	assert_contains_text "PASS"
+    $ie.back
+	assert_contains_text "Test Page for Map Tests"
+    $ie.area(:alt, 'Images').click
+	assert_contains_text "The triangle only has"
+    $ie.back  
+	assert_contains_text "Test Page for Map Tests"
+    $ie.area(:url, /simple_table_buttons.html/).click
+	assert_contains_text "This table has 3 images"
+    $ie.back
+	assert_contains_text "Test Page for Map Tests"
+    $ie.area(:url, /pass.html/).click
+	assert_contains_text "PASS"
+    $ie.back
+	assert_contains_text "Test Page for Map Tests"
+    $ie.area(:url, /images1.html/).click
+	assert_contains_text "The triangle only has"
+    $ie.back  
+	assert_contains_text "Test Page for Map Tests"
+    $ie.map(:name, 'maptest01').area(:alt, 'Table Buttons').click
+	assert_contains_text "This table has 3 images"
+    $ie.back
+	assert_contains_text "Test Page for Map Tests"
+    $ie.map(:id, 'maptestid01').area(:alt, 'Pass').click
+	assert_contains_text "PASS"
+    $ie.back
+	assert_contains_text "Test Page for Map Tests"
+    $ie.map(:name, 'maptest01').area(:url, /pass.html/).click
+	assert_contains_text "PASS"
+    $ie.back
+	assert_contains_text "Test Page for Map Tests"
+    $ie.map(:id, 'maptestid01').area(:url, /images1.html/).click
+	assert_contains_text "The triangle only has"
+    $ie.back  
+	assert_contains_text "Test Page for Map Tests"
+  end
+  
+  def test_maps
+    assert_equal(2, $ie.maps.length)
+  end
+  
+  def test_areas
+    assert_equal(3, $ie.map(:index, 2).areas.length)
+  end
+  
+  def assert_contains_text text
+    assert($ie.contains_text(text))
+  end
+  
+end # class Map_Tests
+