watir 1.4.1 → 1.5.2

data/unittests/buttons_xpath_test.rb

@@ -0,0 +1,69 @@
+# feature tests for Buttons
+# revision: $Revision: 962 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Buttons_XPath < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "buttons1.html")
+  end
+  
+  def test_properties
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@name='noName']/").id   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@name='noName']/").name   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@name='noName']/").disabled   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@name='noName']/").type   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@name='noName']/").value   }  
+    
+    assert_equal("b1"  , $ie.button(:xpath, "//input[@id='b2']/").name  ) 
+    assert_equal("b2"  , $ie.button(:xpath, "//input[@id='b2']/").id  ) 
+    assert_equal("button"  , $ie.button(:xpath, "//input[@id='b2']/").type  ) 
+  end
+  
+  def test_button_using_default
+    # since most of the time, a button will be accessed based on its caption, there is a default way of accessing it....
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@value='Missing Caption']/").click   }  
+    
+    $ie.button(:xpath, "//input[@value='Click Me']/").click
+    assert($ie.text.include?("PASS") )
+  end
+  
+  def test_Button_click_only
+    $ie.button(:xpath, "//input[@value='Click Me']/").click
+    assert($ie.text.include?("PASS") )
+  end
+  
+  def test_button_click
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@value='Missing Caption']/").click   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@id='MissingId']/").click   }  
+    
+    assert_raises(ObjectDisabledException , "ObjectDisabledException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@value='Disabled Button']/").click   }  
+    
+    $ie.button(:xpath, "//input[@value='Click Me']/").click
+    assert($ie.text.include?("PASS") )
+  end
+  
+  def test_Button_Exists
+    assert($ie.button(:xpath, "//input[@value='Click Me']/").exists?)   
+    assert($ie.button(:xpath, "//input[@value='Submit']/").exists?)   
+    assert($ie.button(:xpath, "//input[@name='b1']/").exists?)   
+    assert($ie.button(:xpath, "//input[@id='b2']/").exists?)   
+    
+    assert(!$ie.button(:xpath, "//input[@value='Missing Caption']/").exists?)   
+    assert(!$ie.button(:xpath, "//input[@name='missingname']/").exists?)   
+    assert(!$ie.button(:xpath, "//input[@id='missingid']/").exists?)   
+  end
+  
+  def test_Button_Enabled
+    assert($ie.button(:xpath, "//input[@value='Click Me']/").enabled?)   
+    assert(!$ie.button(:xpath, "//input[@value='Disabled Button']/").enabled?)   
+    assert(!$ie.button(:xpath, "//input[@name='b4']/").enabled?)   
+    assert(!$ie.button(:xpath, "//input[@id='b5']/").enabled?)   
+    
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.button(:xpath, "//input[@name='noName']/").enabled?  }  
+  end
+end
+

data/unittests/checkbox_test.rb

@@ -1,149 +1,162 @@
 # feature tests for Check Boxes
-# revision: $Revision: 1.30 $
+# revision: $Revision: 1164 $
 
 $LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
 require 'unittests/setup'
 
 class TC_CheckBox < Test::Unit::TestCase
-    include Watir
-
-    def setup()
-        $ie.goto($htmlRoot + "checkboxes1.html")
-    end
-
-    def test_checkbox_properties
-       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").id   }  
-       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").name   }  
-       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").disabled   }  
-       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").type   }  
-       assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").value   }  
-
-       assert_equal("box1"  , $ie.checkbox(:index, 1).name  ) 
-       assert_equal(""  , $ie.checkbox(:index, 1).id  ) 
-       assert_equal("checkbox"  , $ie.checkbox(:index, 1).type  ) 
-       assert_equal("on"  , $ie.checkbox(:index, 1).value  ) 
-       assert_equal(false  , $ie.checkbox(:index, 1).disabled  ) 
-
-       assert_equal("1" , $ie.checkbox(:name,"box4").value )
-       assert_equal("3" , $ie.checkbox(:name,"box4" , 3).value )
-       assert_equal("checkbox" , $ie.checkbox(:name,"box4" , 3).type )
-       assert_equal(false , $ie.checkbox(:name,"box4" , 3).disabled )
-       assert_equal("" , $ie.checkbox(:name,"box4" , 3).id )
-
-       assert_equal("box4-value5" , $ie.checkbox(:name,"box4" , 5).title)
-       assert_equal("" , $ie.checkbox(:name,"box4" , 4).title)
-    end
-
-    def test_onClick
-       assert_false($ie.button(:value , "foo").enabled?)
-       $ie.checkBox(:name, "box5").set
-       assert($ie.button(:value , "foo").enabled?)
-
-       $ie.checkBox(:name, "box5").clear
-       assert_false($ie.button(:value , "foo").enabled?)
-
-       $ie.checkBox(:name, "box5").clear
-       assert_false($ie.button(:value , "foo").enabled?)
-    end
-
-    def test_CheckBox_Exists
-       assert($ie.checkBox(:name, "box1").exists?)   
-       assert_false($ie.checkBox(:name, "missing").exists?)   
-
-       assert($ie.checkbox(:name, "box4" , 1).exists?)   
-       assert_false($ie.checkbox(:name, "box4" , 22).exists?)   
-    end
-
-    def test_checkbox_Enabled
-       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").enabled? }  
-       assert_raises(UnknownObjectException) { $ie.checkbox(:id, "noName").enabled? }  
-       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "box4" , 6).enabled? }  
-
-       assert($ie.checkbox(:name, "box1").enabled?)   
-       assert_false($ie.checkbox(:name, "box2").enabled?)   
-
-       assert($ie.checkbox(:name, "box4", 4).enabled?)   
-       assert_false($ie.checkbox(:name, "box4" , 5 ).enabled?)   
-    end
-
-    def test_checkbox_isSet
-       assert_raises(UnknownObjectException ) { $ie.checkbox(:name, "noName").isSet? }  
-
-       assert_false($ie.checkbox(:name, "box1").isSet?)   
-       assert_false($ie.checkbox(:name, "box2").isSet?)   
-       assert($ie.checkbox(:name, "box3").isSet?)   
-
-       assert_false($ie.checkbox(:name, "box4" , 2 ).isSet?)   
-       assert($ie.checkbox(:name, "box4" , 1 ).isSet?)   
-    end
-
-    def test_checkbox_clear
-       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").clear }  
-       $ie.checkbox(:name, "box1").clear
-       assert_false($ie.checkbox(:name, "box1").isSet?)   
-
-       assert_raises(ObjectDisabledException) { $ie.checkbox(:name, "box2").clear } 
-       assert_false($ie.checkbox(:name, "box2").isSet?)   
-
-       $ie.checkbox(:name, "box3").clear
-       assert_false($ie.checkbox(:name, "box3").isSet?)   
-
-       $ie.checkbox(:name, "box4" , 1).clear
-       assert_false($ie.checkbox(:name, "box4" , 1).isSet?)   
-    end
-
-    def test_checkbox_getState
-       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").getState }  
-       assert_equal( false , $ie.checkbox(:name, "box1").getState )   
-       assert_equal( true , $ie.checkbox(:name, "box3").getState)   
-
-       # checkboxes that have the same name but different values
-       assert_equal( false , $ie.checkbox(:name, "box4" , 2).getState )   
-       assert_equal( true , $ie.checkbox(:name, "box4" , 1).getState)   
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "checkboxes1.html")
+  end
+  
+  def test_checkbox_properties
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").id   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").name   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").disabled   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").type   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:name, "noName").value   }  
+    
+    assert_equal("box1"  , $ie.checkbox(:index, 1).name  ) 
+    assert_equal(""  , $ie.checkbox(:index, 1).id  ) 
+    assert_equal("checkbox"  , $ie.checkbox(:index, 1).type  ) 
+    assert_equal("on"  , $ie.checkbox(:index, 1).value  ) 
+    assert_equal(false  , $ie.checkbox(:index, 1).disabled  ) 
+    
+    assert_equal("check_box_style" , $ie.checkbox(:name, "box1").class_name) 
+    assert_equal("" , $ie.checkbox(:name, "box2").class_name) 
+    
+    assert_equal("1" , $ie.checkbox(:name,"box4").value )
+    assert_equal("3" , $ie.checkbox(:name,"box4" , 3).value )
+    assert($ie.checkbox(:name, "box6").exists?)    
+    assert_equal("checkbox" , $ie.checkbox(:name,"box4" , 3).type )
+    assert_equal("checkbox" , $ie.checkbox(:name,"box6" , 'Milk').type )
+    assert_equal(false , $ie.checkbox(:name,"box4" , 3).disabled )
+    assert_equal("" , $ie.checkbox(:name,"box4" , 3).id )
+    
+    assert_equal("box4-value5" , $ie.checkbox(:name,"box4" , 5).title)
+    assert_equal("" , $ie.checkbox(:name,"box4" , 4).title)
+  end
+  
+  def test_onClick
+    assert(!$ie.button(:value , "foo").enabled?)
+    $ie.checkBox(:name, "box5").set
+    assert($ie.button(:value , "foo").enabled?)
+    
+    $ie.checkBox(:name, "box5").clear
+    assert(!$ie.button(:value , "foo").enabled?)
+    
+    $ie.checkBox(:name, "box5").clear
+    assert(!$ie.button(:value , "foo").enabled?)
+  end
+  
+  def test_CheckBox_Exists
+    assert($ie.checkBox(:name, "box1").exists?)   
+    assert(!$ie.checkBox(:name, "missing").exists?)   
+    
+    assert($ie.checkbox(:name, "box4" , 1).exists?)   
+    assert(!$ie.checkbox(:name, "box4" , 22).exists?)   
+  end
+  
+  def test_checkbox_Enabled
+    assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").enabled? }  
+    assert_raises(UnknownObjectException) { $ie.checkbox(:id, "noName").enabled? }  
+    assert_raises(UnknownObjectException) { $ie.checkbox(:name, "box4" , 6).enabled? }  
+    
+    assert($ie.checkbox(:name, "box1").enabled?)   
+    assert(!$ie.checkbox(:name, "box2").enabled?)   
+    
+    assert($ie.checkbox(:name, "box4", 4).enabled?)   
+    assert(!$ie.checkbox(:name, "box4" , 5 ).enabled?)   
+  end
+  
+  def test_checkbox_isSet
+    assert_raises(UnknownObjectException ) { $ie.checkbox(:name, "noName").isSet? }  
+    
+    assert(!$ie.checkbox(:name, "box1").isSet?)   
+    assert(!$ie.checkbox(:name, "box2").isSet?)   
+    assert($ie.checkbox(:name, "box3").isSet?)   
+    
+    assert(!$ie.checkbox(:name, "box4" , 2 ).isSet?)   
+    assert($ie.checkbox(:name, "box4" , 1 ).isSet?)  
+    assert(!$ie.checkbox(:name, 'box6', 'Milk').isSet?)     
+  end
+  
+  def test_checkbox_clear
+    assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").clear }  
+    $ie.checkbox(:name, "box1").clear
+    assert(!$ie.checkbox(:name, "box1").isSet?)   
+    
+    assert_raises(ObjectDisabledException) { $ie.checkbox(:name, "box2").clear } 
+    assert(!$ie.checkbox(:name, "box2").isSet?)   
+    
+    $ie.checkbox(:name, "box3").clear
+    assert(!$ie.checkbox(:name, "box3").isSet?)   
+    
+    $ie.checkbox(:name, "box4" , 1).clear
+    assert(!$ie.checkbox(:name, "box4" , 1).isSet?)   
+
+    $ie.checkbox(:name, "box6" , 'Tea').clear
+    assert(!$ie.checkbox(:name, "box6" , 'Tea').isSet?)   
+    
+  end
+  
+  def test_checkbox_getState
+    assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").getState }  
+    assert_equal( false , $ie.checkbox(:name, "box1").getState )   
+    assert_equal( true , $ie.checkbox(:name, "box3").getState)   
+    
+    # checkboxes that have the same name but different values
+    assert_equal( false , $ie.checkbox(:name, "box4" , 2).getState )   
+    assert_equal( true , $ie.checkbox(:name, "box4" , 1).getState)   
+  end
+  
+  def test_checkbox_set
+    assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").set }  
+    $ie.checkbox(:name, "box1").set
+    assert($ie.checkbox(:name, "box1").isSet?)   
+    
+    assert_raises(ObjectDisabledException) { $ie.checkbox(:name, "box2").set }  
+    
+    $ie.checkbox(:name, "box3").set
+    assert($ie.checkbox(:name, "box3").isSet?)   
+    
+    # checkboxes that have the same name but different values
+    $ie.checkbox(:name, "box4" , 3).set
+    assert($ie.checkbox(:name, "box4" , 3).isSet?)   
+    
+    # test set using the optinal true/false
+    # assumes the checkbox is already checked
+    $ie.checkbox(:name, "box1").set( false )
+    assert(!$ie.checkbox(:name, "box1").isSet?)   
+    
+    $ie.checkbox(:name, "box1").set( true )
+    assert($ie.checkbox(:name, "box1").isSet?)   
+
+    $ie.checkbox(:name, "box6", 'Tea').set( false )
+    assert(!$ie.checkbox(:name, "box6", 'Tea').isSet?)   
+    
+    $ie.checkbox(:name, "box6", 'Tea').set( true )
+    assert($ie.checkbox(:name, "box6", 'Tea').isSet?)
+    
+  end
+  
+  def test_checkbox_iterator
+    
+    assert_equal(13, $ie.checkboxes.length)
+    assert_equal("box1" , $ie.checkboxes[1].name )
+    
+    index=1
+    $ie.checkboxes.each do |c|
+      assert_equal( $ie.checkbox(:index, index).name , c.name )
+      assert_equal( $ie.checkbox(:index, index).id, c.id )
+      assert_equal( $ie.checkbox(:index, index).value, c.value )
+      index+=1
     end
-
-    def test_checkbox_set
-       assert_raises(UnknownObjectException) { $ie.checkbox(:name, "noName").set }  
-       $ie.checkbox(:name, "box1").set
-       assert($ie.checkbox(:name, "box1").isSet?)   
-
-       assert_raises(ObjectDisabledException) { $ie.checkbox(:name, "box2").set }  
-
-       $ie.checkbox(:name, "box3").set
-       assert($ie.checkbox(:name, "box3").isSet?)   
-
-       # checkboxes that have the same name but different values
-       $ie.checkbox(:name, "box4" , 3).set
-       assert($ie.checkbox(:name, "box4" , 3).isSet?)   
-
-       # test set using the optinal true/false
-       # assumes the checkbox is already checked
-       $ie.checkbox(:name, "box1").set( false )
-       assert_false($ie.checkbox(:name, "box1").isSet?)   
-
-       $ie.checkbox(:name, "box1").set( true )
-       assert($ie.checkbox(:name, "box1").isSet?)   
-
-
-
-
-    end
-
-    def test_checkbox_iterator
-
-        assert_equal(11, $ie.checkboxes.length)
-        assert_equal("box1" , $ie.checkboxes[1].name )
-
-        index=1
-        $ie.checkboxes.each do |c|
-            assert_equal( $ie.checkbox(:index, index).name , c.name )
-            assert_equal( $ie.checkbox(:index, index).id, c.id )
-            assert_equal( $ie.checkbox(:index, index).value, c.value )
-            index+=1
-        end
-        assert_equal(index-1, $ie.checkboxes.length)
- 
-    end
-
-
+    assert_equal(index-1, $ie.checkboxes.length)
+    
+  end
+  
+  
 end

data/unittests/checkbox_xpath_test.rb

@@ -0,0 +1,107 @@
+# feature tests for Check Boxes
+# revision: $Revision: 962 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_CheckBox_XPath < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "checkboxes1.html")
+  end
+  
+  def test_checkbox_properties
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:xpath , "//input[@name='noName']/").id   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:xpath , "//input[@name='noName']/").name   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:xpath , "//input[@name='noName']/").disabled   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:xpath , "//input[@name='noName']/").type   }  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.checkbox(:xpath , "//input[@name='noName']/").value   }  
+    
+    assert_equal("1" , $ie.checkbox(:xpath , "//input[@name='box4']/").value )
+    assert_equal("3" , $ie.checkbox(:xpath , "//input[@name='box4' and @value='3']/").value )
+    assert_equal("checkbox" , $ie.checkbox(:xpath , "//input[@name='box4' and @value='3']/").type )
+    assert_equal(false , $ie.checkbox(:xpath , "//input[@name='box4' and @value='3']/").disabled )
+    assert_equal("" , $ie.checkbox(:xpath , "//input[@name='box4' and @value='3']/").id )
+    
+    assert_equal("box4-value5" , $ie.checkbox(:xpath , "//input[@name='box4' and @value='5']/").title)
+    assert_equal("" , $ie.checkbox(:xpath , "//input[@name='box4' and @value='4']/").title)
+  end
+  
+  def test_CheckBox_Exists
+    assert($ie.checkbox(:xpath , "//input[@name='box4' and @value='1']/").exists?)   
+    assert(!$ie.checkbox(:xpath , "//input[@name='box4' and @value='22']/").exists?)   
+  end
+  
+  def test_checkbox_Enabled
+    assert_raises(UnknownObjectException) { $ie.checkbox(:xpath , "//input[@name='noName']/").enabled? }  
+    assert_raises(UnknownObjectException) { $ie.checkbox(:xpath , "//input[@id='noName']/").enabled? }  
+    assert_raises(UnknownObjectException) { $ie.checkbox(:xpath , "//input[@name='box4' and @value='6']/").enabled? }  
+    
+    assert($ie.checkbox(:xpath , "//input[@name='box1']/").enabled?)   
+    assert(!$ie.checkbox(:xpath , "//input[@name='box2']/").enabled?)   
+    
+    assert($ie.checkbox(:xpath , "//input[@name='box4' and @value='4']/").enabled?)   
+    assert(!$ie.checkbox(:xpath , "//input[@name='box4' and @value='5']/").enabled?)   
+  end
+  
+  def test_checkbox_isSet
+    assert_raises(UnknownObjectException ) { $ie.checkbox(:xpath , "//input[@name='noName']/").isSet? }  
+    
+    assert(!$ie.checkbox(:xpath , "//input[@name='box1']/").isSet?)   
+    assert(!$ie.checkbox(:xpath , "//input[@name='box2']/").isSet?)   
+    assert($ie.checkbox(:xpath , "//input[@name='box3']/").isSet?)   
+    
+    assert(!$ie.checkbox(:xpath , "//input[@name='box4' and @value='2']/").isSet?)   
+    assert($ie.checkbox(:xpath , "//input[@name='box4' and @value='1']/").isSet?)   
+  end
+  
+  def test_checkbox_clear
+    assert_raises(UnknownObjectException) { $ie.checkbox(:xpath , "//input[@name='noName']/").clear }  
+    $ie.checkbox(:xpath , "//input[@name='box1']/").clear
+    assert(!$ie.checkbox(:xpath , "//input[@name='box1']/").isSet?)   
+    
+    assert_raises(ObjectDisabledException) { $ie.checkbox(:xpath , "//input[@name='box2']/").clear } 
+    assert(!$ie.checkbox(:xpath , "//input[@name='box2']/").isSet?)   
+    
+    $ie.checkbox(:xpath , "//input[@name='box3']/").clear
+    assert(!$ie.checkbox(:xpath , "//input[@name='box3']/").isSet?)   
+    
+    $ie.checkbox(:xpath , "//input[@name='box4' and @value='1']/").clear
+    assert(!$ie.checkbox(:xpath , "//input[@name='box4' and @value='1']/").isSet?)   
+  end
+  
+  def test_checkbox_getState
+    assert_raises(UnknownObjectException) { $ie.checkbox(:xpath , "//input[@name='noName']/").getState }  
+    assert_equal( false , $ie.checkbox(:xpath , "//input[@name='box1']/").getState )   
+    assert_equal( true , $ie.checkbox(:xpath , "//input[@name='box3']/").getState)   
+    
+    # checkboxes that have the same name but different values
+    assert_equal( false , $ie.checkbox(:xpath , "//input[@name='box4' and @value='2']/").getState )   
+    assert_equal( true , $ie.checkbox(:xpath , "//input[@name='box4' and @value='1']/").getState)   
+  end
+  
+  def test_checkbox_set
+    assert_raises(UnknownObjectException) { $ie.checkbox(:xpath , "//input[@name='noName']/").set }  
+    $ie.checkbox(:xpath , "//input[@name='box1']/").set
+    assert($ie.checkbox(:xpath , "//input[@name='box1']/").isSet?)   
+    
+    assert_raises(ObjectDisabledException) { $ie.checkbox(:xpath , "//input[@name='box2']/").set }  
+    
+    $ie.checkbox(:xpath , "//input[@name='box3']/").set
+    assert($ie.checkbox(:xpath , "//input[@name='box3']/").isSet?)   
+    
+    # checkboxes that have the same name but different values
+    $ie.checkbox(:xpath , "//input[@name='box4' and @value='3']/").set
+    assert($ie.checkbox(:xpath , "//input[@name='box4' and @value='3']/").isSet?)   
+    
+    # test set using the optinal true/false
+    # assumes the checkbox is already checked
+    $ie.checkbox(:xpath , "//input[@name='box1']/").set( false )
+    assert(!$ie.checkbox(:xpath , "//input[@name='box1']/").isSet?)   
+    
+    $ie.checkbox(:xpath , "//input[@name='box1']/").set( true )
+    assert($ie.checkbox(:xpath , "//input[@name='box1']/").isSet?)   
+    
+  end
+end