watir 1.4.1 → 1.5.2

data/unittests/minmax_test.rb

@@ -1,31 +1,31 @@
 # feature tests for minimizing and maximizing IE windows
-# revision: $Revision: 1.1.2.1 $
+# revision: $Revision: 958 $
 
 $LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
 require 'unittests/setup'
 
 class TC_MinMax< Test::Unit::TestCase
-    include Watir
-    def setup
-        $ie.goto($htmlRoot + 'pass.html')
-    end        
-    def teardown
-        $ie.restore
-    end
-    def test_minimimum
-        $ie.minimize
-    end
-    def test_maximum
-        $ie.maximize
-    end
-    def test_front
-        assert $ie.front?
-        ie2 = IE.start($htmlRoot + 'blankpage.html')
-        assert ie2.front?
-        assert_false $ie.front?
-        $ie.bring_to_front
-        assert $ie.front?
-        ie2.close
-    end
+  include Watir
+  def setup
+    $ie.goto($htmlRoot + 'pass.html')
+  end        
+  def teardown
+    $ie.restore
+  end
+  def test_minimimum
+    $ie.minimize
+  end
+  def test_maximum
+    $ie.maximize
+  end
+  def test_front
+    assert $ie.front?
+    ie2 = IE.start($htmlRoot + 'blankpage.html')
+    assert ie2.front?
+    assert_false $ie.front?
+    $ie.bring_to_front
+    assert $ie.front?
+    ie2.close
+  end
 end
 

data/unittests/navigate_test.rb

@@ -1,56 +1,48 @@
 # feature tests for navigation
-# revision: $Revision: 1.12 $
+# revision: $Revision: 1009 $
 
 $LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
 require 'unittests/setup'
-
-class TC_Navigate< Test::Unit::TestCase
-    include Watir
-   
-    def gotoPage( a )
-       $ie.goto($htmlRoot + a)
-    end
-
-    def test_navigation
-
-       $ie.clear_url_list
-       gotoPage( 'buttons1.html')
-       url = $ie.url.downcase.gsub('///' , '//')   # no idea why this happens - we get 3 / after file:
-       assert_equal(url.downcase , ( $htmlRoot + 'buttons1.html' ).downcase )  # the downcase is that sometimes we get capital drivee letters 
-
-       assert_equal( 1, $ie.url_list.length )
-       assert_equal( url , $ie.url_list[0].gsub('\\', '/').downcase )
-
-       gotoPage( 'checkboxes1.html')
-       url = $ie.url.downcase.gsub('///' , '//')   # no idea why this happens - we get 3 / after file:
-
-       assert_equal($ie.title , "Test page for Check Boxes") 
-       assert_equal( 2, $ie.url_list.length )
-       assert_equal( url , $ie.url_list[1].gsub('\\', '/').downcase )
-
-       $ie.clear_url_list
-       assert_equal( 0, $ie.url_list.length )
-
-       $ie.back
-       assert_equal($ie.title , "Test page for buttons")   
-
-       $ie.forward
-       assert_equal($ie.title , "Test page for Check Boxes")   
-
-       $ie.checkBox(:name , "box1").set
-       assert($ie.checkBox(:name, "box1").isSet?)   
- 
-       $ie.refresh
-       # Not sure how we test this. Text fields and checkboxes dont get reset if you click the browser refresh button
-    end
-
-    def test_http_errors
-        # this is commented out as it depends on too many things.....
-
-          assert_raises(NavigationException) { $ie.goto('http://localhost:3001') }         # Cannot find server or DNS Error
-          assert_raises(NavigationException) { $ie.goto('http://www.fxruby.org/dfdf' ) }  # HTTP 404 - File not found
-
-    end
-
+require 'CGI'
+
+class TC_Navigate < Test::Unit::TestCase
+  include Watir
+  
+  def goto_page(a)
+    $ie.goto($htmlRoot + a)
+  end
+  
+  def test_navigation
+    $ie.clear_url_list
+    goto_page('buttons1.html')
+    url = $ie.url.downcase.gsub('///' , '//') # no idea why this happens - we get 3 / after file:
+    url = CGI::unescape(url)    # url is encoded so we need to 
+    assert_equal(url.downcase, ($htmlRoot + 'buttons1.html' ).downcase )  # sometimes we get capital drive letters 
+    
+    assert_equal(1, $ie.url_list.length)
+    assert_equal(url, $ie.url_list[0].gsub('\\', '/').downcase)
+    
+    goto_page('checkboxes1.html')
+    url = $ie.url.downcase.gsub('///' , '//')   # no idea why this happens - we get 3 / after file:
+    url = CGI::unescape(url)    # url is encoded so we need to 
+    
+    assert_equal($ie.title, "Test page for Check Boxes") 
+    assert_equal(2, $ie.url_list.length)
+    assert_equal(url, $ie.url_list[1].gsub('\\', '/').downcase)
+    
+    $ie.clear_url_list
+    assert_equal(0, $ie.url_list.length )
+    
+    $ie.back
+    assert_equal($ie.title , "Test page for buttons")   
+    
+    $ie.forward
+    assert_equal($ie.title , "Test page for Check Boxes")   
+    
+    $ie.checkBox(:name, "box1").set
+    assert($ie.checkBox(:name, "box1").isSet?)   
+    
+    $ie.refresh
+    # Not sure how we test this. Text fields and checkboxes dont get reset if you click the browser refresh button
+  end
 end
-

data/unittests/nbsp_xpath_test.rb

@@ -0,0 +1,18 @@
+# feature tests for Tables
+# revision: $Revision: 1076 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Tables < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "xpath_nbsp.html")
+  end
+  
+  def test_nbsp
+	div = $ie.element_by_xpath("//div")
+	assert(div.innerText, "Hello world")
+  end
+end

data/unittests/other/WindowLogonExample.rb

@@ -0,0 +1,28 @@
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+require 'watir/WindowHelper'
+
+class TC_Logon_Test < Test::Unit::TestCase
+  include Watir
+  
+  def goto_windows_login_page
+    $ie.goto('http://clio.lyris.com/')
+  end
+  
+  
+  def test_window_logon
+    
+    a = Thread.new {
+      system('ruby WindowLogonExtra.rb')
+      
+    }
+    b = Thread.new { 
+      goto_windows_login_page
+    }
+    a.join
+    b.join
+  end
+  
+  
+  
+end

data/unittests/{all_tests_concurrent.rb → other/all_tests_concurrent.rb}

@@ -14,19 +14,19 @@ require 'unittests/checkbox_test'
 require 'test/unit/testsuite'
 require 'thread'
 class ConcurrentTestSuite < Test::Unit::TestSuite
-
-      # Runs the tests and/or suites contained in this TestSuite.
-      def run(result, &progress_block)
-        yield(STARTED, name)
-        threads = []
-        @tests.each do |test|
-          threads << Thread.new do
-            test.run(result, &progress_block)
-          end
-        end
-        threads.each {|t| t.join}
-        yield(FINISHED, name)
+  
+  # Runs the tests and/or suites contained in this TestSuite.
+  def run(result, &progress_block)
+    yield(STARTED, name)
+    threads = []
+    @tests.each do |test|
+      threads << Thread.new do
+        test.run(result, &progress_block)
       end
+    end
+    threads.each {|t| t.join}
+    yield(FINISHED, name)
+  end
 end
 
 # create a suite
@@ -36,19 +36,19 @@ require 'test/unit/collector'
 include Test::Unit::Collector
 
 
-          @filters = []
-          suite = ConcurrentTestSuite.new('super suite')
-          sub_suites = []
-          ::ObjectSpace.each_object(Class) do |klass|
-            if(Test::Unit::TestCase > klass)
-              puts sub_suites, klass.suite
-              add_suite(sub_suites, klass.suite)
-            end
-          end
-          sort(sub_suites).each{|s| suite << s}
+@filters = []
+suite = ConcurrentTestSuite.new('super suite')
+sub_suites = []
+::ObjectSpace.each_object(Class) do |klass|
+  if(Test::Unit::TestCase > klass)
+    puts sub_suites, klass.suite
+    add_suite(sub_suites, klass.suite)
+  end
+end
+sort(sub_suites).each{|s| suite << s}
+
 
 
-        
 # select a runner
 require 'test/unit/ui/console/testrunner'
 Test::Unit::UI::Console::TestRunner.run(suite)

data/unittests/other/navigate_exception_test.rb

@@ -0,0 +1,14 @@
+# feature tests for navigation errors
+# revision: $Revision: 958 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_NavigateException < Test::Unit::TestCase
+  include Watir
+  
+  def test_http_errors
+    assert_raises(NavigationException) { $ie.goto('http://localhost:3001') }        # Cannot find server or DNS Error
+    assert_raises(NavigationException) { $ie.goto('http://www.fxruby.org/dfdf' ) }  # HTTP 404 - File not found
+  end
+end

data/unittests/other/rexml_unit_test.rb

@@ -0,0 +1,24 @@
+require 'test/unit'
+require "rexml/document"
+
+class RexmlTest < Test::Unit::TestCase
+  def setup
+    file = File.open( "xpath_bug.xml" )
+    @doc = REXML::Document.new file
+  end
+  def fixture xpath
+    matches = []
+    @doc.elements.each(xpath) do |element|
+      matches << element                  
+      assert_equal('Add', element.text)    
+      assert_equal('ButtonText', element.attributes['class'])
+    end
+    assert_equal(1, matches.length)
+  end  
+  def test_text
+    fixture "//div[text()='Add' and @class='ButtonText']"
+  end
+  def test_contains
+    fixture "//div[contains(.,'Add') and @class='ButtonText']"
+  end
+end

data/unittests/other/testcase_method_order_test.rb

@@ -0,0 +1,36 @@
+# the default behavior of Test::Unit::TestCase should be to execute test 
+# methods in alphabetical order.
+# When executed, should print "A.B.C.D.E.F.G.H.I.J.K.L.F"
+# The final F is actually an expected failure:
+#   1) Failure:
+# default_test(TC4_No_Test_Methods)
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', '..') if $0 == __FILE__
+
+require 'watir/testcase'
+
+class TC1_Alphabetical_Default < Watir::TestCase
+  execute :alphabetically
+  def test_b; print 'B'; end 
+  def test_a; print 'A'; end
+  def test_d; print 'D'; end
+  def test_c; print 'C'; end
+end
+
+class TC2_Sequential < Watir::TestCase
+  def test_b; print 'E'; end 
+  def test_a; print 'F'; end
+  def test_d; print 'G'; end
+  def test_c; print 'H'; end
+end
+
+class TC3_Alphabetical_Specified < Watir::TestCase
+  execute :alphabetically
+  def test_b; print 'J'; end 
+  def test_a; print 'I'; end
+  def test_d; print 'L'; end
+  def test_c; print 'K'; end
+end
+
+class TC4_No_Test_Methods < Watir::TestCase
+end

data/unittests/other/testcase_verify_test.rb

@@ -0,0 +1,25 @@
+# 3 tests, 10 assertions, 4 failures, 0 errors
+
+require 'watir/testcase'
+
+class VerifyTests < Watir::TestCase
+  
+  def test_verify
+    verify true
+    assert true
+    verify false
+    assert true
+  end
+  
+  def test_verify_equal
+    verify_equal 1, 1
+    verify_equal 1, 2
+    verify_equal 3, 4
+  end
+  
+  def test_verify_match
+    verify_match /\d*/, '123'
+    verify_match 'foo', 'foobar'
+    verify_match '...', 'A'
+  end
+end

data/unittests/other/wait_until_test.rb

@@ -0,0 +1,99 @@
+# feature tests for wait_until
+
+require 'watir/testcase'
+require 'watir/waiter'
+require 'watir'
+require 'spec' # gem install rspec
+
+# used for unit testing
+class MockTimeKeeper < Watir::TimeKeeper
+  def sleep seconds
+    @sleep_time += seconds
+  end
+  def now
+    Time.now + @sleep_time
+  end
+end
+
+class WaitUntilInstanceTest < Watir::TestCase
+  
+  def setup
+    @waiter = Watir::Waiter.new
+    @waiter.timeout = 10.0
+    @mock_checkee = Spec::Mocks::Mock.new "mock_checkee"
+
+    # remove this line to test with actual TimeKeeper intead of the Mock
+    # (slower, but more accurate)
+    @waiter.timer = MockTimeKeeper.new
+  end
+
+  def teardown
+    @mock_checkee.__verify if @test_passed
+  end
+  
+  # Instance Method
+  
+  def test_no_time_passes_if_true
+    @waiter.wait_until {true}
+    @waiter.timer.sleep_time.should_equal 0.0
+  end
+  
+  def test_three_tries_before_true
+    @mock_checkee.should_receive(:check).exactly(3).times.and_return [false, false, true]
+    @waiter.wait_until {@mock_checkee.check}
+    @waiter.timer.sleep_time.should_equal 1.0
+  end        
+  
+  def test_timeout
+    @mock_checkee.should_receive(:check).any_number_of_times.and_return false
+    lambda{@waiter.wait_until {@mock_checkee.check}}.should_raise Watir::Exception::TimeOutException
+    @waiter.timer.sleep_time.should_be_close 10.25, 0.26
+    @waiter.timer.sleep_time.should_satisfy {|x| [10.0, 10.5].include? x}
+  end    
+  
+  def test_polling_interval
+    @waiter.polling_interval = 0.1
+    @mock_checkee.should_receive(:check).any_number_of_times.and_return false
+    lambda{@waiter.wait_until {@mock_checkee.check}}.should_raise Watir::Exception::TimeOutException
+    @waiter.timer.sleep_time.should_be_close 10.05, 0.07
+  end
+
+  def test_timeout_duration
+    @mock_checkee.should_receive(:check).any_number_of_times.and_return false
+    begin
+      @waiter.wait_until {@mock_checkee.check} 
+      flunk
+    rescue Watir::Exception::TimeOutException => e
+      e.duration.should_be_close 10.25, 0.26
+      e.timeout.should_equal 10.0
+    end
+  end
+end
+
+class WaitUntilClassTest < Watir::TestCase
+  
+  def setup
+    @mock_checkee = Spec::Mocks::Mock.new "mock_checkee"
+    @mock_checkee.should_receive(:check).exactly(3).times.and_return [false, false, true]
+  end
+
+  def teardown
+    @mock_checkee.__verify if @test_passed
+  end
+  # Class method
+  
+  def test_class_method_with_args
+    Watir::Waiter.wait_until(5, 0.1) {@mock_checkee.check}
+  end
+  
+  def test_class_method_with_defaults
+    Watir::Waiter.wait_until {@mock_checkee.check}
+  end
+  
+  include Watir
+  def test_watir_method
+    wait_until {@mock_checkee.check}
+  end
+
+end    
+