watir 1.6.5 → 1.6.6.rc1

data/rakefile.rb

@@ -0,0 +1,70 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/packagetask'
+require 'rake/rdoctask'
+require 'rake/gempackagetask'
+
+require 'watir-rdoc'
+
+$VERBOSE = nil
+desc 'Generate Watir API Documentation'
+Rake::RDocTask.new('rdoc') do |rdoc| 
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.options += $WATIR_RDOC_OPTIONS
+  rdoc.rdoc_files.include('lib/watir/ie.rb')
+  $WATIR_EXTRA_RDOC_FILES.each do |file|
+    rdoc.rdoc_files.include(file)
+  end
+  rdoc.rdoc_files.include('lib/watir/contrib/*.rb')  
+  rdoc.rdoc_files.include('lib/watir/*.rb')   
+  rdoc.rdoc_files.exclude('lib/watir/camel_case.rb')
+end
+
+CLEAN << 'pkg' << 'rdoc'
+
+task :default => :package
+
+if defined? Rake::GemPackageTask
+
+  gemspec = eval(File.read('watir.gemspec'))
+
+  Rake::GemPackageTask.new(gemspec) do |p|
+    p.gem_spec = gemspec
+    p.need_tar = false
+    p.need_zip = false
+  end
+
+else
+  puts 'Warning: without Rubygems packaging tasks are not available'
+end
+
+desc "Create the bonus files zip"
+task :bonus_zip => [:rdoc] do
+
+  begin
+    gem 'rubyzip'
+    require 'zip/zip'
+  rescue LoadError
+    puts "rubyzip needs to be installed: gem install rubyzip."
+    raise
+  end
+  
+  version = File.read("VERSION").strip rescue "0.0.0"
+  bonus_zip = "pkg/watir-bonus-#{version}.zip"
+
+  if File.exist?(bonus_zip)
+    File.delete(bonus_zip)
+  end
+  if !File.directory?("pkg")
+    Dir.mkdir("pkg")
+  end
+  Zip::ZipFile::open(bonus_zip, true) do |zf|
+    Dir['{doc,rdoc,examples,unittests}/**/*'].each { |f| zf.add(f, f) }
+  end
+  
+  puts "  Successfully built BonusZip"
+  puts "  File: #{bonus_zip}"
+  
+end
+

data/unittests/all_tests.rb

@@ -1,10 +1,10 @@
-TOPDIR = File.join(File.dirname(__FILE__), '..')
-$LOAD_PATH.unshift TOPDIR
-
-require 'unittests/setup.rb'
-
-Dir.chdir TOPDIR
-$all_tests.each {|x| require x}
-
-
-
+TOPDIR = File.join(File.dirname(__FILE__), '..')
+$LOAD_PATH.unshift TOPDIR
+
+require 'unittests/setup.rb'
+
+Dir.chdir TOPDIR
+$all_tests.each {|x| require x}
+
+
+

data/unittests/buttons_xpath_test.rb

@@ -1,69 +1,69 @@
-# feature tests for Buttons
-# revision: $Revision$
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_Buttons_XPath < Test::Unit::TestCase
-  include Watir::Exception
-  
-  def setup
-    goto_page "buttons1.html"
-  end
-  
-  def test_properties
-    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").id   }  
-    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").name   }  
-    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").disabled   }  
-    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").type   }  
-    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").value   }  
-    
-    assert_equal("b1"  , browser.button(:xpath, "//input[@id='b2']/").name  ) 
-    assert_equal("b2"  , browser.button(:xpath, "//input[@id='b2']/").id  ) 
-    assert_equal("button"  , browser.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) {   browser.button(:xpath, "//input[@value='Missing Caption']/").click   }  
-    
-    browser.button(:xpath, "//input[@value='Click Me']/").click
-    assert(browser.text.include?("PASS") )
-  end
-  
-  def test_Button_click_only
-    browser.button(:xpath, "//input[@value='Click Me']/").click
-    assert(browser.text.include?("PASS") )
-  end
-  
-  def test_button_click
-    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@value='Missing Caption']/").click   }  
-    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@id='MissingId']/").click   }  
-    
-    assert_raises(ObjectDisabledException , "ObjectDisabledException was supposed to be thrown" ) {   browser.button(:xpath, "//input[@value='Disabled Button']/").click   }  
-    
-    browser.button(:xpath, "//input[@value='Click Me']/").click
-    assert(browser.text.include?("PASS") )
-  end
-  
-  def test_Button_Exists
-    assert(browser.button(:xpath, "//input[@value='Click Me']/").exists?)   
-    assert(browser.button(:xpath, "//input[@value='Submit']/").exists?)   
-    assert(browser.button(:xpath, "//input[@name='b1']/").exists?)   
-    assert(browser.button(:xpath, "//input[@id='b2']/").exists?)   
-    
-    assert_false(browser.button(:xpath, "//input[@value='Missing Caption']/").exists?)   
-    assert_false(browser.button(:xpath, "//input[@name='missingname']/").exists?)   
-    assert_false(browser.button(:xpath, "//input[@id='missingid']/").exists?)   
-  end
-  
-  def test_Button_Enabled
-    assert(browser.button(:xpath, "//input[@value='Click Me']/").enabled?)   
-    assert_false(browser.button(:xpath, "//input[@value='Disabled Button']/").enabled?)   
-    assert_false(browser.button(:xpath, "//input[@name='b4']/").enabled?)   
-    assert_false(browser.button(:xpath, "//input[@id='b5']/").enabled?)   
-    
-    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").enabled?  }  
-  end
-end
-
+# feature tests for Buttons
+# revision: $Revision$
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_Buttons_XPath < Test::Unit::TestCase
+  include Watir::Exception
+  
+  def setup
+    goto_page "buttons1.html"
+  end
+  
+  def test_properties
+    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").id   }  
+    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").name   }  
+    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").disabled   }  
+    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").type   }  
+    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").value   }  
+    
+    assert_equal("b1"  , browser.button(:xpath, "//input[@id='b2']/").name  ) 
+    assert_equal("b2"  , browser.button(:xpath, "//input[@id='b2']/").id  ) 
+    assert_equal("button"  , browser.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) {   browser.button(:xpath, "//input[@value='Missing Caption']/").click   }  
+    
+    browser.button(:xpath, "//input[@value='Click Me']/").click
+    assert(browser.text.include?("PASS") )
+  end
+  
+  def test_Button_click_only
+    browser.button(:xpath, "//input[@value='Click Me']/").click
+    assert(browser.text.include?("PASS") )
+  end
+  
+  def test_button_click
+    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@value='Missing Caption']/").click   }  
+    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@id='MissingId']/").click   }  
+    
+    assert_raises(ObjectDisabledException , "ObjectDisabledException was supposed to be thrown" ) {   browser.button(:xpath, "//input[@value='Disabled Button']/").click   }  
+    
+    browser.button(:xpath, "//input[@value='Click Me']/").click
+    assert(browser.text.include?("PASS") )
+  end
+  
+  def test_Button_Exists
+    assert(browser.button(:xpath, "//input[@value='Click Me']/").exists?)   
+    assert(browser.button(:xpath, "//input[@value='Submit']/").exists?)   
+    assert(browser.button(:xpath, "//input[@name='b1']/").exists?)   
+    assert(browser.button(:xpath, "//input[@id='b2']/").exists?)   
+    
+    assert_false(browser.button(:xpath, "//input[@value='Missing Caption']/").exists?)   
+    assert_false(browser.button(:xpath, "//input[@name='missingname']/").exists?)   
+    assert_false(browser.button(:xpath, "//input[@id='missingid']/").exists?)   
+  end
+  
+  def test_Button_Enabled
+    assert(browser.button(:xpath, "//input[@value='Click Me']/").enabled?)   
+    assert_false(browser.button(:xpath, "//input[@value='Disabled Button']/").enabled?)   
+    assert_false(browser.button(:xpath, "//input[@name='b4']/").enabled?)   
+    assert_false(browser.button(:xpath, "//input[@id='b5']/").enabled?)   
+    
+    assert_raises(UnknownObjectException) {   browser.button(:xpath, "//input[@name='noName']/").enabled?  }  
+  end
+end
+

data/unittests/checkbox_test.rb

@@ -1,179 +1,179 @@
-# feature tests for Check Boxes
-# revision: $Revision$
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_CheckBox < Test::Unit::TestCase
-  include Watir::Exception
-  
-  def setup
-    goto_page "checkboxes1.html"
-  end
-
-  def test_checkbox_exceptions
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").id }  
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").name }  
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").disabled }  
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").type }  
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").value }  
-  end
-  
-  def test_checkbox_properties_with_index
-    assert_equal("box1", browser.checkbox(:index, 1).name ) 
-    assert_equal("", browser.checkbox(:index, 1).id ) 
-    assert_equal("checkbox", browser.checkbox(:index, 1).type ) 
-    assert_equal("on", browser.checkbox(:index, 1).value ) 
-    assert_equal(false, browser.checkbox(:index, 1).disabled ) 
-  end
-  def test_checkbox_properties
-    assert_equal("check_box_style", browser.checkbox(:name, "box1").class_name) 
-    assert_equal("", browser.checkbox(:name, "box2").class_name) 
-    
-    assert_equal("1", browser.checkbox(:name, "box4").value )
-    assert_equal("3", browser.checkbox(:name, "box4", 3).value )
-    assert(browser.checkbox(:name, "box6").exists?)    
-    assert_equal("checkbox", browser.checkbox(:name, "box4", 3).type )
-    assert_equal("checkbox", browser.checkbox(:name, "box6", 'Milk').type )
-    assert_equal(false, browser.checkbox(:name, "box4", 3).disabled )
-    assert_equal("", browser.checkbox(:name, "box4", 3).id )
-    
-    assert_equal("box4-value5", browser.checkbox(:name, "box4", 5).title)
-    assert_equal("", browser.checkbox(:name,"box4", 4).title)
-  end
-  
-  def test_onClick
-    assert_false(browser.button(:value, "foo").enabled?)
-    browser.checkbox(:name, "box5").set
-    assert(browser.button(:value, "foo").enabled?)
-    
-    browser.checkbox(:name, "box5").clear
-    assert_false(browser.button(:value, "foo").enabled?)
-    
-    browser.checkbox(:name, "box5").clear
-    assert_false(browser.button(:value, "foo").enabled?)
-  end
-  
-  def test_CheckBox_Exists
-    assert(browser.checkbox(:name, "box1").exists?)   
-    assert_false(browser.checkbox(:name, "missing").exists?)   
-    
-    assert(browser.checkbox(:name, "box4", 1).exists?)   
-    assert_false(browser.checkbox(:name, "box4", 22).exists?)   
-
-    assert(browser.checkbox(:name, "box4", /[0-9]/).exists?)   
-    assert_false(browser.checkbox(:name, "box4", /\d\d\d/).exists?)   
-  end
-  
-  def test_checkbox_Enabled
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").enabled? }  
-    assert_raises(UnknownObjectException) { browser.checkbox(:id, "noName").enabled? }  
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "box4" , 6).enabled? }  
-    
-    assert(browser.checkbox(:name, "box1").enabled?)   
-    assert_false(browser.checkbox(:name, "box2").enabled?)   
-    
-    assert(browser.checkbox(:name, "box4", 4).enabled?)   
-    assert_false(browser.checkbox(:name, "box4", 5 ).enabled?)   
-  end
-  
-  def test_checkbox_isSet
-    assert_raises(UnknownObjectException ) { browser.checkbox(:name, "noName").isSet? }  
-    
-    assert_false(browser.checkbox(:name, "box1").isSet?)   
-    assert_false(browser.checkbox(:name, "box2").isSet?)   
-    assert(browser.checkbox(:name, "box3").isSet?)   
-    
-    assert_false(browser.checkbox(:name, "box4", 2 ).isSet?)   
-    assert(browser.checkbox(:name, "box4", 1 ).isSet?)  
-
-    assert_false(browser.checkbox(:name, 'box6', 'Milk').isSet?)     
-  end
-  
-  def test_checkbox_clear
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").clear }  
-    browser.checkbox(:name, "box1").clear
-    assert_false(browser.checkbox(:name, "box1").isSet?)   
-    
-    assert_raises(ObjectDisabledException) { browser.checkbox(:name, "box2").clear } 
-    assert_false(browser.checkbox(:name, "box2").isSet?)   
-    
-    browser.checkbox(:name, "box3").clear
-    assert_false(browser.checkbox(:name, "box3").isSet?)   
-    
-    browser.checkbox(:name, "box4" , 1).clear
-    assert_false(browser.checkbox(:name, "box4", 1).isSet?)   
-
-    browser.checkbox(:name, "box6" , 'Tea').clear
-    assert_false(browser.checkbox(:name, "box6", 'Tea').isSet?)   
-  end
-  
-  def test_checkbox_getState
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").getState }  
-    assert_equal( false, browser.checkbox(:name, "box1").getState )   
-    assert_equal( true, browser.checkbox(:name, "box3").getState)   
-    
-    # checkboxes that have the same name but different values
-    assert_equal( false, browser.checkbox(:name, "box4", 2).getState )   
-    assert_equal( true, browser.checkbox(:name, "box4", 1).getState)   
-  end
-  
-  def test_checkbox_set
-    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").set }  
-    browser.checkbox(:name, "box1").set
-    assert(browser.checkbox(:name, "box1").isSet?)   
-    
-    assert_raises(ObjectDisabledException) { browser.checkbox(:name, "box2").set }  
-    
-    browser.checkbox(:name, "box3").set
-    assert(browser.checkbox(:name, "box3").isSet?)   
-    
-    # checkboxes that have the same name but different values
-    browser.checkbox(:name, "box4", 3).set
-    assert(browser.checkbox(:name, "box4", 3).isSet?)   
-    
-    # test set using the optinal true/false
-    # assumes the checkbox is already checked
-    browser.checkbox(:name, "box1").set( false )
-    assert_false(browser.checkbox(:name, "box1").isSet?)   
-    
-    browser.checkbox(:name, "box1").set( true )
-    assert(browser.checkbox(:name, "box1").isSet?)   
-
-    browser.checkbox(:name, "box6", 'Tea').set( false )
-    assert_false(browser.checkbox(:name, "box6", 'Tea').isSet?)   
-    
-    browser.checkbox(:name, "box6", 'Tea').set( true )
-    assert(browser.checkbox(:name, "box6", 'Tea').isSet?)
-  end
-  
-  def test_checkbox_specifying_value
-    browser.checkbox(:name => "box6", :value => 'Tea').set( false )
-    assert_false(browser.checkbox(:name => "box6", :value => 'Tea').isSet?)
-  end
-
-  def test_checkboxes_access
-    assert_equal("box1" , browser.checkboxes[1].name )
-  end
-  
-  def test_checkbox_iterator
-    assert_equal(13, browser.checkboxes.length)
-    index = 1
-    browser.checkboxes.each do |c|
-      # puts "#{index}: #{c.name}"
-      assert_equal( browser.checkbox(:index, index).name , c.name )
-      assert_equal( browser.checkbox(:index, index).id, c.id )
-      assert_equal( browser.checkbox(:index, index).value, c.value )
-      index += 1
-    end
-    assert_equal(index - 1, browser.checkboxes.length)
-  end
-
-  # bug 217
-  tag_method :test_checkbox_access_by_ole_object, :fails_on_firefox
-  def test_checkbox_access_by_ole_object
-    ole = browser.checkboxes[1].locate
-    browser.checkbox(:ole_object, ole).flash
-  end
-  
-end
+# feature tests for Check Boxes
+# revision: $Revision$
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_CheckBox < Test::Unit::TestCase
+  include Watir::Exception
+  
+  def setup
+    goto_page "checkboxes1.html"
+  end
+
+  def test_checkbox_exceptions
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").id }  
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").name }  
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").disabled }  
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").type }  
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").value }  
+  end
+  
+  def test_checkbox_properties_with_index
+    assert_equal("box1", browser.checkbox(:index, 1).name ) 
+    assert_equal("", browser.checkbox(:index, 1).id ) 
+    assert_equal("checkbox", browser.checkbox(:index, 1).type ) 
+    assert_equal("on", browser.checkbox(:index, 1).value ) 
+    assert_equal(false, browser.checkbox(:index, 1).disabled ) 
+  end
+  def test_checkbox_properties
+    assert_equal("check_box_style", browser.checkbox(:name, "box1").class_name) 
+    assert_equal("", browser.checkbox(:name, "box2").class_name) 
+    
+    assert_equal("1", browser.checkbox(:name, "box4").value )
+    assert_equal("3", browser.checkbox(:name, "box4", 3).value )
+    assert(browser.checkbox(:name, "box6").exists?)    
+    assert_equal("checkbox", browser.checkbox(:name, "box4", 3).type )
+    assert_equal("checkbox", browser.checkbox(:name, "box6", 'Milk').type )
+    assert_equal(false, browser.checkbox(:name, "box4", 3).disabled )
+    assert_equal("", browser.checkbox(:name, "box4", 3).id )
+    
+    assert_equal("box4-value5", browser.checkbox(:name, "box4", 5).title)
+    assert_equal("", browser.checkbox(:name,"box4", 4).title)
+  end
+  
+  def test_onClick
+    assert_false(browser.button(:value, "foo").enabled?)
+    browser.checkbox(:name, "box5").set
+    assert(browser.button(:value, "foo").enabled?)
+    
+    browser.checkbox(:name, "box5").clear
+    assert_false(browser.button(:value, "foo").enabled?)
+    
+    browser.checkbox(:name, "box5").clear
+    assert_false(browser.button(:value, "foo").enabled?)
+  end
+  
+  def test_CheckBox_Exists
+    assert(browser.checkbox(:name, "box1").exists?)   
+    assert_false(browser.checkbox(:name, "missing").exists?)   
+    
+    assert(browser.checkbox(:name, "box4", 1).exists?)   
+    assert_false(browser.checkbox(:name, "box4", 22).exists?)   
+
+    assert(browser.checkbox(:name, "box4", /[0-9]/).exists?)   
+    assert_false(browser.checkbox(:name, "box4", /\d\d\d/).exists?)   
+  end
+  
+  def test_checkbox_Enabled
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").enabled? }  
+    assert_raises(UnknownObjectException) { browser.checkbox(:id, "noName").enabled? }  
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "box4" , 6).enabled? }  
+    
+    assert(browser.checkbox(:name, "box1").enabled?)   
+    assert_false(browser.checkbox(:name, "box2").enabled?)   
+    
+    assert(browser.checkbox(:name, "box4", 4).enabled?)   
+    assert_false(browser.checkbox(:name, "box4", 5 ).enabled?)   
+  end
+  
+  def test_checkbox_isSet
+    assert_raises(UnknownObjectException ) { browser.checkbox(:name, "noName").isSet? }  
+    
+    assert_false(browser.checkbox(:name, "box1").isSet?)   
+    assert_false(browser.checkbox(:name, "box2").isSet?)   
+    assert(browser.checkbox(:name, "box3").isSet?)   
+    
+    assert_false(browser.checkbox(:name, "box4", 2 ).isSet?)   
+    assert(browser.checkbox(:name, "box4", 1 ).isSet?)  
+
+    assert_false(browser.checkbox(:name, 'box6', 'Milk').isSet?)     
+  end
+  
+  def test_checkbox_clear
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").clear }  
+    browser.checkbox(:name, "box1").clear
+    assert_false(browser.checkbox(:name, "box1").isSet?)   
+    
+    assert_raises(ObjectDisabledException) { browser.checkbox(:name, "box2").clear } 
+    assert_false(browser.checkbox(:name, "box2").isSet?)   
+    
+    browser.checkbox(:name, "box3").clear
+    assert_false(browser.checkbox(:name, "box3").isSet?)   
+    
+    browser.checkbox(:name, "box4" , 1).clear
+    assert_false(browser.checkbox(:name, "box4", 1).isSet?)   
+
+    browser.checkbox(:name, "box6" , 'Tea').clear
+    assert_false(browser.checkbox(:name, "box6", 'Tea').isSet?)   
+  end
+  
+  def test_checkbox_getState
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").getState }  
+    assert_equal( false, browser.checkbox(:name, "box1").getState )   
+    assert_equal( true, browser.checkbox(:name, "box3").getState)   
+    
+    # checkboxes that have the same name but different values
+    assert_equal( false, browser.checkbox(:name, "box4", 2).getState )   
+    assert_equal( true, browser.checkbox(:name, "box4", 1).getState)   
+  end
+  
+  def test_checkbox_set
+    assert_raises(UnknownObjectException) { browser.checkbox(:name, "noName").set }  
+    browser.checkbox(:name, "box1").set
+    assert(browser.checkbox(:name, "box1").isSet?)   
+    
+    assert_raises(ObjectDisabledException) { browser.checkbox(:name, "box2").set }  
+    
+    browser.checkbox(:name, "box3").set
+    assert(browser.checkbox(:name, "box3").isSet?)   
+    
+    # checkboxes that have the same name but different values
+    browser.checkbox(:name, "box4", 3).set
+    assert(browser.checkbox(:name, "box4", 3).isSet?)   
+    
+    # test set using the optinal true/false
+    # assumes the checkbox is already checked
+    browser.checkbox(:name, "box1").set( false )
+    assert_false(browser.checkbox(:name, "box1").isSet?)   
+    
+    browser.checkbox(:name, "box1").set( true )
+    assert(browser.checkbox(:name, "box1").isSet?)   
+
+    browser.checkbox(:name, "box6", 'Tea').set( false )
+    assert_false(browser.checkbox(:name, "box6", 'Tea').isSet?)   
+    
+    browser.checkbox(:name, "box6", 'Tea').set( true )
+    assert(browser.checkbox(:name, "box6", 'Tea').isSet?)
+  end
+  
+  def test_checkbox_specifying_value
+    browser.checkbox(:name => "box6", :value => 'Tea').set( false )
+    assert_false(browser.checkbox(:name => "box6", :value => 'Tea').isSet?)
+  end
+
+  def test_checkboxes_access
+    assert_equal("box1" , browser.checkboxes[1].name )
+  end
+  
+  def test_checkbox_iterator
+    assert_equal(13, browser.checkboxes.length)
+    index = 1
+    browser.checkboxes.each do |c|
+      # puts "#{index}: #{c.name}"
+      assert_equal( browser.checkbox(:index, index).name , c.name )
+      assert_equal( browser.checkbox(:index, index).id, c.id )
+      assert_equal( browser.checkbox(:index, index).value, c.value )
+      index += 1
+    end
+    assert_equal(index - 1, browser.checkboxes.length)
+  end
+
+  # bug 217
+  tag_method :test_checkbox_access_by_ole_object, :fails_on_firefox
+  def test_checkbox_access_by_ole_object
+    ole = browser.checkboxes[1].locate
+    browser.checkbox(:ole_object, ole).flash
+  end
+  
+end