rwebunit 0.9.4 → 1.0.3

data/Rakefile

@@ -36,7 +36,7 @@ Rake::RDocTask.new { |rdoc|
 spec = Gem::Specification.new do |s|
   s.platform= Gem::Platform::RUBY
   s.name = "rwebunit"
-  s.version = "0.9.4"
+  s.version = "1.0.3"
   s.summary = "An wrap of WATIR/FireWatir for functional testing of web applications"
 # s.description = ""
 
@@ -56,9 +56,10 @@ spec = Gem::Specification.new do |s|
   s.files = s.files + Dir.glob( "test/**/*" ).delete_if { |item| item.include?( "\.svn" ) }
   s.files = s.files + Dir.glob( "sample/**/*" ).delete_if { |item| item.include?( "\.svn" ) }
   s.files = s.files + Dir.glob( "docs/**/*" ).delete_if { |item| item.include?( "\.svn" ) }
-  s.add_dependency(%q<rspec>, [">= 1.1.4"])
-#  s.add_dependency("watir", ">= 1.5.4")
-#  s.add_dependency("firewatir", ">= 1.1")
+  s.add_dependency(%q<rspec>, ["= 1.1.4"])
+  s.add_dependency("commonwatir", ">= 1.6.2")
+#  s.add_dependency("watir", ">= 1.6.2")
+#  s.add_dependency("firewatir", ">= 1.6.2")
 end
 
 Rake::GemPackageTask.new(spec) do |pkg|

data/lib/rspec_extensions.rb

@@ -4,6 +4,8 @@ module Spec
 
       alias :spec :describe
       alias :specification :describe
+      alias :test_suite :describe
+      alias :suite :describe
 
     end
   end
@@ -16,6 +18,8 @@ module Spec
 
       alias_method :scenario, :it
       alias_method :story, :it
+      alias_method :test_case, :it
+      alias_method :test, :it
     end
   end
 end
@@ -24,11 +28,11 @@ module Spec
   module Runner
     class SpecParser
       def example_group_at_line(source, line_number)
-        find_above(source, line_number, /^\s*(context|describe|specification|spec)\s+(.*)\s+do/)
+        find_above(source, line_number, /^\s*(context|describe|specification|spec|test_suite|suite)\s+(.*)\s+do/)
       end
 
       def example_at_line(source, line_number)
-        find_above(source, line_number, /^\s*(specify|it|story|scenario)\s+(.*)\s+do/)
+        find_above(source, line_number, /^\s*(specify|it|story|scenario|test_case|test)\s+(.*)\s+do/)
       end
     end
   end
@@ -59,11 +63,15 @@ module Spec
       return line if line =~ /(should_not|should)_receive/
 
       line.gsub!(/(^\s*)context([\s*|\(]['|"|A-Z])/, '\1describe\2')
+      line.gsub!(/(^\s*)test_suite([\s*|\(]['|"|A-Z])/, '\1describe\2')
+      line.gsub!(/(^\s*)suite([\s*|\(]['|"|A-Z])/, '\1describe\2')
       line.gsub!(/(^\s*)spec([\s*|\(]['|"|A-Z])/, '\1describe\2') #new
       line.gsub!(/(^\s*)specification([\s*|\(]['|"|A-Z])/, '\1describe\2') #new
       line.gsub!(/(^\s*)specify([\s*|\(]['|"|A-Z])/, '\1it\2')
       line.gsub!(/(^\s*)scenario([\s*|\(]['|"|A-Z])/, '\1it\2')  #new
       line.gsub!(/(^\s*)story([\s*|\(]['|"|A-Z])/, '\1it\2')  #new
+      line.gsub!(/(^\s*)test_case([\s*|\(]['|"|A-Z])/, '\1it\2')  #new
+      line.gsub!(/(^\s*)test([\s*|\(]['|"|A-Z])/, '\1it\2')  #new
       line.gsub!(/(^\s*)context_setup(\s*[do|\{])/, '\1before(:all)\2')
       line.gsub!(/(^\s*)context_teardown(\s*[do|\{])/, '\1after(:all)\2')
       line.gsub!(/(^\s*)setup(\s*[do|\{])/, '\1before(:each)\2')

data/lib/rwebunit.rb

@@ -11,8 +11,10 @@ rescue LoadError => no_as1_err
   # active_support 2.0 loaded error
 end
 require 'active_support/core_ext'
-
 require 'spec'
+require 'hpricot' # for parsing HTML
+
+RWEBUNIT_VERSION = "1.0.3"
 
 # Extra full path to load libraries
 require File.dirname(__FILE__) + "/rwebunit/test_utils"
@@ -20,9 +22,12 @@ require File.dirname(__FILE__) + "/rwebunit/web_page"
 require File.dirname(__FILE__) + "/rwebunit/assert"
 #This cause some unit test loaded, to use it, load specifiically
 #require File.dirname(__FILE__) + "/rwebunit/web_testcase"
-require File.dirname(__FILE__) + "/rwebunit/web_tester"
+require File.dirname(__FILE__) + "/rwebunit/itest_plugin"
+require File.dirname(__FILE__) + "/rwebunit/web_browser"
+require File.dirname(__FILE__) + "/rwebunit/driver"
 require File.dirname(__FILE__) + "/rwebunit/context"
 require File.dirname(__FILE__) + "/rwebunit/driver"
 require File.dirname(__FILE__) + "/rwebunit/rspec_helper"
 require File.dirname(__FILE__) + "/rspec_extensions"
-#require File.dirname(__FILE__) + "/rwebunit/matchers/"
+require File.dirname(__FILE__) + "/watir_extensions"
+require File.dirname(__FILE__) + "/rwebunit/matchers/contains_text"

data/lib/rwebunit/assert.rb

@@ -13,11 +13,11 @@ module RWebUnit
     ##
     # text
     def assert_text_present(text)
-      assert((@web_tester.page_source.include? text), 'expected text: ' + text + ' not found')
+      assert((@web_browser.page_source.include? text), 'expected text: ' + text + ' not found')
     end
 
     def assert_text_not_present(text)
-      assert(!(@web_tester.page_source.include? text), 'expected text: ' + text + ' found')
+      assert(!(@web_browser.page_source.include? text), 'expected text: ' + text + ' found')
     end
 
     def assert_text_in_table(tableId, text)
@@ -52,7 +52,7 @@ module RWebUnit
     ##
     # Checkbox
     def assert_checkbox_not_selected(checkBoxName)
-      @web_tester.checkboxes.each { |checkbox|
+      @web_browser.checkboxes.each { |checkbox|
         if (checkbox.name == checkBoxName) then
           assert(!checkbox.isSet?, "Checkbox #{checkBoxName} checked unexpected")
         end
@@ -60,7 +60,7 @@ module RWebUnit
     end
 
     def assert_checkbox_selected(checkBoxName)
-      @web_tester.checkboxes.each { |checkbox|
+      @web_browser.checkboxes.each { |checkbox|
         if (checkbox.name == checkBoxName) then
           assert(checkbox.isSet?, "Checkbox #{checkBoxName} not checked")
         end
@@ -70,7 +70,7 @@ module RWebUnit
     ##
     # select
     def assert_option_value_not_present(selectName, optionValue)
-      @web_tester.select_lists.each { |select|
+      @web_browser.select_lists.each { |select|
         continue unless select.name == selectName
         select.o.each do |option| # items in the list
           assert(!(option.value == optionValue), "unexpected select option: #{optionValue} for #{selectName} found")
@@ -79,7 +79,7 @@ module RWebUnit
     end
 
     def assert_option_not_present(selectName, optionLabel)
-      @web_tester.select_lists.each { |select|
+      @web_browser.select_lists.each { |select|
         next unless select.name == selectName
         select.o.each do |option| # items in the list
           assert(!(option.text == optionLabel), "unexpected select option: #{optionLabel} for #{selectName} found")
@@ -88,7 +88,7 @@ module RWebUnit
     end
 
     def assert_option_value_present(selectName, optionValue)
-      @web_tester.select_lists.each { |select|
+      @web_browser.select_lists.each { |select|
         next unless select.name == selectName
         select.o.each do |option| # items in the list
           return if option.value == optionValue
@@ -98,7 +98,7 @@ module RWebUnit
     end
 
     def assert_option_present(selectName, optionLabel)
-      @web_tester.select_lists.each { |select|
+      @web_browser.select_lists.each { |select|
         next unless select.name == selectName
         select.o.each do |option| # items in the list
           return if option.text == optionLabel
@@ -108,7 +108,7 @@ module RWebUnit
     end
 
     def assert_option_equals(selectName, optionLabel)
-      @web_tester.select_lists.each { |select|
+      @web_browser.select_lists.each { |select|
         next unless select.name == selectName
         select.o.each do |option| # items in the list
           if (option.text == optionLabel) then
@@ -119,7 +119,7 @@ module RWebUnit
     end
 
     def assert_option_value_equals(selectName, optionValue)
-      @web_tester.select_lists.each { |select|
+      @web_browser.select_lists.each { |select|
         next unless select.name == selectName
         assert_equal(select.value, optionValue, "Select #{selectName}'s value is not equal to expected: '#{optionValue}'")
       }
@@ -130,7 +130,7 @@ module RWebUnit
 
     # radioGroup is the name field, radio options 'value' field
     def assert_radio_option_not_present(radioGroup, radioOption)
-      @web_tester.radios.each { |radio|
+      @web_browser.radios.each { |radio|
         if (radio.name == radioGroup) then
           assert(!(radioOption == radio.value), "unexpected radio option: " + radioOption  + " found")
         end
@@ -138,14 +138,14 @@ module RWebUnit
     end
 
     def assert_radio_option_present(radioGroup, radioOption)
-      @web_tester.radios.each { |radio|
+      @web_browser.radios.each { |radio|
         return if (radio.name == radioGroup) and (radioOption == radio.value)
       }
       fail("can't find the radio option : '#{radioOption}'")
     end
 
     def assert_radio_option_selected(radioGroup, radioOption)
-      @web_tester.radios.each { |radio|
+      @web_browser.radios.each { |radio|
         if (radio.name == radioGroup and radioOption == radio.value) then
           assert(radio.isSet?, "Radio button #{radioGroup}-[#{radioOption}] not checked")
         end
@@ -153,7 +153,7 @@ module RWebUnit
     end
 
     def assert_radio_option_not_selected(radioGroup, radioOption)
-      @web_tester.radios.each { |radio|
+      @web_browser.radios.each { |radio|
         if (radio.name == radioGroup and radioOption == radio.value) then
           assert(!radio.isSet?, "Radio button #{radioGroup}-[#{radioOption}] checked unexpected")
         end
@@ -163,26 +163,26 @@ module RWebUnit
     ##
     # Button
     def assert_button_not_present(buttonId)
-      @web_tester.buttons.each { |button|
+      @web_browser.buttons.each { |button|
         assert(button.id != buttonId, "unexpected button id: #{buttonId} found")
       }
     end
 
     def assert_button_not_present_with_text(text)
-      @web_tester.buttons.each { |button|
+      @web_browser.buttons.each { |button|
         assert(button.value != text, "unexpected button id: #{text} found")
       }
     end
 
     def assert_button_present(buttonID)
-      @web_tester.buttons.each { |button|
+      @web_browser.buttons.each { |button|
         return if buttonID == button.id
       }
       assert(false, "can't find the button with id: #{buttonID}")
     end
 
     def assert_button_present_with_text(buttonText)
-      @web_tester.buttons.each { |button|
+      @web_browser.buttons.each { |button|
         return if buttonText == button.value
       }
       assert(false, "can't find the button with text: #{buttonText}")
@@ -191,33 +191,33 @@ module RWebUnit
     ##
     # Link
     def assert_link_present_with_exact(linkText)
-      @web_tester.links.each { |link|
+      @web_browser.links.each { |link|
         return if linkText == link.text
       }
       fail( "can't find the link with text: #{linkText}")
     end
 
     def assert_link_not_present_with_exact(linkText)
-      @web_tester.links.each { |link|
+      @web_browser.links.each { |link|
         assert(linkText != link.text, "unexpected link (exact): #{linkText} found")
       }
     end
 
     def assert_link_present_with_text(linkText)
-      @web_tester.links.each { |link|
+      @web_browser.links.each { |link|
         return if link.text.include?(linkText)
       }
       fail( "can't find the link containing text: #{linkText}")
     end
 
     def assert_link_not_present_with_text(linkText)
-      @web_tester.links.each { |link|
+      @web_browser.links.each { |link|
         assert(!link.text.include?(linkText), "unexpected link containing: #{linkText} found")
       }
     end
 
     def assert_text_present_in_text_field(textfieldName, text, msg = nil)
-      @web_tester.textfields.each { |textfield|
+      @web_browser.textfields.each { |textfield|
         if (textfield.name == textfieldName) then
           assert(text_field.value.include?(text), "text: #{text} not in text field: " + textfieldName)
         end
@@ -226,8 +226,9 @@ module RWebUnit
 
     # assertions
     def assert_title_equals(title)
-      assert_equals(title, @web_tester.page_title)
+      assert_equals(title, @web_browser.page_title)
     end
+    alias assert_title assert_title_equals
 
     def assert_equals(expected, actual, msg=nil)
       assert(expected == actual, (msg.nil?) ? "Expected: #{expected} diff from actual: #{actual}" : msg)

data/lib/rwebunit/clickJSDialog.rb

@@ -0,0 +1,15 @@
+#
+#  clickJSDialog.rb 
+#
+#
+# This file contains the JS clicker when it runs as a separate process
+require 'watir/winClicker'
+
+button = "OK"
+button = ARGV[0] unless ARGV[0] == nil
+sleepTime = 0
+sleepTime = ARGV[1] unless ARGV[1] == nil
+
+clicker= WinClicker.new
+result = clicker.clickJavaScriptDialog( button )
+clicker = nil

data/lib/rwebunit/context.rb

@@ -1,24 +1,24 @@
-#***********************************************************
-#* Copyright (c) 2006, 2007 Zhimin Zhan.
-#* Distributed open-source, see full license in MIT-LICENSE
-#***********************************************************
-
-module RWebUnit
-
-  ##
-  #  Store test optionns
-  #
-  class Context
-    attr_accessor :base_url
-
-    def initialize(base_url)
-      set_base_url(base_url)
-    end
-
-    def set_base_url(baseUrl)
-      @base_url = baseUrl
-    end
-
-  end
-
-end
+#***********************************************************
+#* Copyright (c) 2006, 2007 Zhimin Zhan.
+#* Distributed open-source, see full license in MIT-LICENSE
+#***********************************************************
+
+module RWebUnit
+
+  ##
+  #  Store test optionns
+  #
+  class Context
+    attr_accessor :base_url
+
+    def initialize(base_url)
+      set_base_url(base_url)
+    end
+
+    def set_base_url(baseUrl)
+      @base_url = baseUrl
+    end
+
+  end
+
+end

data/lib/rwebunit/driver.rb

@@ -1,4 +1,3 @@
-# The Mixin is normally included in the spec/tests and pages, provide
 # convenient methods to drive the browser.
 #
 # Instead of
@@ -6,17 +5,28 @@
 # You can just use
 #    click_button("submit")
 #
+require File.join(File.dirname(__FILE__), 'itest_plugin')
+require 'timeout'
 
 module RWebUnit
   module Driver
+    include RWebUnit::ITestPlugin
+
+    def browser
+      @web_browser
+    end
 
     # Verify the next page following an operation.
     #
     # Typical usage:
     #   login_page.click_login
     #   expect_page HomePage
-    def expect_page(page_clazz)
-      page_clazz.new(@web_tester)
+    def expect_page(page_clazz, argument = nil)
+      if argument
+        page_clazz.new(@web_browser, argument)
+      else
+        page_clazz.new(@web_browser)
+      end
     end
 
     # Using Ruby block syntax to create interesting domain specific language,
@@ -69,36 +79,48 @@ module RWebUnit
     alias fail_safe failsafe
 
     def context
-      @web_tester.context
+      @web_browser.context
     end
 
     def begin_at(url)
-      @web_tester.begin_at(url)
+      dump_caller_stack
+      @web_browser.begin_at(url)
     end
 
     def ie
-      @web_tester.ie
+      @web_browser.ie
+    end
+
+    def is_firefox?
+      @web_browser.is_firefox?
+    end
+
+    def firefox
+      @web_browser.firefox
     end
 
     def close_browser
-      @web_tester.close_browser unless ENV['ITEST_LEAVE_BROWSER_OPEN_AFTER_RUN'] == "true"
+      dump_caller_stack
+      @web_browser.close_browser unless $ITEST2_LEAVE_BROWSER_OPEN_AFTER_RUN
     end
     alias close_ie close_browser
 
-    [:go_back, :go_forward, :refresh].each do |method|
-      define_method(method) do
-        @web_tester.send(method)
-      end
-    end
-    alias refresh_page refresh
 
     def goto_page(page)
       operation_delay
-      @web_tester.goto_page(page);
+      dump_caller_stack
+      @web_browser.goto_page(page);
     end
+    alias visit goto_page
 
-    def attach_browser(how, what)
-      WebTester.attach_browser(how, what)
+    def attach_browser(how, what, options = {})
+      options.merge!(:browser => is_firefox? ? "Firefox" : "IE")
+      begin
+        options.merge!(:base_url => browser.context.base_url)
+      rescue => e
+        puts "error to attach to browser: #{e}"
+      end
+      WebBrowser.attach_browser(how, what, options)
     end
 
     ##
@@ -143,20 +165,28 @@ module RWebUnit
     # p 	<p> (paragraph) tags, because
     [:area, :button, :cell, :checkbox, :div, :form, :frame, :h1, :h2, :h3, :h4, :h5, :h6, :hidden, :image, :li, :link, :map, :pre, :row, :radio, :select_list, :span, :table, :text_field, :paragraph, :file_field, :label].each do |method|
       define_method method do |*args|
-        @web_tester.send(method, *args)
+        dump_caller_stack
+        @web_browser.send(method, *args)
       end
     end
     alias td cell
     alias check_box checkbox  # seems watir doc is wrong, checkbox not check_box
     alias tr row
 
-    def contains_text(text)
-      @web_tester.contains_text(text);
+    [:back, :forward, :refresh].each do |method|
+      define_method(method) do
+        dump_caller_stack
+        @web_browser.send(method)
+      end
     end
+    alias refresh_page refresh
+    alias go_back back
+    alias go_forward forward
 
     [:images, :links, :buttons, :select_lists, :checkboxes, :radios, :text_fields].each do |method|
       define_method method do
-        @web_tester.send(method)
+        dump_caller_stack
+        @web_browser.send(method)
       end
     end
 
@@ -164,10 +194,12 @@ module RWebUnit
     #
     # page.check_checkbox('bad_ones', 'Chicken Little')
     # page.check_checkbox('good_ones', ['Cars', 'Toy Story'])
-
+    #
     [:set_form_element, :click_link_with_text, :click_link_with_id, :submit, :click_button_with_id, :click_button_with_caption, :click_button_with_value, :click_radio_option, :clear_radio_option, :select_file_for_upload, :check_checkbox, :uncheck_checkbox, :select_option].each do |method|
       define_method method do |*args|
-        @web_tester.send(method, *args)
+        dump_caller_stack
+        operation_delay
+        @web_browser.send(method, *args)
       end
     end
 
@@ -178,7 +210,19 @@ module RWebUnit
     alias click_radio_button click_radio_option
     alias clear_radio_button clear_radio_option
 
+    # for text field can be easier to be identified by attribute "id" instead of "name", not recommended though
+    def enter_text_with_id(textfield_id, value)
+      dump_caller_stack
+      operation_delay
+      text_field(:id, textfield_id).set(value)
+    end
+
+    def contains_text(text)
+      @web_browser.contains_text(text);
+    end
+
     def click_button_with_image_src_contains(image_filename)
+      dump_caller_stack
       operation_delay
       found = nil
       raise "no buttons in this page" if buttons.length <= 0
@@ -194,7 +238,7 @@ module RWebUnit
     alias click_button_with_image click_button_with_image_src_contains
 
     def new_popup_window(options)
-      @web_tester.new_popup_window(options)
+      @web_browser.new_popup_window(options)
     end
 
     # Wait for specific seconds for an Ajax update finish.
@@ -214,9 +258,9 @@ module RWebUnit
     #
     def ajax_wait_for_element(element_id, seconds, status='show', check_interval=2)
       count = 0
-      check_interval = 2 if check_interval < 1 or check_interval > seconds
+      check_interval = 1 if check_interval < 1 or check_interval > seconds
       while count < (seconds / check_interval) do
-        search_indicator = @web_tester.element_by_id(element_id)
+        search_indicator = @web_browser.element_by_id(element_id)
         search_indicator_outer_html = search_indicator.outerHtml if search_indicator
         if status == 'hide'
           return true if search_indicator_outer_html and !search_indicator_outer_html.include?('style="DISPLAY: none"')
@@ -231,7 +275,7 @@ module RWebUnit
 
     def wait_for_element(element_id, timeout = 30, interval = 0.5)
       start_time = Time.now
-      until @web_tester.element_by_id(element_id) do
+      until @web_browser.element_by_id(element_id) do
         sleep(interval)
         if (Time.now - start_time) > timeout
           raise RuntimeError, "failed to find element: #{element_id} for max #{timeout}"
@@ -239,17 +283,50 @@ module RWebUnit
       end
     end
 
-	# Warning: this does not work well with Firefox yet.
+    # TODO: Firewatir does not suport retrieving style or outerHtml
+    #    http://jira.openqa.org/browse/WTR-260
+    #    http://code.google.com/p/firewatir/issues/detail?id=76
+    #
+    # Max timeout value is 10 minutes
+    #
+    def ajax_call_complete_after_element_hidden(elem_id, check_start = 0.5, timeout = 5, interval = 0.5, &block)
+      yield
+      sleep check_start  # the time allowed to perform the coomplete
+      timeout = 10 * 60 if timeout > 10 * 600 or timeout <= 0
+      begin
+        Timeout::timeout(timeout) {
+          begin
+            elem = element_by_id(elem_id)
+            while elem  do
+              puts "outer=>#{elem.outerHtml}|"
+              puts "style =>#{elem.attribute_value('style')}|"
+              sleep interval
+              elem = element_by_id(elem_id)
+            end
+          rescue => e
+            puts e
+          end
+        }
+      rescue Timeout::Error
+        # Too slow!!
+        raise "Too slow, wait max #{timeout} seconds, the element #{elem_id} still there"
+      end
+    end
+
+    # Warning: this does not work well with Firefox yet.
     def element_text(elem_id)
-      @web_tester.element_value(elem_id)
+      @web_browser.element_value(elem_id)
     end
 
+    def element_by_id(elem_id)
+      @web_browser.element_by_id(elem_id)
+    end
 
     # ---
     # For debugging
     # ---
     def dump_response(stream = nil)
-      @web_tester.dump_response(stream)
+      @web_browser.dump_response(stream)
     end
 
     def save_current_page(to_dir = ENV['TEMP_DIR'] || "C:\\temp")
@@ -260,20 +337,207 @@ module RWebUnit
     end
 
     def click_popup_window(button, wait_time= 9, user_input=nil )
-      @web_tester.start_clicker(button, wait_time, user_input)
+      @web_browser.start_clicker(button, wait_time, user_input)
       sleep 0.5
     end
 
-	# Support of iTest to ajust the intervals between keystroke/mouse operations
+    # return plain text view of page
+    def page_text
+      Hpricot(page_source).to_plain_text
+    end
+
+    def label_with_id(label_id)
+      label(:id, label_id).text
+    end
+
+    def span_with_id(span_id)
+      span(:id, span_id).text
+    end
+
+    def cell_with_id(cell_id)
+      cell(:id, cell_id).text
+    end
+    alias table_data_with_id cell_with_id
+
+    # run a separate process waiting for the popup window to click
+    #
+    #
+    def prepare_to_click_button_in_popup(button = "OK", wait_time = 3)
+      #  !@web_browser.is_firefox?
+      # TODO: firefox is OK
+      if RUBY_PLATFORM =~ /mswin/  then
+        start_checking_js_dialog(button, wait_time)
+      else
+        raise "this only support on Windows and on IE"
+      end
+    end
+
+    # Start a background process to click the button on a javascript popup window
+    def start_checking_js_dialog(button = "OK", wait_time = 3)
+      w = WinClicker.new
+      longName = File.expand_path(File.dirname(__FILE__)).gsub("/", "\\" )
+      shortName = w.getShortFileName(longName)
+      c = "start ruby #{shortName}\\clickJSDialog.rb #{button} #{wait_time} "
+      w.winsystem(c)
+      w = nil
+    end
+
+    # Click the button in javascript popup dialog
+    # Usage:
+    #   click_button_in_popup_after { click_link('Cancel')}
+    #   click_button_in_popup_after("OK") { click_link('Cancel')}
+    #
+    def click_button_in_popup_after(options = {:button => "OK", :wait_time => 3}, &block)
+      if RUBY_PLATFORM =~ /mswin/  then
+        start_checking_js_dialog(options[:button], options[:wait_time])
+        yield
+      else
+        raise "this only support on Windows and on IE"
+      end
+    end
+
+
+    # Support of iTest to ajust the intervals between keystroke/mouse operations
     def operation_delay
       begin
-        if ENV['ITEST_OPERATION_DELAY']  && ENV['ITEST_OPERATION_DELAY'].to_i > 0 && ENV['ITEST_OPERATION_DELAY'].to_f < 30000  then # max 30 seconds
-          sleep(ENV['ITEST_OPERATION_DELAY'].to_f / 1000)
+        if $ITEST2_OPERATION_DELAY && $ITEST2_OPERATION_DELAY > 0 &&
+            $ITEST2_OPERATION_DELAY && $ITEST2_OPERATION_DELAY < 30000  then # max 30 seconds
+          sleep($ITEST2_OPERATION_DELAY / 1000)
+        end
+
+        while $ITEST2_PAUSE
+          debug("Paused, waiting ...")
+          sleep 1
         end
       rescue => e
+        puts "Error on delaying: #{e}"
         # ignore
       end
     end
 
+
+    def close_all_browsers
+      Watir::IE.close_all
+    end
+
+    def is_mac?
+      RUBY_PLATFORM.downcase.include?("darwin")
+    end
+
+    def is_windows?
+      RUBY_PLATFORM.downcase.include?("mswin")
+    end
+
+    def is_linux?
+      RUBY_PLATFORM.downcase.include?("linux")
+    end
+
+    # Start background thread to click popup windows
+    #  Warning:
+    #    Make browser window active
+    #    Don't mouse your mouse to focus other window during test execution
+    def check_for_popups
+      autoit = WIN32OLE.new('AutoItX3.Control')
+      #
+      # Do forever - assumes popups could occur anywhere/anytime in your
+      # application.
+      loop do
+        # Look for window with given title. Give up after 1 second.
+        ret = autoit.WinWait('Windows Internet Explorer', '', 1)
+        #
+        # If window found, send appropriate keystroke (e.g. {enter}, {Y}, {N}).
+        if (ret==1) then
+          autoit.Send('{enter}')
+        end
+        #
+        # Take a rest to avoid chewing up cycles and give another thread a go.
+        # Then resume the loop.
+        sleep(3)
+      end
+    end
+
+    ##
+    #  Check for "Security Information" and "Security Alert" alert popup, click 'Yes'
+    #
+    # Usage: For individual test suite
+    #
+    # before(:all) do
+    #  $popup = Thread.new { check_for_alerts }
+    #  open_in_browser
+    #  ...
+    # end
+    #
+    # after(:all) do
+    #   close_browser
+    #   Thread.kill($popup)
+    # end
+    #
+    # or for all tests,
+    #  $popup = Thread.new { check_for_alerts }
+    #  at_exit{ Thread.kill($popup) }
+    def check_for_security_alerts
+      autoit = WIN32OLE.new('AutoItX3.Control')
+      loop do
+        ["Security Alert", "Security Information"].each do |win_title|
+          ret = autoit.WinWait(win_title, '', 1)
+          if (ret==1) then
+            autoit.Send('{Y}')
+          end
+        end
+        sleep(3)
+      end
+    end
+
+    def verify_alert(title = "Microsoft Internet Explorer", button = "OK")
+      if is_windows? && !is_firefox?
+        WIN32OLE.new('AutoItX3.Control').ControlClick(title, '', button)
+      else
+        raise "This function only supports IE"
+      end
+    end
+
+    def click_button_in_security_information_popup(button = "&Yes")
+      verify_alert("Security Information", "", button)
+    end
+    alias click_security_information_popup click_button_in_security_information_popup
+
+    def click_button_in_security_alert_popup(button = "&Yes")
+      verify_alert("Security Alert", "", button)
+    end
+    alias click_security_alert_popup click_button_in_security_alert_popup
+
+    def click_button_in_javascript_popup(button = "OK")
+      verify_alert()
+    end
+    alias click_javascript_popup click_button_in_javascript_popup
+
+    ##
+    # This only works for IEs
+    #   Cons:
+    #     - Slow
+    #     - only works in IE
+    #     - does not work for security alert ?
+    def ie_popup_clicker(button_name = "OK", max_wait = 15)
+      require 'watir/contrib/enabled_popup'
+      require 'win32ole'
+      hwnd = ie.enabled_popup(15)
+      if (hwnd)  #yeah! a popup
+        popup = WinClicker.new
+        popup.makeWindowActive(hwnd) #Activate the window.
+        popup.clickWindowsButton_hwnd(hwnd, button_name) #Click the button
+        #popup.clickWindowsButton(/Internet/,button_name,30)
+        popup = nil
+      end
+    end
+
+    ##
+    #  Convert :first to 1, :second to 2, and so on...
+    def symbol_to_sequence(symb)
+      value = { :zero => 0, :first => 1, :second => 2, :third => 3,
+        :fourth => 4, :fifth => 5, :sixth => 6, :seventh => 7,
+        :eighth => 8, :ninth => 9, :tenth => 10 }[symb]
+      return value || symb.to_i
+    end
+
   end
 end