firewatir 1.1.1

data/unittests/links_test.rb

@@ -0,0 +1,230 @@
+# feature tests for Links
+# revision: $Revision: 1.0 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Links < Test::Unit::TestCase
+    include FireWatir
+    
+    def setup()
+        $ff.goto($htmlRoot + "links1.html")
+    end
+    
+    def test_new_link_exists
+        assert($ff.link(:text, "test1").exists?)   
+        assert($ff.link(:text, /TEST/i).exists?)   
+    end
+    
+    # In current implementation, method_missing catches all the methods that are not defined
+    # for the element. So there is no way to find out about missinwayoffindingobject exp.
+    def test_bad_attribute
+        assert_raises(UnknownObjectException) { $ff.link(:bad_attribute, 199).click }  
+        begin
+            $ff.link(:bad_attribute, 199).click 
+        rescue UnknownObjectException => e           
+            assert_equal "Unable to locate object, using bad_attribute and 199", e.to_s
+        end
+    end
+
+    def test_missing_links_dont_exist
+        assert_false($ff.link(:text, "missing").exists?)   
+        assert_false($ff.link(:text, /miss/).exists?)   
+    end
+
+    def test_link_Exists
+        assert($ff.link(:text, "test1").exists?)   
+        assert($ff.link(:text, /TEST/i).exists?)   
+        assert_false($ff.link(:text, "missing").exists?)   
+        assert_false($ff.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($ff.link(:url,'file:///C:/watir_bonus/unitTests/html/links1.HTML' ).exists?)   
+        
+        assert($ff.link(:url, /link_pass.html/).exists?)   
+        assert_false($ff.link(:url, "alsomissing.html").exists?)   
+        
+        assert($ff.link(:id, "link_id").exists?)   
+        assert_false($ff.link(:id, "alsomissing").exists?)   
+        
+        assert($ff.link(:id, /_id/).exists?)   
+        assert_false($ff.link(:id, /alsomissing/).exists?)   
+        
+        assert($ff.link(:name, "link_name").exists?)   
+        assert_false($ff.link(:name, "alsomissing").exists?)   
+        
+        assert($ff.link(:name, /_n/).exists?)   
+        assert_false($ff.link(:name, /missing/).exists?)   
+        
+        assert($ff.link(:title, /ti/).exists?)   
+        assert($ff.link(:title, "link_title").exists?)   
+        
+        assert_false($ff.link(:title, /missing/).exists?)   
+        
+        assert($ff.link(:url, /_pass/).exists?)   
+        assert_false($ff.link(:url, /dont_exist/).exists?)   
+    end
+    
+    def test_link_click
+        $ff.link(:text, "test1").click
+        assert( $ff.text.include?("Links2-Pass") ) 
+    end
+    def test_link2_click    
+        $ff.link(:url, /link_pass.html/).click
+        assert( $ff.text.include?("Links3-Pass") ) 
+    end
+    def test_link3_click        
+        $ff.link(:index, 1).click
+        assert( $ff.text.include?("Links2-Pass") ) 
+    end
+    def test_link4_click        
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).click }  
+    end
+    
+    def test_link_properties
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).href }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).value}  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).text }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).name }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).id }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).disabled }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).type }  
+        assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ff.link(:index, 199).class_name }  
+        
+        assert_match( /links2/ ,$ff.link(:index, 1).href )
+        assert_equal( ""      , $ff.link(:index, 1).value)
+        assert_equal( "test1" , $ff.link(:index, 1).text )
+        assert_equal( ""      , $ff.link(:index, 1).name )
+        assert_equal( ""      , $ff.link(:index, 1).id )
+        #assert_equal( false   , $ff.link(:index, 1).disabled )  
+        assert_equal( ""      , $ff.link(:index, 1).class_name)
+        assert_equal( "link_class_1"      , $ff.link(:index, 2).class_name)
+        
+        assert_equal( "link_id"   , $ff.link(:index, 6).id )
+        assert_equal( "link_name" , $ff.link(:index, 7).name )
+        
+        assert_equal( "" , $ff.link(:index, 7).title)
+        
+        assert_equal( "link_title" , $ff.link(:index, 8).title)
+    end
+
+    def test_text_attribute
+        arr1 = $ff.link(:text, "nameDelet").to_s
+        arr2 = $ff.link(:text, /Delet/).to_s
+        assert_equal(arr1, arr2)
+        
+    end
+    
+    def test_link_iterator
+        assert_equal(11, $ff.links.length )
+        assert_equal("Link Using a name" , $ff.links[7].text)
+        
+        index = 1
+        $ff.links.each do |link|
+            assert_equal( $ff.link(:index, index).href      , link.href )
+            assert_equal( $ff.link(:index, index).id        , link.id )
+            assert_equal( $ff.link(:index, index).name      , link.name )
+            assert_equal( $ff.link(:index, index).innerText , link.text )
+            index+=1
+        end
+    end
+    
+    def test_div_xml_bug
+        $ff.goto($htmlRoot + "div_xml.html")
+        assert_nothing_raised {$ff.link(:text, 'Create').exists? }   
+    end
+    def test_link_to_s
+       puts  $ff.link(:id,"linktos").to_s
+    end
+end
+
+class TC_Frame_Links < Test::Unit::TestCase
+    include FireWatir
+    
+    def setup()
+        $ff.goto($htmlRoot + "frame_links.html")
+    end
+
+    def test_new_frame_link_exists
+        assert($ff.frame("buttonFrame").link(:text, "test1").exists?)   
+    end
+    def test_missing_frame_links_dont_exist        
+        assert_false($ff.frame("buttonFrame").link(:text, "missing").exists?)
+        assert_raise(UnknownFrameException, "UnknownFrameException was supposed to be thrown"){$ff.frame("missing").link(:text, "test1").exists?}
+    end
+    
+    def test_links_in_frames
+        assert($ff.frame("buttonFrame").link(:text, "test1").exists?)   
+        assert_false($ff.frame("buttonFrame").link(:text, "missing").exists?)   
+        
+        assert_raises(UnknownObjectException, "UnknownObjectException  was supposed to be thrown" ) { $ff.frame("buttonFrame").link(:index, 199).href }  
+        assert_match(/links2/, $ff.frame("buttonFrame").link(:index, 1).href)
+        
+        count =0
+        $ff.frame("buttonFrame").links.each do |l|
+            count+=1
+        end
+        
+        assert_equal(11 , count)
+    end    
+end
+
+class TC_Links_Display < Test::Unit::TestCase
+  include FireWatir
+  include MockStdoutTestCase
+
+  def test_showLinks
+    $ff.goto($htmlRoot + "links1.html")
+    $stdout = @mockout
+    $ff.showLinks
+    assert_equal(<<END_OF_MESSAGE, @mockout)
+There are 11 links
+link:  name: 
+         id: 
+       href: links2.html
+      index: 1
+link:  name: 
+         id: 
+       href: link_pass.html
+      index: 2
+link:  name: 
+         id: 
+       href: pass3.html
+      index: 3
+link:  name: 
+         id: 
+       href: textarea.html
+      index: 4
+link:  name: 
+         id: 
+       href: textarea.html
+      index: 5
+link:  name: 
+         id: link_id
+       href: links1.HTML
+      index: 6
+link:  name: link_name
+         id: 
+       href: links1.HTML
+      index: 7
+link:  name: 
+         id: 
+       href: links1.HTML
+      index: 8
+link:  name: 
+         id: 
+       href: pass.html
+      index: 9
+link:  name: 
+         id: linktos
+       href: link_pass.html
+      index: 10
+link:  name: test_link
+         id: 
+       href: link1.html
+      index: 11
+END_OF_MESSAGE
+  end
+end

data/unittests/links_xpath_test.rb

@@ -0,0 +1,79 @@
+# feature tests for Links
+# revision: $Revision: 1.0 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Links_XPath < Test::Unit::TestCase
+    include FireWatir
+
+    def setup()
+        $ff.goto($htmlRoot + "links1.html")
+    end
+    
+    def xtest_new_link_exists
+        assert(exists?{$ff.link(:xpath , "//a[contains(.,'test1')]")})
+        assert(exists?{$ff.link(:xpath, "//a[contains(., /TEST/i)]")})   
+        assert_false(exists?{$ff.link(:xpath , "//a[contains(.,'missing')]")})
+        assert_false(exists?{$ff.link(:xpath, "//a[contains(., /miss/)]")})   
+    end
+        
+    def test_element_by_xpath_class
+        # TODO: If element is not present this should return null
+        #element = $ff.element_by_xpath("//a[contains(., /miss/)]")
+        #assert(element.instance_of?(Link),"element class should be #{Link}; got #{element.class}")
+        #element = $ff.element_by_xpath("//a[contains(.,'missing')]")
+        #assert(element.instance_of?(Link),"element class should be #{Link}; got #{element.class}")
+        element = $ff.element_by_xpath("//a[contains(., /TEST/i)]")
+        assert(element.instance_of?(Link),"element class should be #{Link}; got #{element.class}")
+        element = $ff.element_by_xpath("//a[contains(.,'test1')]")
+        assert(element.instance_of?(Link),"element class should be #{Link}; got #{element.class}")
+    end
+
+    def test_element_by_xpath_behavior
+      # TODO implement this, acquiring objects through element_by_xpath and 
+      # then testing their properties to see if they behave normally, as if 
+      # they had been created with $ff.link
+    end
+    
+    def test_Link_Exists
+       assert($ff.link(:xpath , "//a[contains(.,'test1')]").exists?)
+       assert($ff.link(:xpath, "//a[contains(., /TEST/i)]").exists?)   
+       assert_false($ff.link(:xpath , "//a[contains(.,'missing')]").exists?)
+
+       assert_false($ff.link(:xpath , "//a[@url='alsomissing.html']").exists?)
+
+       assert($ff.link(:xpath , "//a[@id='link_id']").exists?)
+       assert_false($ff.link(:xpath , "//a[@id='alsomissing']").exists?)
+
+       assert($ff.link(:xpath , "//a[@name='link_name']").exists?)
+       assert_false($ff.link(:xpath , "//a[@name='alsomissing']").exists?)
+       assert($ff.link(:xpath , "//a[@title='link_title']").exists?)
+
+    end
+
+    def test_Link_click
+        $ff.link(:xpath , "//a[contains(.,'test1')]").click
+        assert( $ff.text.include?("Links2-Pass") )
+    end
+    
+    def test_link_properties
+            
+        assert_match( /links2/ ,$ff.link(:xpath , "//a[contains(.,'test1')]").href )
+        assert_equal( ""      , $ff.link(:xpath , "//a[contains(.,'test1')]").value)
+        assert_equal( "test1" , $ff.link(:xpath , "//a[contains(.,'test1')]").text )
+        assert_equal( ""      , $ff.link(:xpath , "//a[contains(.,'test1')]").name )
+        assert_equal( ""      , $ff.link(:xpath , "//a[contains(.,'test1')]").id )
+        #assert_equal( false   , $ff.link(:xpath , "//a[contains(.,'test1')]").disabled )  
+        assert_equal( ""      , $ff.link(:xpath , "//a[contains(.,'test1')]").class_name)
+        assert_equal( "link_class_1"      , $ff.link(:xpath , "//a[@class='link_class_1']").class_name)
+        
+        assert_equal( "link_id"   , $ff.link(:xpath , "//a[@id='link_id']").id )
+        assert_equal( "link_name" , $ff.link(:xpath , "//a[@name='link_name']").name )
+        
+        assert_equal( "" , $ff.link(:xpath , "//a[@name='link_name']").title)
+        
+        assert_equal( "link_title" , $ff.link(:xpath , "//a[@title='link_title']").title)
+    end 
+end
+

data/unittests/mozilla_all_tests.rb

@@ -0,0 +1,18 @@
+# these are the tests that run reliably and invisibly
+
+TOPDIR = File.join(File.dirname(__FILE__), '..')
+$LOAD_PATH.unshift TOPDIR
+
+require 'unittests/setup.rb'
+
+Dir.chdir TOPDIR
+
+#tests = ["unittests/test.rb",
+#        "unittests/test_xpath.rb"
+#       ]
+
+#tests.each { |x| require x }
+$core_tests.each {|x| require x }
+
+#$HIDE_IE = true
+#$ff.visible = false

data/unittests/pre_test.rb

@@ -0,0 +1,74 @@
+# feature tests for Pre
+# revision: $Revision: 1.0 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Pre < Test::Unit::TestCase
+  include FireWatir
+  
+  def setup
+    $ff.goto($htmlRoot + "pre.html")
+  end
+  
+  def test_Pre_Count
+    assert( $ff.pres.length == 3 )
+  end
+  
+  def test_Pre_Exists
+    assert(! $ff.pre( :id, 'missingPre' ).exists? )
+    assert(! $ff.pre( :index, 33 ).exists? )
+    
+    assert( $ff.pre( :id, '1' ).exists? )
+    assert( $ff.pre( :id, /[3-9]/ ).exists? )
+    
+    assert(! $ff.pre( :id, /missing_pre/ ).exists? )
+    
+    assert( $ff.pre( :index, 1 ).exists? )
+    assert( $ff.pre( :index, 2 ).exists? )
+    assert( $ff.pre( :index, 3 ).exists? )
+    
+    assert( $ff.pre( :name, '3' ).exists? )
+    assert(! $ff.pre( :name, "name_missing" ).exists? )
+  end
+  
+  def test_simple_access
+    pre = $ff.pre( :index, 1 )
+    assert( pre.text.include?( "simple pre space" ) )
+    assert(! pre.text.include?( "A second block" ) )
+    
+    pre = $ff.pre( :index, 2 )
+    assert( pre.text.include?( "A second block" ) )
+    assert(! pre.text.include?( "this is the last block" ) )
+    
+    pre = $ff.pre( :index, 3 )
+    assert( pre.text.include?( "continue    to work" ) )
+    assert(! pre.text.include?( "Pre Tag Test" ) )
+    
+  end
+  
+end
+
+
+class TC_Pres_Display < Test::Unit::TestCase
+  include FireWatir
+  include MockStdoutTestCase
+
+  def test_showPres
+    $ff.goto($htmlRoot + "pre.html")
+    $stdout = @mockout
+    $ff.showPres
+    assert_equal(<<END_OF_MESSAGE, @mockout)
+There are 3 pres
+pre:     id: 1
+       name: 1
+      index: 1
+pre:     id: 2
+       name: 2
+      index: 2
+pre:     id: 3
+       name: 3
+      index: 3
+END_OF_MESSAGE
+  end
+end

data/unittests/radios_test.rb

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

data/unittests/radios_xpath_test.rb

@@ -0,0 +1,101 @@
+# feature tests for Radio Buttons
+# revision: $Revision: 1.0 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Radios_XPath < Test::Unit::TestCase
+    include FireWatir
+
+    def setup()
+        $ff.goto($htmlRoot + "radioButtons1.html")
+    end
+   
+    def test_Radio_Exists
+       assert($ff.radio(:xpath, "//input[@name='box1']").exists?)   
+       assert($ff.radio(:xpath, "//input[@id='box5']").exists?)   
+
+       assert_false($ff.radio(:xpath, "//input[@name='missingname']").exists?)   
+       assert_false($ff.radio(:xpath, "//input[@id='missingid']").exists?)   
+    end
+
+    def test_Radio_Enabled
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@name='noName']").enabled?  }  
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@id='noName']").enabled?  }  
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@name='box4' and @value='6']").enabled?  }  
+
+       assert_false($ff.radio(:xpath, "//input[@name='box2']").enabled?)   
+       assert($ff.radio(:xpath, "//input[@id='box5']").enabled?)   
+       assert($ff.radio(:xpath, "//input[@name='box1']").enabled?)   
+    end
+
+   def test_little
+       assert_false($ff.button(:xpath,"//input[@name='foo']").enabled?)
+   end
+
+   def test_onClick
+       assert_false($ff.button(:xpath,"//input[@name='foo']").enabled?)          
+       $ff.radio(:xpath, "//input[@name='box5' and @value='1']").set
+       assert($ff.button(:xpath,"//input[@name='foo']").enabled?)        
+
+       $ff.radio(:xpath, "//input[@name='box5' and @value='2']").set
+       assert_false($ff.button(:xpath,"//input[@name='foo']").enabled?)
+    end
+
+    def test_Radio_isSet
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@name='noName']").isSet?  }  
+
+       puts "radio 1 is set : #{ $ff.radio(:xpath, "//input[@name='box1']").isSet? } "
+       assert_false($ff.radio(:xpath, "//input[@name='box1']").isSet?)   
+
+       assert($ff.radio(:xpath, "//input[@name='box3']").isSet?)   
+       assert_false($ff.radio(:xpath, "//input[@name='box2']").isSet?)   
+
+       assert( $ff.radio(:xpath, "//input[@name='box4' and @value='1']").isSet?)   
+       assert_false($ff.radio(:xpath, "//input[@name='box4' and @value='2']").isSet?)   
+    end
+
+    def test_radio_clear
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@name='noName']").clear  }  
+
+       $ff.radio(:xpath, "//input[@name='box1']").clear
+       assert_false($ff.radio(:xpath, "//input[@name='box1']").isSet?)   
+
+       assert_raises(ObjectDisabledException, "ObjectDisabledException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@name='box2']").clear  } 
+       assert_false($ff.radio(:xpath, "//input[@name='box2']").isSet?)   
+
+       $ff.radio(:xpath, "//input[@name='box3']").clear
+       assert_false($ff.radio(:xpath, "//input[@name='box3']").isSet?)   
+
+       $ff.radio(:xpath, "//input[@name='box4' and @value='1']").clear
+       assert_false($ff.radio(:xpath, "//input[@name='box4' and @value='1']").isSet?)   
+    end
+
+    def test_radio_getState
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@name='noName']").getState  }  
+
+       assert_equal( false , $ff.radio(:xpath, "//input[@name='box1']").getState )   
+       assert_equal( true , $ff.radio(:xpath, "//input[@name='box3']").getState)   
+
+       # radioes that have the same name but different values
+       assert_equal( false , $ff.radio(:xpath, "//input[@name='box4' and @value='2']").getState )   
+       assert_equal( true , $ff.radio(:xpath, "//input[@name='box4' and @value='1']").getState)   
+    end
+
+    def test_radio_set
+       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@name='noName']").set  }  
+       $ff.radio(:xpath, "//input[@name='box1']").set
+       assert($ff.radio(:xpath, "//input[@name='box1']").isSet?)   
+
+       assert_raises(ObjectDisabledException, "ObjectDisabledException was supposed to be thrown" ) {   $ff.radio(:xpath, "//input[@name='box2']").set  }  
+
+       $ff.radio(:xpath, "//input[@name='box3']").set
+       assert($ff.radio(:xpath, "//input[@name='box3']").isSet?)   
+
+       # radioes that have the same name but different values
+       $ff.radio(:xpath, "//input[@name='box4' and @value='3']").set
+       assert($ff.radio(:xpath, "//input[@name='box4' and @value='3']").isSet?)   
+    end
+
+end
+