watir 1.6.5 → 1.6.6.rc1

data/unittests/checkbox_xpath_test.rb

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

data/unittests/click_no_wait_test.rb

@@ -0,0 +1,21 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class ClickNoWait_Tests < Watir::TestCase
+
+  def setup
+    goto_page 'click_no_wait.html'
+  end
+
+  def test_click_no_wait
+    message_div = browser.div(:id => 'div1')
+    assert_equal("nothing", message_div.text)
+    browser.link(:id => 'link1').click_no_wait
+    assert_equal("message!", message_div.text)
+  end
+
+  def test_spawned_click_no_wait_command
+    assert_equal("start rubyw -e \"some command\"", browser.page_container.send(:__spawned_click_no_wait_command, "some command"))
+  end
+
+end

data/unittests/core_tests.rb

@@ -1,17 +1,17 @@
-# these are the non-xpath tests that do not need to be visible
-
-$HIDE_IE = true
-
-TOPDIR = File.join(File.dirname(__FILE__), '..')
-
-$LOAD_PATH.unshift TOPDIR
-require 'unittests/setup'
-
-Dir.chdir TOPDIR do
-  $all_tests.each {|x| require x}
-end
-
-Watir::UnitTest.filter_out do |test|
-  test.class.to_s =~ /xpath/i
-end
-Watir::UnitTest.filter_out_tests_tagged :must_be_visible 
+# these are the non-xpath tests that do not need to be visible
+
+$HIDE_IE = true
+
+TOPDIR = File.join(File.dirname(__FILE__), '..')
+
+$LOAD_PATH.unshift TOPDIR
+require 'unittests/setup'
+
+Dir.chdir TOPDIR do
+  $all_tests.each {|x| require x}
+end
+
+Watir::UnitTest.filter_out do |test|
+  test.class.to_s =~ /xpath/i
+end
+Watir::UnitTest.filter_out_tests_tagged :must_be_visible 

data/unittests/css_test.rb

@@ -1,35 +1,42 @@
-# feature tests for css
-# revision: $Revision$
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_CSS < Test::Unit::TestCase
-  
-  def isMessageDisplayed(message)
-    s = false
-    divs = browser.divs
-    divs.each do |d|
-      if d.text.downcase.match( /#{message}/i )
-        if d.class_name.downcase.match(/show/i)
-          s = true
-        end
-      end
-    end
-    
-    return s
-  end
-  
-  def setup
-    goto_page "cssTest.html"
-  end
-  
-  def test_SuccessMessage
-    browser.button( :caption , "Success").click
-    assert( isMessageDisplayed("Success") )
-    
-    browser.button(:caption, "Failure").click
-    assert_false(isMessageDisplayed("Success") )
-  end
-end
-
+# feature tests for css
+# revision: $Revision$
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_CSS < Test::Unit::TestCase
+  
+  def isMessageDisplayed(message)
+    divs = browser.divs
+    divs.each do |d|
+      if d.text.downcase.match( /#{message}/i )
+        if d.class_name.downcase.match(/show/i)
+          return true
+        end
+      end
+    end
+    
+    return false
+  end
+  
+  def setup
+    goto_page "cssTest.html"
+  end
+  
+  def test_SuccessMessage
+    browser.button( :caption , "Success").click
+    assert( isMessageDisplayed("Success") )
+    
+    browser.button(:caption, "Failure").click
+    assert_false(isMessageDisplayed("Success") )
+  end
+
+  def test_inline_style
+    assert_equal("300px", browser.form(:index, 1).style.width)
+  end
+
+  def test_internal_style
+    assert_equal("#f00", browser.div(:id => "Container").style.backgroundColor)
+  end
+end
+

data/unittests/defer_test.rb

@@ -1,47 +1,47 @@
-# tests of deferring when a Watir object is bound to a com object (lazy evaluation)
-# revision: $Revision$
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-
-class TC_Defer < Test::Unit::TestCase
-  def teardown
-    @new_browser.close if defined?(@new_browser)
-    browser.goto('about:blank')
-  end
-  tag_method :test_binding_to_newly_loaded_page, :fails_on_firefox, :attach
-  def test_binding_to_newly_loaded_page
-    @new_browser = Watir::Browser.new
-    text_field = @new_browser.text_field(:name, 'text1')
-    button = @new_browser.button(:value, 'Clear Events Box')
-    div = @new_browser.div(:name, 'divvy')
-    @new_browser.goto($htmlRoot + "textfields1.html")
-    assert_equal('Hello World', text_field.value)
-    assert_equal('Clear Events Box', button.value)
-    assert_equal('Div Text', div.text)
-  end
-  def test_binding_to_refreshed_page
-    goto_page "textfields1.html"
-    text_field = browser.text_field(:name, 'text1')
-    button = browser.button(:value, 'Clear Events Box')
-    div = browser.div(:name, 'divvy')
-    browser.refresh
-    assert_equal('Hello World', text_field.value)
-    assert(text_field.enabled?)
-    assert_equal('Clear Events Box', button.value)
-    assert_equal('Div Text', div.text)
-  end
-  tag_method :test_exists, :fails_on_firefox, :attach
-  def test_exists
-    @new_browser = Watir::Browser.new
-    text_field = @new_browser.text_field(:name, 'text1')
-    button = @new_browser.button(:value, 'Clear Events Box')
-    div = @new_browser.div(:name, 'divvy')
-    assert_false(text_field.exists?)
-    assert_false(button.exists?)
-    @new_browser.goto($htmlRoot + "textfields1.html")
-    assert(text_field.exists?)
-    assert(button.exists?)
-    assert(div.exists?)
-  end
+# tests of deferring when a Watir object is bound to a com object (lazy evaluation)
+# revision: $Revision$
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+
+class TC_Defer < Test::Unit::TestCase
+  def teardown
+    @new_browser.close if defined?(@new_browser)
+    browser.goto('about:blank')
+  end
+  tag_method :test_binding_to_newly_loaded_page, :fails_on_firefox, :attach
+  def test_binding_to_newly_loaded_page
+    @new_browser = Watir::Browser.new
+    text_field = @new_browser.text_field(:name, 'text1')
+    button = @new_browser.button(:value, 'Clear Events Box')
+    div = @new_browser.div(:name, 'divvy')
+    @new_browser.goto($htmlRoot + "textfields1.html")
+    assert_equal('Hello World', text_field.value)
+    assert_equal('Clear Events Box', button.value)
+    assert_equal('Div Text', div.text)
+  end
+  def test_binding_to_refreshed_page
+    goto_page "textfields1.html"
+    text_field = browser.text_field(:name, 'text1')
+    button = browser.button(:value, 'Clear Events Box')
+    div = browser.div(:name, 'divvy')
+    browser.refresh
+    assert_equal('Hello World', text_field.value)
+    assert(text_field.enabled?)
+    assert_equal('Clear Events Box', button.value)
+    assert_equal('Div Text', div.text)
+  end
+  tag_method :test_exists, :fails_on_firefox, :attach
+  def test_exists
+    @new_browser = Watir::Browser.new
+    text_field = @new_browser.text_field(:name, 'text1')
+    button = @new_browser.button(:value, 'Clear Events Box')
+    div = @new_browser.div(:name, 'divvy')
+    assert_false(text_field.exists?)
+    assert_false(button.exists?)
+    @new_browser.goto($htmlRoot + "textfields1.html")
+    assert(text_field.exists?)
+    assert(button.exists?)
+    assert(div.exists?)
+  end
 end

data/unittests/dialog_test.rb

@@ -1,78 +1,78 @@
-# Feature tests for Dialog class
-# revision: $Revision$
-
-$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
-require 'unittests/setup'
-require 'watir/dialog'
-
-class TC_Dialog_Test < Test::Unit::TestCase
-  tags :must_be_visible
-  include Watir
-  
-  def setup
-    goto_page 'JavascriptClick.html'
-  end    
-  def teardown
-    begin 
-      sleep 0.4 # XXX 
-      dialog.button('OK').click
-    rescue
-    end
-  end
-  
-  def test_alert_without_bonus_script
-    browser.button(:id, 'btnAlert').click_no_wait
-    sleep 0.4 # FIXME: need to be able to poll for window to exist
-    dialog.button("OK").click
-    assert_match(/Alert button!/, browser.text_field(:id, "testResult").value)  
-  end
-  
-  def test_button_name_not_found
-    browser.button(:id, 'btnAlert').click_no_wait
-    sleep 0.4 # FIXME replace with dialog.exists?
-    assert_raises(UnknownObjectException) { dialog.button("Yes").click }
-    dialog.button("OK").click
-  end
-  
-  def xtest_exists
-    assert_false( dialog.exists?) # known bug: finds main window instead of dialog!
-    browser.button(:id, 'btnAlert').click_no_wait
-    sleep 0.4 # FIXME: need to add polling
-    assert dialog.exists?
-    dialog.button('OK').click
-  end
-  
-  def test_leaves_dialog_open
-    # should be closed in teardown
-    browser.button(:id, 'btnAlert').click_no_wait
-  end
-  
-  def test_copy_array_elements
-    a = ['a', 'b', 'c']
-    copy = Array.new(a)
-    c = []        
-    code = _code_that_copies_readonly_array(a, "c")
-    eval code
-    assert_equal copy, c
-  end
-  
-  def test_confirm_ok
-    browser.button(:value, 'confirm').click_no_wait
-    assert dialog.exists?
-    dialog.button('OK').click
-    assert_equal "You pressed the Confirm and OK button!", browser.text_field(:id, 'testResult').value
-  end
-  
-  def xtest_confirm_cancel
-    browser.button(:value, 'confirm').click_no_wait
-    assert dialog.exists?
-    dialog.button('Cancel').click
-    assert_equal "You pressed the Confirm and Cancel button!", browser.text_field(:id, 'testResult').value
-  end
-  
-  def test_dialog_close
-    dialog.close
-    assert !dialog.exists? 
-  end
-  
+# Feature tests for Dialog class
+# revision: $Revision$
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') unless $SETUP_LOADED
+require 'unittests/setup'
+require 'watir/dialog'
+
+class TC_Dialog_Test < Test::Unit::TestCase
+  tags :must_be_visible
+  include Watir
+  
+  def setup
+    goto_page 'JavascriptClick.html'
+  end    
+  def teardown
+    begin 
+      sleep 0.4 # XXX 
+      dialog.button('OK').click
+    rescue
+    end
+  end
+  
+  def test_alert_without_bonus_script
+    browser.button(:id, 'btnAlert').click_no_wait
+    sleep 0.4 # FIXME: need to be able to poll for window to exist
+    dialog.button("OK").click
+    assert_match(/Alert button!/, browser.text_field(:id, "testResult").value)  
+  end
+  
+  def test_button_name_not_found
+    browser.button(:id, 'btnAlert').click_no_wait
+    sleep 0.4 # FIXME replace with dialog.exists?
+    assert_raises(UnknownObjectException) { dialog.button("Yes").click }
+    dialog.button("OK").click
+  end
+  
+  def xtest_exists
+    assert_false( dialog.exists?) # known bug: finds main window instead of dialog!
+    browser.button(:id, 'btnAlert').click_no_wait
+    sleep 0.4 # FIXME: need to add polling
+    assert dialog.exists?
+    dialog.button('OK').click
+  end
+  
+  def test_leaves_dialog_open
+    # should be closed in teardown
+    browser.button(:id, 'btnAlert').click_no_wait
+  end
+  
+  def test_copy_array_elements
+    a = ['a', 'b', 'c']
+    copy = Array.new(a)
+    c = []        
+    code = _code_that_copies_readonly_array(a, "c")
+    eval code
+    assert_equal copy, c
+  end
+  
+  def test_confirm_ok
+    browser.button(:value, 'confirm').click_no_wait
+    assert dialog.exists?
+    dialog.button('OK').click
+    assert_equal "You pressed the Confirm and OK button!", browser.text_field(:id, 'testResult').value
+  end
+  
+  def xtest_confirm_cancel
+    browser.button(:value, 'confirm').click_no_wait
+    assert dialog.exists?
+    dialog.button('Cancel').click
+    assert_equal "You pressed the Confirm and Cancel button!", browser.text_field(:id, 'testResult').value
+  end
+  
+  def test_dialog_close
+    dialog.close
+    assert !dialog.exists? 
+  end
+  
 end