watir 1.6.2 → 1.6.5

data/unittests/parent_child_test.rb

@@ -1,44 +1,44 @@
-# feature tests for relative navigation/specification
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_Relative < Test::Unit::TestCase
-  
-  def setup
-    goto_page "depot_store.html"
-    @headline = browser.h3(:text, 'Pragmatic Version Control')
-  end
-    
-  tag_method :test_parent, :fails_on_firefox
-  def test_parent
-    catalog_entry = @headline.parent
-    link = catalog_entry.link(:class, 'addtocart')
-    assert_equal 'http://localhost:3000/store/add_to_cart/12', link.href  
-    assert_nothing_raised{link.click}
-  end
-  
-  tag_method :test_parent_page_container, :fails_on_firefox
-  def test_parent_page_container
-    catalog_entry = @headline.parent
-    assert_not_nil catalog_entry.page_container
-  end
-    
-  tag_method :test_before_and_after, :fails_on_firefox
-  def test_before_and_after
-    link = browser.link(:class => 'addtocart', :index => 2)
-    assert_equal 'http://localhost:3000/store/add_to_cart/12', link.href  
-    assert(link.after?(@headline))
-    assert(@headline.before?(link))
-    assert !(link.before? @headline)
-    assert !(@headline.after? link)
-    assert !(link.after? link)
-  end   
-    
-  tag_method :test_find_after, :fails_on_firefox
-  def test_find_after
-    link = browser.link(:class => 'addtocart', :after? => @headline)
-    assert_equal 'http://localhost:3000/store/add_to_cart/12', link.href  
-  end
-    
+# feature tests for relative navigation/specification
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_Relative < Test::Unit::TestCase
+  
+  def setup
+    goto_page "depot_store.html"
+    @headline = browser.h3(:text, 'Pragmatic Version Control')
+  end
+    
+  tag_method :test_parent, :fails_on_firefox
+  def test_parent
+    catalog_entry = @headline.parent
+    link = catalog_entry.link(:class, 'addtocart')
+    assert_equal 'http://localhost:3000/store/add_to_cart/12', link.href  
+    assert_nothing_raised{link.click}
+  end
+  
+  tag_method :test_parent_page_container, :fails_on_firefox
+  def test_parent_page_container
+    catalog_entry = @headline.parent
+    assert_not_nil catalog_entry.page_container
+  end
+    
+  tag_method :test_before_and_after, :fails_on_firefox
+  def test_before_and_after
+    link = browser.link(:class => 'addtocart', :index => 2)
+    assert_equal 'http://localhost:3000/store/add_to_cart/12', link.href  
+    assert(link.after?(@headline))
+    assert(@headline.before?(link))
+    assert !(link.before? @headline)
+    assert !(@headline.after? link)
+    assert !(link.after? link)
+  end   
+    
+  tag_method :test_find_after, :fails_on_firefox
+  def test_find_after
+    link = browser.link(:class => 'addtocart', :after? => @headline)
+    assert_equal 'http://localhost:3000/store/add_to_cart/12', link.href  
+  end
+    
 end

data/unittests/perf_test.rb

@@ -1,20 +1,20 @@
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_Performance < Test::Unit::TestCase
-  def setup
-    uses_page 'wallofcheckboxes.html'
-  end
-  
-  # http://jira.openqa.org/browse/WTR-216
-  # This should take about a quarter of a second. When the bug showed up (because the
-  # fast_locate method was broken), it took nearly 10 seconds.
-  def test_access_checkbox
-    start_time = Time.now
-    browser.checkbox(:name, 'custom_monetary_value10:config.admin.required999').set    
-    elapsed_time = Time.now - start_time
-    assert(elapsed_time < 1.5, 
-      "Elapsed time is #{elapsed_time}, should be less than 1.5 seconds.")
-  end
-  
-end
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_Performance < Test::Unit::TestCase
+  def setup
+    uses_page 'wallofcheckboxes.html'
+  end
+  
+  # http://jira.openqa.org/browse/WTR-216
+  # This should take about a quarter of a second. When the bug showed up (because the
+  # fast_locate method was broken), it took nearly 10 seconds.
+  def test_access_checkbox
+    start_time = Time.now
+    browser.checkbox(:name, 'custom_monetary_value10:config.admin.required999').set    
+    elapsed_time = Time.now - start_time
+    assert(elapsed_time < 1.5, 
+      "Elapsed time is #{elapsed_time}, should be less than 1.5 seconds.")
+  end
+  
+end

data/unittests/popups_test.rb

@@ -1,43 +1,43 @@
-# revision: $Revision: 1431 $
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_PopUps < Test::Unit::TestCase
-  tags :must_be_visible, :creates_windows, :unreliable
-
-  def setup
-    browser.goto("file://#{$myDir}/html/popups1.html")
-  end
-  
-  def startClicker( button , waitTime = 0.5)
-    w = WinClicker.new
-    longName = browser.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")
-    browser.button("Alert").click
-  end
-  
-  def test_confirm
-    startClicker("OK")
-    browser.button("Confirm").click
-    assert( browser.text_field(:name , "confirmtext").verify_contains("OK") )
-    
-    startClicker("Cancel")
-    browser.button("Confirm").click
-    assert( browser.text_field(:name , "confirmtext").verify_contains("Cancel") )
-  end
-  
-  def xtest_Prompt
-    startClicker("OK")
-    browser.button("Prompt").click
-  end
-end
-
+# revision: $Revision$
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_PopUps < Test::Unit::TestCase
+  tags :must_be_visible, :creates_windows, :unreliable
+
+  def setup
+    browser.goto("file://#{$myDir}/html/popups1.html")
+  end
+  
+  def startClicker( button , waitTime = 0.5)
+    w = WinClicker.new
+    longName = browser.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")
+    browser.button("Alert").click
+  end
+  
+  def test_confirm
+    startClicker("OK")
+    browser.button("Confirm").click
+    assert( browser.text_field(:name , "confirmtext").verify_contains("OK") )
+    
+    startClicker("Cancel")
+    browser.button("Confirm").click
+    assert( browser.text_field(:name , "confirmtext").verify_contains("Cancel") )
+  end
+  
+  def xtest_Prompt
+    startClicker("OK")
+    browser.button("Prompt").click
+  end
+end
+

data/unittests/pre_test.rb

@@ -1,53 +1,53 @@
-# feature tests for Pre
-# revision: $Revision: 1595 $
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_Pre < Test::Unit::TestCase
-  
-  def setup
-    goto_page "pre.html"
-  end
-  
-  def test_Pre_Count
-    assert( browser.pres.length == 3 )
-  end
-  
-  def test_Pre_Exists
-    assert_false( browser.pre( :index, 33 ).exists? )
-    assert( browser.pre( :index, 3 ).exists? )
-    
-    assert( browser.pre( :id, '1' ).exists? )
-    assert( browser.pre( :id, /[3-9]/ ).exists? )
-    assert_false( browser.pre( :id, /missing_pre/ ).exists? )
-    assert_false( browser.pre( :id, 'missingPre' ).exists? )
-        
-    assert( browser.pre( :name, '3' ).exists? )
-    assert_false( browser.pre( :name, "name_missing" ).exists? )
-  end
-    
-  def test_simple_access
-    pre = browser.pre( :index, 1 )
-    assert( pre.text.include?( "simple pre space" ) )
-    assert_false( pre.text.include?( "A second block" ) )
-    
-    pre = browser.pre( :index, 2 )
-    assert( pre.text.include?( "A second block" ) )
-    assert_false( pre.text.include?( "this is the last block" ) )
-  end
-
-  tag_method :test_embedded_spaces, :fails_on_firefox # http://jira.openqa.org/browse/WTR-267
-  def test_embedded_spaces
-    pre = browser.pre( :index, 3 )
-    assert( pre.text.include?( "continue    to work" ) )
-    assert_false( pre.text.include?( "Pre Tag Test" ) )
-  end
-
-  tag_method :test_html, :fails_on_firefox # http://jira.openqa.org/browse/WTR-260
-  def test_html
-    pre = browser.pre(:index, 1)
-    assert( pre.html.include?( "id=1 name=\"1\"" ) )
-  end
-  
-end
+# feature tests for Pre
+# revision: $Revision$
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_Pre < Test::Unit::TestCase
+  
+  def setup
+    goto_page "pre.html"
+  end
+  
+  def test_Pre_Count
+    assert( browser.pres.length == 3 )
+  end
+  
+  def test_Pre_Exists
+    assert_false( browser.pre( :index, 33 ).exists? )
+    assert( browser.pre( :index, 3 ).exists? )
+    
+    assert( browser.pre( :id, '1' ).exists? )
+    assert( browser.pre( :id, /[3-9]/ ).exists? )
+    assert_false( browser.pre( :id, /missing_pre/ ).exists? )
+    assert_false( browser.pre( :id, 'missingPre' ).exists? )
+        
+    assert( browser.pre( :name, '3' ).exists? )
+    assert_false( browser.pre( :name, "name_missing" ).exists? )
+  end
+    
+  def test_simple_access
+    pre = browser.pre( :index, 1 )
+    assert( pre.text.include?( "simple pre space" ) )
+    assert_false( pre.text.include?( "A second block" ) )
+    
+    pre = browser.pre( :index, 2 )
+    assert( pre.text.include?( "A second block" ) )
+    assert_false( pre.text.include?( "this is the last block" ) )
+  end
+
+  tag_method :test_embedded_spaces, :fails_on_firefox # http://jira.openqa.org/browse/WTR-267
+  def test_embedded_spaces
+    pre = browser.pre( :index, 3 )
+    assert( pre.text.include?( "continue    to work" ) )
+    assert_false( pre.text.include?( "Pre Tag Test" ) )
+  end
+
+  tag_method :test_html, :fails_on_firefox # http://jira.openqa.org/browse/WTR-260
+  def test_html
+    pre = browser.pre(:index, 1)
+    assert( pre.html.include?( "id=1 name=\"1\"" ) )
+  end
+  
+end

data/unittests/radios_test.rb

@@ -1,212 +1,212 @@
-# feature tests for Radio Buttons
-# revision: $Revision: 1505 $
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_Radios < Test::Unit::TestCase
-  include Watir::Exception
-  
-  def setup
-    goto_page "radioButtons1.html"
-  end
-  
-  def test_Radio_Exists
-    assert(browser.radio(:name, "box1").exists?)   
-    assert(browser.radio(:id, "box5").exists?)   
-    
-    assert_false(browser.radio(:name, "missingname").exists?)   
-    assert_false(browser.radio(:id, "missingid").exists?)   
-  end
-  
-  def test_radio_class
-    assert_raises(UnknownObjectException) { browser.radio(:name, "noName").class_name }  
-    assert_equal("radio_style", browser.radio(:name, "box1").class_name)   
-    assert_equal("", browser.radio(:id, "box5").class_name)   
-  end
-  
-  def test_Radio_Enabled
-    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:name, "noName").enabled?  }  
-    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:id, "noName").enabled?  }  
-    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:name, "box4" , 6).enabled?  }  
-    
-    assert_false(browser.radio(:name, "box2").enabled?)   
-    assert(browser.radio(:id, "box5").enabled?)   
-    assert(browser.radio(:name, "box1").enabled?)   
-  end
-  
-  def test_little
-    assert_false(browser.button(:value, "foo").enabled?)
-  end
-  
-  def test_onClick
-    
-    assert_false(browser.radio(:name, "box5").isSet?)
-    assert_false(browser.button(:value , "foo").enabled?)
-    
-    # first click the button is enabled and the radio is set
-    browser.radio(:name, "box5", 1).set
-    assert(browser.radio(:name, "box5",1).isSet?)
-    assert(browser.radio(:name, "box5",1).checked?)    
-    assert(browser.button(:value, "foo").enabled?)
-    
-    # second click the button is disabled and the radio is still set
-    browser.radio(:name, "box5", 1).set
-    assert(browser.radio(:name, "box5",1).isSet?)
-    assert(browser.radio(:name, "box5",1).checked?)    
-    assert_false(browser.button(:value, "foo").enabled?)
-    
-    # third click the button is enabled and the radio is still set
-    browser.radio(:name, "box5", 1).set
-    assert(browser.radio(:name, "box5", 1).isSet?)
-    assert(browser.radio(:name, "box5", 1).checked?)
-    assert(browser.button(:value, "foo").enabled?)
-    
-    # click the radio with a value of 2 , button is disabled and the radio is still set
-    browser.radio(:name, "box5", 2).set
-    assert_false(browser.radio(:name, "box5", 1).isSet?)
-    assert_false(browser.radio(:name, "box5", 1).checked?)    
-    assert(browser.radio(:name, "box5", 2).isSet?)
-    assert(browser.radio(:name, "box5", 2).checked?)    
-    assert_false(browser.button(:value, "foo").enabled?)
-  end
-  
-  def test_Radio_isSet
-    assert_raises(UnknownObjectException) { browser.radio(:name, "noName").isSet?  }  
-    
-    assert_false(browser.radio(:name, "box1").isSet?)   
-    assert( browser.radio(:name, "box3").isSet?)   
-    assert_false(browser.radio(:name, "box2").isSet?)   
-    assert( browser.radio(:name, "box4", 1).isSet?)   
-    assert_false(browser.radio(:name, "box4", 2).isSet?)  
-
-    assert_false(browser.radio(:name, "box1").checked?)   
-    assert( browser.radio(:name, "box3").checked?)   
-    assert_false(browser.radio(:name, "box2").checked?)   
-    assert( browser.radio(:name, "box4", 1).checked?)   
-    assert_false(browser.radio(:name, "box4", 2).checked?)   
-  end
-  
-  def test_radio_clear
-    assert_raises(UnknownObjectException) {   browser.radio(:name, "noName").clear  }  
-    
-    browser.radio(:name, "box1").clear
-    assert_false(browser.radio(:name, "box1").isSet?)   
-    
-    assert_raises(ObjectDisabledException, "ObjectDisabledException was supposed to be thrown" ) {   browser.radio(:name, "box2").clear  } 
-    assert_false(browser.radio(:name, "box2").isSet?)   
-    
-    browser.radio(:name, "box3").clear
-    assert_false(browser.radio(:name, "box3").isSet?)   
-    
-    browser.radio(:name, "box4" , 1).clear
-    assert_false(browser.radio(:name, "box4" , 1).isSet?)   
-  end
-  
-  def test_radio_getState
-    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:name, "noName").getState  }  
-    
-    assert_equal( false , browser.radio(:name, "box1").getState )   
-    assert_equal( true , browser.radio(:name, "box3").getState)   
-    
-    # radioes that have the same name but different values
-    assert_equal( false , browser.radio(:name, "box4" , 2).getState )   
-    assert_equal( true , browser.radio(:name, "box4" , 1).getState)   
-  end
-  
-  def test_radio_set
-    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:name, "noName").set  }  
-    browser.radio(:name, "box1").set
-    assert(browser.radio(:name, "box1").isSet?)   
-    
-    assert_raises(ObjectDisabledException, "ObjectDisabledException was supposed to be thrown" ) {   browser.radio(:name, "box2").set  }  
-    
-    browser.radio(:name, "box3").set
-    assert(browser.radio(:name, "box3").isSet?)   
-    
-    # radioes that have the same name but different values
-    browser.radio(:name, "box4" , 3).set
-    assert(browser.radio(:name, "box4" , 3).isSet?)   
-  end
-  
-  def test_radio_properties
-    
-    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).value}  
-    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).name }  
-    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).id }  
-    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).disabled }  
-    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).type }  
-    
-    assert_equal("on"   ,    browser.radio(:index, 1).value)  
-    assert_equal("box1" ,    browser.radio(:index, 1).name )  
-    assert_equal(""     ,    browser.radio(:index, 1).id )  
-    assert_equal("radio",    browser.radio(:index, 1).type )  
-    
-    assert_equal( false, browser.radio(:index, 1).disabled )
-    assert_equal( true,  browser.radio(:index, 3).disabled )
-    
-    assert_equal("box5"  ,    browser.radio(:index, 2).id )  
-    assert_equal(""      ,    browser.radio(:index, 2).name )  
-    
-    assert_equal("box4-value5", browser.radio(:name , "box4" , 5 ).title  )
-    assert_equal("", browser.radio(:name , "box4" , 4 ).title  )
-  end
-  
-  def test_radio_iterators
-    assert_equal(13, browser.radios.length)
-    assert_equal("box5" , browser.radios[2].id )
-    assert_equal(true ,  browser.radios[3].disabled )
-    assert_equal(false ,  browser.radios[1].disabled )
-    
-    index = 1
-    browser.radios.each do |r|
-      assert_equal( browser.radio(:index, index).name , r.name )
-      assert_equal( browser.radio(:index, index).id , r.id )
-      assert_equal( browser.radio(:index, index).value, r.value)
-      assert_equal( browser.radio(:index, index).disabled , r.disabled )
-      index+=1
-    end
-    assert_equal(index -1, browser.radios.length)
-  end
-  
-  # test radio buttons that have a string as a value
-  def test_value_string
-    tea = browser.radio(:name, 'box6', 'Tea')
-    milk = browser.radio(:name, 'box6', 'Milk')
-    
-    assert(tea.exists?)
-    assert(milk.exists?)
-
-    milk.set
-    assert(milk.isSet?)   
-    assert_false(tea.isSet?)   
-
-    tea.set
-    assert_false(milk.isSet?)   
-    assert(tea.isSet?)   
-
-    tea.clear
-    assert_false(tea.isSet?)
-  end
-
-  def test_value_specified
-    tea = browser.radio(:name => 'box6', :value => 'Tea')
-    milk = browser.radio(:name => 'box6', :value => 'Milk')
-    
-    assert(tea.exists?)
-    assert(milk.exists?)
-
-    milk.set
-    assert(milk.isSet?)   
-    assert_false(tea.isSet?)   
-
-    tea.set
-    assert_false(milk.isSet?)   
-    assert(tea.isSet?)   
-
-    tea.clear
-    assert_false(tea.isSet?)
-  end
-  
-end
-
+# feature tests for Radio Buttons
+# revision: $Revision$
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_Radios < Test::Unit::TestCase
+  include Watir::Exception
+  
+  def setup
+    goto_page "radioButtons1.html"
+  end
+  
+  def test_Radio_Exists
+    assert(browser.radio(:name, "box1").exists?)   
+    assert(browser.radio(:id, "box5").exists?)   
+    
+    assert_false(browser.radio(:name, "missingname").exists?)   
+    assert_false(browser.radio(:id, "missingid").exists?)   
+  end
+  
+  def test_radio_class
+    assert_raises(UnknownObjectException) { browser.radio(:name, "noName").class_name }  
+    assert_equal("radio_style", browser.radio(:name, "box1").class_name)   
+    assert_equal("", browser.radio(:id, "box5").class_name)   
+  end
+  
+  def test_Radio_Enabled
+    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:name, "noName").enabled?  }  
+    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:id, "noName").enabled?  }  
+    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:name, "box4" , 6).enabled?  }  
+    
+    assert_false(browser.radio(:name, "box2").enabled?)   
+    assert(browser.radio(:id, "box5").enabled?)   
+    assert(browser.radio(:name, "box1").enabled?)   
+  end
+  
+  def test_little
+    assert_false(browser.button(:value, "foo").enabled?)
+  end
+  
+  def test_onClick
+    
+    assert_false(browser.radio(:name, "box5").isSet?)
+    assert_false(browser.button(:value , "foo").enabled?)
+    
+    # first click the button is enabled and the radio is set
+    browser.radio(:name, "box5", 1).set
+    assert(browser.radio(:name, "box5",1).isSet?)
+    assert(browser.radio(:name, "box5",1).checked?)    
+    assert(browser.button(:value, "foo").enabled?)
+    
+    # second click the button is disabled and the radio is still set
+    browser.radio(:name, "box5", 1).set
+    assert(browser.radio(:name, "box5",1).isSet?)
+    assert(browser.radio(:name, "box5",1).checked?)    
+    assert_false(browser.button(:value, "foo").enabled?)
+    
+    # third click the button is enabled and the radio is still set
+    browser.radio(:name, "box5", 1).set
+    assert(browser.radio(:name, "box5", 1).isSet?)
+    assert(browser.radio(:name, "box5", 1).checked?)
+    assert(browser.button(:value, "foo").enabled?)
+    
+    # click the radio with a value of 2 , button is disabled and the radio is still set
+    browser.radio(:name, "box5", 2).set
+    assert_false(browser.radio(:name, "box5", 1).isSet?)
+    assert_false(browser.radio(:name, "box5", 1).checked?)    
+    assert(browser.radio(:name, "box5", 2).isSet?)
+    assert(browser.radio(:name, "box5", 2).checked?)    
+    assert_false(browser.button(:value, "foo").enabled?)
+  end
+  
+  def test_Radio_isSet
+    assert_raises(UnknownObjectException) { browser.radio(:name, "noName").isSet?  }  
+    
+    assert_false(browser.radio(:name, "box1").isSet?)   
+    assert( browser.radio(:name, "box3").isSet?)   
+    assert_false(browser.radio(:name, "box2").isSet?)   
+    assert( browser.radio(:name, "box4", 1).isSet?)   
+    assert_false(browser.radio(:name, "box4", 2).isSet?)  
+
+    assert_false(browser.radio(:name, "box1").checked?)   
+    assert( browser.radio(:name, "box3").checked?)   
+    assert_false(browser.radio(:name, "box2").checked?)   
+    assert( browser.radio(:name, "box4", 1).checked?)   
+    assert_false(browser.radio(:name, "box4", 2).checked?)   
+  end
+  
+  def test_radio_clear
+    assert_raises(UnknownObjectException) {   browser.radio(:name, "noName").clear  }  
+    
+    browser.radio(:name, "box1").clear
+    assert_false(browser.radio(:name, "box1").isSet?)   
+    
+    assert_raises(ObjectDisabledException, "ObjectDisabledException was supposed to be thrown" ) {   browser.radio(:name, "box2").clear  } 
+    assert_false(browser.radio(:name, "box2").isSet?)   
+    
+    browser.radio(:name, "box3").clear
+    assert_false(browser.radio(:name, "box3").isSet?)   
+    
+    browser.radio(:name, "box4" , 1).clear
+    assert_false(browser.radio(:name, "box4" , 1).isSet?)   
+  end
+  
+  def test_radio_getState
+    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:name, "noName").getState  }  
+    
+    assert_equal( false , browser.radio(:name, "box1").getState )   
+    assert_equal( true , browser.radio(:name, "box3").getState)   
+    
+    # radioes that have the same name but different values
+    assert_equal( false , browser.radio(:name, "box4" , 2).getState )   
+    assert_equal( true , browser.radio(:name, "box4" , 1).getState)   
+  end
+  
+  def test_radio_set
+    assert_raises(UnknownObjectException, "UnknownObjectException was supposed to be thrown" ) {   browser.radio(:name, "noName").set  }  
+    browser.radio(:name, "box1").set
+    assert(browser.radio(:name, "box1").isSet?)   
+    
+    assert_raises(ObjectDisabledException, "ObjectDisabledException was supposed to be thrown" ) {   browser.radio(:name, "box2").set  }  
+    
+    browser.radio(:name, "box3").set
+    assert(browser.radio(:name, "box3").isSet?)   
+    
+    # radioes that have the same name but different values
+    browser.radio(:name, "box4" , 3).set
+    assert(browser.radio(:name, "box4" , 3).isSet?)   
+  end
+  
+  def test_radio_properties
+    
+    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).value}  
+    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).name }  
+    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).id }  
+    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).disabled }  
+    assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) {   browser.radio(:index, 199).type }  
+    
+    assert_equal("on"   ,    browser.radio(:index, 1).value)  
+    assert_equal("box1" ,    browser.radio(:index, 1).name )  
+    assert_equal(""     ,    browser.radio(:index, 1).id )  
+    assert_equal("radio",    browser.radio(:index, 1).type )  
+    
+    assert_equal( false, browser.radio(:index, 1).disabled )
+    assert_equal( true,  browser.radio(:index, 3).disabled )
+    
+    assert_equal("box5"  ,    browser.radio(:index, 2).id )  
+    assert_equal(""      ,    browser.radio(:index, 2).name )  
+    
+    assert_equal("box4-value5", browser.radio(:name , "box4" , 5 ).title  )
+    assert_equal("", browser.radio(:name , "box4" , 4 ).title  )
+  end
+  
+  def test_radio_iterators
+    assert_equal(13, browser.radios.length)
+    assert_equal("box5" , browser.radios[2].id )
+    assert_equal(true ,  browser.radios[3].disabled )
+    assert_equal(false ,  browser.radios[1].disabled )
+    
+    index = 1
+    browser.radios.each do |r|
+      assert_equal( browser.radio(:index, index).name , r.name )
+      assert_equal( browser.radio(:index, index).id , r.id )
+      assert_equal( browser.radio(:index, index).value, r.value)
+      assert_equal( browser.radio(:index, index).disabled , r.disabled )
+      index+=1
+    end
+    assert_equal(index -1, browser.radios.length)
+  end
+  
+  # test radio buttons that have a string as a value
+  def test_value_string
+    tea = browser.radio(:name, 'box6', 'Tea')
+    milk = browser.radio(:name, 'box6', 'Milk')
+    
+    assert(tea.exists?)
+    assert(milk.exists?)
+
+    milk.set
+    assert(milk.isSet?)   
+    assert_false(tea.isSet?)   
+
+    tea.set
+    assert_false(milk.isSet?)   
+    assert(tea.isSet?)   
+
+    tea.clear
+    assert_false(tea.isSet?)
+  end
+
+  def test_value_specified
+    tea = browser.radio(:name => 'box6', :value => 'Tea')
+    milk = browser.radio(:name => 'box6', :value => 'Milk')
+    
+    assert(tea.exists?)
+    assert(milk.exists?)
+
+    milk.set
+    assert(milk.isSet?)   
+    assert_false(tea.isSet?)   
+
+    tea.set
+    assert_false(milk.isSet?)   
+    assert(tea.isSet?)   
+
+    tea.clear
+    assert_false(tea.isSet?)
+  end
+  
+end
+