watir 1.4.1 → 1.5.2

data/unittests/textfields_xpath_test.rb

@@ -0,0 +1,111 @@
+# feature tests for Text Fields
+# revision: $Revision: 962 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Fields_XPath < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "textfields1.html")
+  end
+  
+  def test_text_field_exists
+    assert($ie.text_field(:xpath , "//input[@name='text1']/").exists?)   
+    assert(!$ie.text_field(:xpath , "//input[@name='missing']/").exists?)   
+    
+    assert($ie.text_field(:xpath , "//input[@id='text2']/").exists?)   
+    assert(!$ie.text_field(:xpath , "//input[@id='alsomissing']/").exists?)   
+    
+    #assert($ie.text_field(:xpath , "//input[@beforeText='This Text After']/").exists? )
+    #assert($ie.text_field(:xpath , "//input[@afterText='This Text Before']/").exists? )
+  end
+  
+  def test_text_field_dragContentsTo
+    $ie.text_field(:xpath , "//input[@name='text1']/").dragContentsTo(:xpath , "//input[@id='text2']/")
+    assert_equal($ie.text_field(:xpath , "//input[@name='text1']/").value, "" ) 
+    assert_equal($ie.text_field(:xpath , "//input[@id='text2']/").value, "goodbye allHello World" ) 
+  end
+  
+  def test_text_field_VerifyContents
+    assert($ie.text_field(:xpath , "//input[@name='text1']/").verify_contains("Hello World") )  
+    assert($ie.text_field(:xpath , "//input[@name='text1']/").verify_contains(/Hello\sW/ ) )  
+    assert(!$ie.text_field(:xpath , "//input[@name='text1']/").verify_contains("Ruby") )  
+    assert(!$ie.text_field(:xpath , "//input[@name='text1']/").verify_contains(/R/) )  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@name='NoName']/").verify_contains("No field to get a value of") }  
+    
+    assert($ie.text_field(:xpath , "//input[@id='text2']/").verify_contains("goodbye all") )  
+    assert_raises(UnknownObjectException , "UnknownObjectException was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@id='noID']/").verify_contains("No field to get a value of") }  
+  end
+  
+  def test_text_field_enabled
+    assert(!$ie.text_field(:xpath , "//input[@name='disabled']/").enabled? )  
+    assert($ie.text_field(:xpath , "//input[@name='text1']/").enabled? )  
+    assert($ie.text_field(:xpath , "//input[@id='text2']/").enabled? )  
+  end
+  
+  def test_text_field_readOnly
+    assert(!$ie.text_field(:xpath , "//input[@name='disabled']/").readonly? )  
+    assert($ie.text_field(:xpath , "//input[@name='readOnly']/").readonly? )  
+    assert($ie.text_field(:xpath , "//input[@id='readOnly2']/").readonly? )  
+  end
+  
+  def test_text_field_value
+    assert_raises(UnknownObjectException  , "ObjectReadOnlyException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@name='missing_field']/").append("Some Text") }  
+    assert_equal(  "Hello World" , $ie.text_field(:xpath , "//input[@name='text1']/").value )  
+  end
+  
+  def build_to_s_regex(lhs, rhs)
+    Regexp.new("^#{lhs}: +#{rhs}$")
+  end
+  
+  def test_text_field_Append
+    assert_raises(ObjectReadOnlyException  , "ObjectReadOnlyException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@id='readOnly2']/").append("Some Text") }  
+    assert_raises(ObjectDisabledException   , "ObjectDisabledException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@name='disabled']/").append("Some Text") }  
+    assert_raises(UnknownObjectException  , "UnknownObjectException  was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@name='missing_field']/").append("Some Text") }  
+    
+    $ie.text_field(:xpath , "//input[@name='text1']/").append(" Some Text")
+    assert_equal(  "Hello World Some Text" , $ie.text_field(:xpath , "//input[@name='text1']/").value )  
+  end
+  
+  
+  def test_text_field_Clear
+    assert_raises(ObjectReadOnlyException  , "ObjectReadOnlyException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@id='readOnly2']/").append("Some Text") }  
+    assert_raises(ObjectDisabledException   , "ObjectReadOnlyException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@name='disabled']/").append("Some Text") }  
+    assert_raises(UnknownObjectException  , "ObjectReadOnlyException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@name='missing_field']/").append("Some Text") }  
+    
+    $ie.text_field(:xpath , "//input[@name='text1']/").clear
+    assert_equal(  "" , $ie.text_field(:xpath , "//input[@name='text1']/").value )  
+  end
+  
+  def test_text_field_Set
+    assert_raises(ObjectReadOnlyException  , "ObjectReadOnlyException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@id='readOnly2']/").append("Some Text") }  
+    assert_raises(ObjectDisabledException   , "ObjectReadOnlyException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@name='disabled']/").append("Some Text") }  
+    assert_raises(UnknownObjectException  , "ObjectReadOnlyException   was supposed to be thrown" ) {   $ie.text_field(:xpath , "//input[@name='missing_field']/").append("Some Text") }  
+    
+    $ie.text_field(:xpath , "//input[@name='text1']/").set("watir IE Controller")
+    assert_equal(  "watir IE Controller" , $ie.text_field(:xpath , "//input[@name='text1']/").value )  
+  end
+  
+  def test_JS_Events
+    $ie.text_field(:xpath , "//input[@name='events_tester']/").set('p')
+    
+    # the following line has an extra keypress at the begining, as we mimic the delete key being pressed
+    assert_equal( "keypresskeydownkeypresskeyup" , $ie.text_field(:xpath , "//textarea[@name='events_text']/").value.gsub("\r\n" , "")  )
+    $ie.button(:value , "Clear Events Box").click
+    $ie.text_field(:xpath , "//input[@name='events_tester']/").set('ab')
+    
+    # the following line has an extra keypress at the begining, as we mimic the delete key being pressed
+    assert_equal( "keypresskeydownkeypresskeyupkeydownkeypresskeyup" , $ie.text_field(:xpath , "//textarea[@name='events_text']/").value.gsub("\r\n" , "") )
+  end
+  
+  def test_password
+    $ie.text_field(:xpath , "//input[@name='password1']/").set("secret")
+    assert( 'secret' , $ie.text_field(:xpath , "//input[@name='password1']/").value )
+    
+    $ie.text_field(:xpath , "//input[@id='password1']/").set("top_secret")
+    assert( 'top_secret' , $ie.text_field(:xpath , "//input[@id='password1']/").value )
+  end
+  
+end

data/unittests/window_tests.rb

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

data/unittests/windows/attach_to_existing_window_test.rb

@@ -0,0 +1,52 @@
+# feature tests for attaching to existing IE windows
+# revision: $Revision: 1230 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_ExistingWindow< Test::Unit::TestCase
+  include Watir
+
+  def setup
+    $ie.goto($htmlRoot + 'buttons1.html')
+  end
+  def teardown
+    IE.reset_attach_timeout
+  end
+
+  def test_find_window
+    ie = IE.find(:title, 'Test page for buttons')
+    assert_equal("Test page for buttons", ie.title)
+  end
+  
+  def test_find_window_misses
+    ie = IE.find(:title, 'no such window')
+    assert_nil ie
+  end
+
+  def test_missing_window
+    IE.attach_timeout = 0.1
+    assert_raises(NoMatchingWindowFoundException) { IE.attach(:title, "missing") }
+    assert_raises(NoMatchingWindowFoundException) { IE.attach(:title, /missing/) }
+    assert_raises(NoMatchingWindowFoundException) { IE.attach(:url, "missing") }
+    assert_raises(NoMatchingWindowFoundException) { IE.attach(:url, /missing/) }
+  end    
+  
+  def test_existing_window
+    ie3 = nil
+    ie3 = IE.attach(:title , /buttons/i)
+    assert_equal("Test page for buttons", ie3.title)
+    ie3 = nil
+    
+    ie3 = IE.attach(:title , "Test page for buttons")
+    assert_equal("Test page for buttons", ie3.title)
+    ie3 = nil
+    
+    ie3 = IE.attach(:url, /buttons1.html/)
+    assert_equal("Test page for buttons", ie3.title)
+    ie3 = nil
+    
+    #hard to test :url with explicit text
+  end
+end
+

data/unittests/windows/attach_to_new_window_test.rb

@@ -0,0 +1,82 @@
+# feature tests for attaching to new IE windows
+# revision: $Revision: 1230 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', '..') if $0 == __FILE__
+require 'unittests/setup'
+require 'watir/testcase'
+
+class TC_NewWindow< Watir::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "new_browser.html")
+  end
+  def teardown
+    IE.reset_attach_timeout
+  end
+  
+  def test_simply_attach_to_new_window
+    IE.attach_timeout = 0.2
+    $ie.link(:text, 'New Window').click
+    ie_new = IE.attach(:title, 'Pass Page')
+    assert(ie_new.text.include?('PASS'))
+    ie_new.close
+  end
+  
+  def test_attach_to_new_window_using_separate_process
+    $ie.eval_in_spawned_process "link(:text, 'New Window').click"
+    IE.attach_timeout = 6.0
+    ie_new = IE.attach(:title, 'Pass Page')
+    assert(ie_new.text.include?('PASS'))
+    ie_new.close
+  end
+  
+  def test_attach_to_new_window_using_click_no_wait
+    # this test is sometimes failing with a "Canvas does not allow drawing" error
+    # this is with IE7. I think the problem could be with the highlighting of the
+    # button from the separate process.
+    $ie.link(:text, 'New Window').click_no_wait
+    IE.attach_timeout = 6.0
+    ie_new = IE.attach(:title, 'Pass Page')
+    assert(ie_new.text.include?('PASS'))
+    ie_new.close
+  end
+  
+  def test_click_no_wait_works_in_a_container
+    $ie.p(:index, 1).link(:text, 'New Window').click_no_wait
+    IE.attach_timeout = 6.0
+    ie_new = IE.attach(:title, 'Pass Page')
+    assert(ie_new.text.include?('PASS'))
+    ie_new.close
+  end
+  
+  def test_attach_to_slow_window_works_with_delay
+    $ie.span(:text, 'New Window Slowly').click
+    IE.attach_timeout = 4.0
+    sleep 1.0
+    ie_new = IE.attach(:title, 'Test page for buttons')
+    assert(ie_new.text.include?('Blank page to fill in the frames'))
+    ie_new.close
+  end    
+  
+  def test_attach_to_slow_window_works_without_waiting
+    $ie.span(:text, 'New Window Slowly').click
+    IE.attach_timeout = 3.0
+    ie_new = IE.attach(:title, 'Test page for buttons')
+    assert(ie_new.text.include?('Blank page to fill in the frames'))
+    ie_new.close
+  end    
+  
+  def test_attach_timesout_when_window_takes_too_long
+    IE.attach_timeout = 0.2
+    $ie.text_field(:name, 'delay').set('2')
+    $ie.span(:text, 'New Window Slowly').click
+    assert_raise(Watir::Exception::NoMatchingWindowFoundException) do
+      IE.attach(:title, 'Test page for buttons')
+    end
+    sleep 2.0 # clean up
+    IE.attach_timeout = 6.0
+    IE.attach(:title, 'Test page for buttons').close
+  end        
+  
+end

data/unittests/windows/close_window_test.rb

@@ -0,0 +1,22 @@
+# feature tests for closed windows
+# revision: $Revision: 958 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_CloseWindow < Watir::TestCase
+  include Watir
+  execute :sequentially
+  
+  def setup
+    $ie.goto($htmlRoot + "new_browser.html")
+  end
+  
+  # reproduces defect http://jira.openqa.org/browse/WTR-16
+  def test_close_window_with_button
+    $ie.link(:text, 'New Window').click
+    ie_new = IE.attach(:title, 'Pass Page')
+    assert(ie_new.text.include?('PASS'))
+    assert_nothing_raised {ie_new.close}
+  end
+end

data/unittests/windows/frame_links_test.rb

@@ -0,0 +1,25 @@
+# tests of click_no_wait for links in frames
+# revision: $Revision: 1078 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Frame_Links < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "frame_links.html")
+  end
+  
+  def test_click_in_a_frame
+    $ie.frame('linkFrame').link(:text, 'test1').click
+    assert($ie.frame('linkFrame').text.include?('Links2-Pass'))
+  end
+  
+  def test_click_no_wait_in_a_frame
+    $ie.frame('linkFrame').link(:text, 'test1').click_no_wait
+    wait_until(2){$ie.frame('linkFrame').text.include?('Links2-Pass')}
+    assert($ie.frame('linkFrame').text.include?('Links2-Pass'))
+  end  
+  
+end

data/unittests/windows/ie-each_test.rb

@@ -0,0 +1,48 @@
+# Not intended to be run as part of a larger suite.
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', '..') if $0 == __FILE__
+require 'test/unit'
+require 'watir'
+require 'watir/process'
+require 'watir/waiter'
+
+class TC_IE_Each < Test::Unit::TestCase  
+  def setup
+    assert_equal 0, Watir::IE.process_count
+    @hits = 0
+    @ie = []
+  end
+  
+  def hit_me
+    @hits += 1
+  end
+
+  def test_zero_windows
+    Watir::IE.each {hit_me}    
+    assert_equal 0, @hits
+  end
+  
+  def test_one_window
+    @ie << Watir::IE.new_process
+    Watir::IE.each {hit_me}    
+    assert_equal 1, @hits
+  end
+  
+  def test_two_windows
+    @ie << Watir::IE.new_process
+    @ie << Watir::IE.new_process
+    Watir::IE.each {hit_me}    
+    assert_equal 2, @hits
+  end
+  
+  def test_return_type
+    @ie << Watir::IE.new_process
+    Watir::IE.each {|ie| assert_equal(Watir::IE, ie.class)}    
+  end
+  
+  include Watir
+  def teardown
+    @ie.each {|ie| ie.close }
+    wait_until {Watir::IE.process_count == 0}
+  end
+end

data/unittests/windows/iedialog_test.rb

@@ -0,0 +1,55 @@
+# unit tests for iedialog.dll and customized win32ole.so
+# revision: $Revision: 1177 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', '..') if $0 == __FILE__
+require 'unittests/setup'
+require 'Win32API'
+
+if VERSION == '1.8.2'
+class TC_IEDialog < Test::Unit::TestCase
+  include Watir 
+
+  # this will find the IEDialog.dll file in its build location
+  @@iedialog_file = (File.expand_path(File.dirname(__FILE__)) + "/../watir/IEDialog/Release/IEDialog.dll").gsub('/', '\\')
+  
+  # commented out because it currently requires a manual click
+  # a better idea would be to automate the click...
+  def xtest_connect_to_iedialog 
+    # make sure we can connect to the IEDialog.dll
+    fnShowString = Win32API.new(@@iedialog_file, 'ShowString', ['p'], 'v')
+    fnShowString.call("from ruby!") # blocks
+  end
+
+  def test_find_window   
+    $ie.goto($htmlRoot + "pass.html")
+    fnFindWindow = Win32API.new('user32.dll', 'FindWindow', ['p', 'p'], 'l')
+    hwnd = fnFindWindow.call(nil, "Pass Page - Microsoft Internet Explorer")
+    assert(hwnd != 0)
+  end
+
+  def test_all    
+    $ie.goto($htmlRoot + "pass.html")
+
+    fnFindWindow = Win32API.new('user32.dll', 'FindWindow', ['p', 'p'], 'l')
+    hwnd = fnFindWindow.call(nil, "Pass Page - Microsoft Internet Explorer")
+
+    fnGetUnknown = Win32API.new(@@iedialog_file, 'GetUnknown', ['l', 'p'], 'v')
+    intPointer = " " * 4 # will contain the int value of the IUnknown*
+    fnGetUnknown.call(hwnd, intPointer)
+    
+    intArray = intPointer.unpack('L')
+    intUnknown = intArray.first
+
+    assert(intUnknown > 0)
+    
+    htmlDoc = nil
+    assert_nothing_raised{htmlDoc = WIN32OLE.connect_unknown(intUnknown)}
+    scriptEngine = htmlDoc.Script
+    
+    # now we get the HTML DOM object!
+    doc2 = scriptEngine.document
+    body = doc2.body
+    assert_match(/^PASS/, body.innerHTML.strip)    
+  end
+end
+end

data/unittests/windows/js_events_test.rb

@@ -0,0 +1,57 @@
+# feature tests for JavaScript events
+# revision: $Revision: 1177 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_JSEvents < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "javascriptevents.html")
+  end
+  
+  def test_Button_disabled
+    assert(! $ie.button(:caption, "Button 1").enabled?) 
+  end
+  
+  def test_Button_Enabled
+    $ie.text_field(:name, "entertext").fire_event("onkeyup")
+    assert($ie.button(:caption, "Button 1").enabled?)   
+  end
+  
+  def test_Button_click
+    # Firing event to make button enabled
+    $ie.text_field(:name, "entertext").fire_event("onKeyUp")
+    # Clicking the button
+    $ie.button(:caption, "Button 1").click
+    assert($ie.text.include?("PASS") )
+  end
+  
+  #onMouseOver tests
+  #window status
+  
+  def test_no_status_bar_exception
+    $ie.link(:text, "New Window No Status Bar").click
+    status_bar_test_win = nil
+    # Note: this test will fail if the Google toolbar popup blocker is turned on
+    assert_nothing_raised { status_bar_test_win = Watir::IE.attach(:title, "Pass Page") }
+    assert_raises( Watir::NoStatusBarException ) { status_bar_test_win.status }
+    status_bar_test_win.close
+    status_bar_test_win = nil
+  end
+  
+  def test_page_nostatus
+    assert_equal("Done", $ie.status) 
+  end
+  
+  def test_set_page_status
+    $ie.link(:text, "Check the Status").fire_event("onMouseOver")
+    assert_equal("It worked", $ie.status) 
+  end
+  
+  def test_clear_page_status
+    $ie.link(:text, "Clear the Status").fire_event("onMouseOver")
+    assert_equal("Done", $ie.status) 
+  end
+end