rwebunit 0.1

data/CHANGELOG

@@ -0,0 +1,6 @@
+CHANGELOG
+
+== 0.1.0
+
+* Initial release.
+* Most common web actions and assertions implemented.

data/MIT-LICENSE

@@ -0,0 +1,21 @@
+Copyright (c) 2006 Zhimin Zhan, zhimin@zhimin.com
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+

data/README

@@ -0,0 +1,30 @@
+rWebUnit is a ruby version of thoughtwork's open source jWebUnit, which 'facilitates creation of
+acceptance tests for web applications'.
+
+rWebUnit wraps the popular web testing framework: WATIR  (jWebUnit depends on HttpUnit).
+Because underlying technologies are different (HttpUnit simulates a browser, Watir drives IE), rWebUnit does
+not support full jWebUnit API.  
+
+For example, 
+  jWebUnit: checkCheckBox("name", "new_value") can set new value for a checkbox, but rWebUnit/Watir can't.
+On the other hand, HttpUnit has limited support of Javascript, You don't need to worry about it in Watir.
+
+Here are reasons you might want to try rWebUnit instead of using Watir directly.
+
+  * already familar with jWebUnit framework (arguably, more readable tests)
+  * want to use WebTest - Page framework to design your tests (look at sample\kongming_webtest.rb)
+  * want to use a high level of API beyond specific framework: WATIR
+  * utilize common test methods included in rWebUnit (like getToday ...)
+  
+TODO:
+====
+  * file upload (waiting for Watir 2.0?)
+  * script to convert jWebUnit -> rWebUnit, and vice versa.
+  
+FAQ:
+===
+1. How can I run rWebUnit tests without showing IE window?
+
+A: This is really a WATIR question. Append '-b' option your command.
+   Example: ruby hide_webtest.rb -b
+  

data/Rakefile

@@ -0,0 +1,68 @@
+require 'rubygems'
+require 'rake/testtask'
+require 'rake/rdoctask'
+
+Gem::manage_gems
+require 'rake/gempackagetask'
+
+
+$:.unshift(File.dirname(__FILE__) + "/lib")
+require 'rwebunit'
+
+desc "Default task"
+task :default => [ :clean, :test ]
+
+desc "Clean generated files"
+task :clean do
+  rm_rf 'pkg'
+  rm_rf 'doc'
+end
+
+# run the unit tests
+Rake::TestTask.new("test") { |t|
+  t.test_files = FileList['test/test*.rb']
+  t.verbose= true
+}
+
+# Generate the RDoc documentation
+Rake::RDocTask.new { |rdoc|
+  rdoc.rdoc_dir = 'doc'
+  rdoc.title = 'rWebUnit'
+  rdoc.template = "#{ENV['template']}.rb" if ENV['template']
+  rdoc.rdoc_files.include('README')
+  rdoc.rdoc_files.include('lib/rwebunit.rb')
+  rdoc.rdoc_files.include('lib/rwebunit/*.rb')
+}
+
+spec = Gem::Specification.new do |s|
+  s.platform= Gem::Platform::RUBY
+  s.name = "rwebunit"
+  s.version = "0.1"
+  s.summary = "An wrap of WATIR for functional testing of web applications"
+# s.description = ""
+
+  s.author  = "Zhimin Zhan"
+  s.email   = "zhimin@zhimin.com"
+  s.homepage= "http://www.zhimin.com/rWebUnit"
+#  s.rubyforge_project = ""
+
+  s.has_rdoc    = true
+  s.requirements << 'none'
+  s.require_path    = "lib"
+  s.autorequire     = "rwebunit"
+
+  s.files = [ "Rakefile", "README", "CHANGELOG", "MIT-LICENSE" ]
+#  s.files = s.files + Dir.glob( "bin/**/*" ).delete_if { |item| item.include?( "\.svn" ) }
+  s.files = s.files + Dir.glob( "lib/**/*" ).delete_if { |item| item.include?( "\.svn" ) }
+  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("watir", ">= 1.4.1")
+end
+
+Rake::GemPackageTask.new(spec) do |pkg|
+  pkg.need_zip = true
+end
+
+

data/docs/html/index.html

@@ -0,0 +1,129 @@
+<html>
+    <head>
+        <title>rWebUnit </title>
+    </head>
+    <body>
+        <p></p>
+
+        <table class="bodyTable">
+            <tr class="a">
+                <th>Watir Test</th>
+                <th>rWebUnit Test</th>
+            </tr>
+            <tr class="b">
+                <td valign="top" nowrap="nowrap">
+                    <div class="source">
+                        <pre>
+require 'watir'
+require 'test/unit'
+
+class WatirSearchExample < Test::Unit::TestCase
+
+  def test_search
+    ie= Watir::IE.new
+    ie.goto("http://www.google.com")
+    ie.text_field( :name, " q"). set(" httpunit")
+    ie.button( :name, " btnG"). click
+    ie.link( :text, " HttpUnit Home"). click
+    assert_equal(" HttpUnit Home", ie.document.title)
+    assert( ie.contains_text(" User' s Manual"))
+  end
+
+end
+                        </pre>
+                    </div>
+                </td>
+                <td valign="top" nowrap="nowrap">
+                    <div class="source">
+                        <pre>
+
+require 'rwebunit'
+
+class RWebUnitSearchExample < RWebUnit::WebTestCase
+
+  def test_search()
+    getTestContext().base_url="http://www.google.com"
+    beginAt("/")
+    setFormElement(" q", " httpunit")
+    clickButtonWithValue(" Google Search")
+    clickLinkWithText(" HttpUnit Home")
+    assertTitleEquals(" HttpUnit Home")
+    assertLinkPresentWithText(" User' s Manual")
+  end
+
+end
+                        </pre>
+                    </div>
+                </td>
+            </tr>
+        </table>
+        <br/>
+        <table class="bodyTable">
+            <tr class="a">
+                <th>jWebUnit TestCase</th>
+                <th>rWebUnit TestCase</th>
+            </tr>
+            <tr class="b">
+                <td valign="top" nowrap="nowrap">
+                    <div class="source">
+                        <pre>
+import net.sourceforge.jwebunit.WebTestCase;
+
+public class JWebUnitSearchExample extends WebTestCase {
+
+   public JWebUnitSearchExample(String name) {
+      super(name);
+   }
+
+   public void setUp() {
+      getTestContext().setBaseUrl("http://www.google.com");
+   }
+
+   public void testSearch() {
+      beginAt("/");
+      setFormElement("q", "httpunit");
+      submit("btnG");
+      clickLinkWithText("HttpUnit");
+      assertTitleEquals("HttpUnit");
+      assertLinkPresentWithText("User's Manual");
+   }
+}
+                        </pre>
+                    </div>
+                </td>
+
+                <td valign="top" nowrap="nowrap">
+
+                    <div class="source">
+                        <pre>
+require 'rwebunit'
+
+class RWebUnitSearchExample < RWebUnit::WebTestCase
+
+  def initialize( name)
+    super( name)
+  end
+
+  def setup
+    getTestContext(). setBaseUrl(" http:// www.google.com")
+  end
+
+  def test_search
+    beginAt("/")
+    setFormElement(" q", " httpunit")
+    submit(" btnG")
+    clickLinkWithText(" HttpUnit Home")
+    assertTitleEquals(" HttpUnit Home")
+    assertLinkPresentWithText(" User' s Manual")
+  end
+end
+                        </pre>
+                    </div>
+
+                </td>
+            </tr>
+        </table>
+
+
+    </body>
+</html>

data/lib/rwebunit/test_context.rb

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

data/lib/rwebunit/test_utils.rb

@@ -0,0 +1,80 @@
+#***********************************************************
+#* Copyright (c) 2006, Zhimin Zhan.
+#* Distributed open-source, see full license in MIT-LICENSE
+#***********************************************************
+
+module RWebUnit
+  module Utils
+
+    #useful methods for test data
+    def getToday_AU()
+	  format_date(Time.now, "%02d/%02d/%04d")
+    end
+    alias getToday getToday_AU
+
+    def getToday_US()
+	  sprintf("%02d/%02d/%04d", Time.now.month, Time.now.day, Time.now.year)
+    end
+
+    def getDaysBefore(days)
+        nil if !(days.instance_of?(Fixnum))
+	    format_date(Time.now - days * 24 * 3600)
+    end
+
+    def getYesterday
+	    getDaysBefore(1)
+    end
+    
+    def getDaysAfter(days)
+	    nil if !(days.instance_of?(Fixnum))
+	    format_date(Time.now + days * 24 * 3600)
+    end
+    
+    def getTomorrow
+	    getDaysAfter(1)
+    end
+    
+    #TODO: getDaysBefore, getDaysAfter, getYesterday, getTomorrow
+
+    # return a random number >= min, but <= max
+    def randomNumber(min, max)
+      rand(max-min+1)+min
+    end
+
+    def randomBoolean()
+      return randomNumber(0, 1) == 1
+    end
+
+    def randomChar(lowercase)
+      sprintf("%c", random_number(97, 122)) if lowercase
+      sprintf("%c", random_number(65, 90)) unless lowercase
+    end
+
+    def randomDigit()
+      sprintf("%c", randomNumber(48, 57))
+    end
+
+    def randomString(length, lowercase)
+      randomStr = ""
+      length.times {
+        randomStr += randomChar(lowercase)
+      }
+      randomStr
+    end
+
+    # Return a random string in a rangeof pre-defined strings
+    def randomStringInCollection(arr)
+      return nil if arr.empty?
+      index = random_number(0, arr.length-1)
+      arr[index]
+    end
+
+private 
+    def format_date(date, date_format = nil)
+	  date_format ||=  "%02d/%02d/%04d"
+	  sprintf(date_format, date.day, date.month, date.year)
+    end
+    
+    
+  end
+end

data/lib/rwebunit/web_page.rb

@@ -0,0 +1,62 @@
+#***********************************************************
+#* Copyright (c) 2006, Zhimin Zhan.
+#* Distributed open-source, see full license in MIT-LICENSE
+#***********************************************************
+
+module RWebUnit
+
+# WebPage (children of AbstractWebPage) encapsulates a real web page.
+# For example,
+#  beginAt("/home")
+#  @browser.clickLinkWithText("/login")
+#  @browser.setFormElement("username", "sa")
+# Can be rewritten to
+#  beginAt("/home")
+#  home_page = HomePage.new
+#  login_page = home_page.clickLoginLink
+#  login_page.enterUserName("sa")
+#
+# So you only need change in LoingPage class if UI changes, which happen quite often.
+class AbstractWebPage
+
+  # browser: passed to do assertion within the page
+  # page_text: text used to identify the page, title will be the first candidate
+  attr_accessor :browser, :page_text
+
+  def initialize(ie, page_text=nil)
+    @browser = ie
+    @page_text = page_text
+    assertOnPage
+  end
+
+  def assertTextPresent(text)
+    @browser.assertTextPresent(text)
+  end
+
+  def assertTextInElement(elementID, text)
+    @browser.assertTextInElement(elementID, text)
+  end
+  
+  def assertOnPage()
+    assertTextPresent(@page_text) if @page_text
+  end
+
+  def assertNotOnPage()
+    assertTextNotPresent(@page_text) if @page_text
+  end
+
+  def submit
+    @browser.submit
+  end
+
+  def getElementValue(elementId)
+    @browser.getElemenValue(elementId)
+  end
+
+  def dumpResponse(stream = nil)
+    @browser.dumpResponse(stream)
+  end
+  
+end
+
+end

data/lib/rwebunit/web_testcase.rb

@@ -0,0 +1,160 @@
+#***********************************************************
+#* Copyright (c) 2006, Zhimin Zhan.
+#* Distributed open-source, see full license in MIT-LICENSE
+#***********************************************************
+
+require 'test/unit'
+
+module RWebUnit
+
+class WebTestCase < Test::Unit::TestCase
+  include RWebUnit::Utils
+
+  attr_reader :web_tester
+
+  def initialize(name=nil)
+    super(name) if name
+    @web_tester = WebTester.new
+  end
+
+  def default_test
+    super unless(self.class == WebTestCase)
+  end
+
+  def getTestContext
+    @web_tester.test_context
+  end
+
+  def beginAt(url)
+    @web_tester.beginAt(url)
+  end
+
+  def openBrowser(baseUrl, relativeUrl)
+    getTestContext().base_url = baseUrl
+    beginAt(relativeUrl)
+  end
+
+  def closeBrowser
+    @web_tester.closeBrowser
+  end
+
+  def goBack()
+    @web_tester.goBack
+  end
+
+  def goForward()
+    @web_tester.goForward
+  end
+
+  def gotoPage(page)
+    @web_tester.gotoPage(page)
+  end
+
+  # assertions
+  def assertTitleEquals(title)
+    @web_tester.assertTitleEquals(title)
+  end
+
+  def assertTextPresent(text)
+    @web_tester.assertTextPresent(text)
+  end
+
+  def assertTextNotPresent(text)
+    @web_tester.assertTextNotPresent(text)
+  end
+
+  # textfields
+  def setFormElement(elementName, elementValue)
+    @web_tester.setFormElement(elementName, elementValue)
+  end
+
+  def assertTextPresentInTextField(textfieldName, text, msg = nil)
+    @web_tester.assertTextPresentInTextField(textfieldName, text, msg)
+  end
+
+  #links
+  def clickLinkWithText(linkText)
+    @web_tester.clickLinkWithText(linkText)
+  end
+
+  def assertLinkPresentWithText(linkText)
+    @web_tester.assertLinkPresentWithText(linkText)
+  end
+
+  def assertLinkNotPresentWithText(linkText)
+    @web_tester.assertLinkNotPresentWithText(linkText)
+  end
+
+  ##
+  # buttons
+
+  # submit the form using the first (index) submit button
+  def submit()
+    @web_tester.submit()
+  end
+
+  def submit(buttonId)
+    @web_tester.submit(buttonId)
+  end
+
+  def clickButton(buttonId)
+    @web_tester.clickButton(buttonId)
+  end
+
+  def clickButtonWithCaption(caption)
+    @web_tester.clickButtonWithCaption(caption)
+  end
+
+  def clickButtonWithValue(value)
+    @web_tester.clickButtonWithValue(value)
+  end
+
+  def assertButtonNotPresent(buttonID)
+    @web_tester.assertButtonNotPresent(buttonID)
+  end
+
+  def assertButtonNotPresentWithText(text) 
+    @web_tester.assertButtonNotPresentWithText(text)
+  end
+ 
+  def assertButtonPresent(buttonID) 
+    @web_tester.assertButtonPresent(buttonID)
+  end
+
+  def assertButtonPresentWithText(buttonID) 
+    @web_tester.assertButtonPresentWithText(buttonID)
+  end
+
+  # checkbox
+  def checkCheckbox(checkBoxName)
+    @web_tester.checkCheckbox(checkBoxName)
+  end
+
+  def uncheckCheckbox(checkBoxName)
+    @web_tester.uncheckCheckbox(checkBoxName)
+  end
+
+  # combo box
+  def selectOption(selectName, option)
+    @web_tester.selectOption(selectName, option)
+  end
+
+  # dhtml related
+  def assertElementPresent(elementID)
+    @web_tester.assertElementPresent(elementID)
+  end
+
+  def assertElementNotPresent(elementID)
+    @web_tester.assertElementNotPresent(elementID)
+  end
+
+  # ---
+  # For deubgging
+  # ---
+  def dumpResponse(stream = nil)
+    @web_tester.dumpResponse(stream)
+  end
+
+end
+
+end

data/lib/rwebunit/web_tester.rb

@@ -0,0 +1,277 @@
+#***********************************************************
+#* Copyright (c) 2006, Zhimin Zhan.
+#* Distributed open-source, see full license in MIT-LICENSE
+#***********************************************************
+
+require 'watir/watir_simple.rb'
+require 'runit/assert'
+
+module RWebUnit
+
+##
+#  Wrapping WATIR and provide assertions
+#
+class WebTester 
+  include Watir::Simple
+  include RUNIT::Assert
+
+  attr_accessor :test_context
+
+  def initialize
+    @test_context = TestContext.new
+  end
+
+  def beginAt(relativeURL)
+    url = @test_context.base_url  + relativeURL
+    new_browser_at(url) # create @@browser
+  end
+
+  def closeBrowser
+    begin
+     close_browser
+    rescue 
+    end
+  end
+
+
+  def goBack
+    go_back()
+  end
+
+  def goForward
+    go_forward()
+  end
+
+  def gotoPage(page)
+    navigate_to(page)
+  end
+
+  # assertions
+  def assertTitleEquals(title)
+    assert_equals(title, html_title())
+  end
+
+  # text fields
+  def setFormElement(elementName, elementValue)
+     enter_text_into_field_with_name(elementName, elementValue)
+  end
+  alias enterText setFormElement
+
+  def assertTextPresentInTextField(textfieldName, text, msg = nil)
+    assert_text_in_field(textfieldName, text, msg)
+  end
+
+  #links
+  def clickLink(linkId)
+    click_link_with_id(linkId)
+  end
+
+  def clickLinkWithText(linkText)
+    click_link_with_text(linkText)
+  end
+
+  def assertLinkPresentWithText(linkText)
+    html_links.each { |link|
+      return if linkText == link.text
+    }
+    assert(false, "can't find the link with text: #{linkText}")
+  end
+
+  def assertLinkNotPresentWithText(linkText)
+    html_links.each { |link|
+      assert(linkText != link.text, "unexpected link: #{linkText} found")
+    }
+  end
+
+  ##
+  # buttons
+
+  # submit first submit button
+  def submit(buttonName = nil)
+    if (buttonName.nil?) then
+      html_buttons.each { |button|
+        next if button.type != 'submit'
+        button.click
+        return
+      }
+    else
+      click_button_with_name(buttonName)
+    end
+  end
+
+  def clickButton(buttonId)
+    click_button_with_id(buttonId)
+  end
+
+  def clickButtonWithCaption(caption)
+    click_button_with_caption(caption)
+  end
+
+  def clickButtonWithValue(value)
+    click_button_with_value(value)
+  end
+
+  def assertButtonNotPresent(buttonId)
+   html_buttons.each { |button|
+     assert(button.id != buttonId, "unexpected button id: #{buttonId} found")
+   }
+  end
+
+  def assertButtonNotPresentWithText(text) 
+   html_buttons.each { |button|
+     assert(button.value != text, "unexpected button id: #{text} found")
+   }
+  end
+ 
+  def assertButtonPresent(buttonID) 
+   html_buttons.each { |button|
+      return if buttonID == button.id
+   }
+   assert(false, "can't find the button with id: #{buttonID}")
+  end
+
+  def assertButtonPresentWithText(buttonText)
+   html_buttons.each { |button|
+      return if buttonText == button.value
+   }
+   assert(false, "can't find the button with text: #{buttonText}")
+  end
+
+  # checkbox
+  def checkCheckbox(checkBoxName)
+    @@browser.checkbox(:name, checkBoxName).set
+  end
+
+  def uncheckCheckbox(checkBoxName)
+    @@browser.checkbox(:name, checkBoxName).clear
+  end
+
+  def assertCheckboxNotSelected(checkBoxName)
+    rasie
+  end
+
+  def assertCheckboxSelected(checkBoxName)
+    raise
+  end
+
+
+  # combo box
+  def selectOption(selectName, option)
+    @@browser.select_from_combobox_with_name(selectName, option)
+  end
+
+  def assertOptionValueNotPresent(selectName, optionValue)
+    html_selects.each { |select|
+      select.o.each do |option| # items in the list
+        assert(!(select.name == selectName && option.value == optionValue), "unexpected select option: #{optionValue} for #{selectName} found")
+      end
+    }
+  end
+
+  def assertOptionNotPresent(selectName, optionLabel)
+    html_selects.each { |select|
+      select.o.each do |option| # items in the list
+        assert(!(select.name == selectName && option.text == optionLabel), "unexpected select option: #{optionLabel} for #{selectName} found")
+      end
+    }
+  end
+
+  def assertOptionValuePresent(selectName, optionValue)
+    html_selects.each { |select|
+     select.o.each do |option| # items in the list
+       return if (select.name == selectName && option.value == optionValue)
+      end
+    }
+    assert(false, "can't find the combob box with value: #{optionValue}")
+  end
+
+  def assertOptionPresent(selectName, optionLabel)
+    html_selects.each { |select|
+     select.o.each do |option| # items in the list
+       return if (select.name == selectName && option.text == optionLabel)
+      end
+    }
+    assert(false, "can't find the combob box: #{selectName} with value: #{optionLabel}")
+  end
+
+  #text
+  def assertTextPresent(text)
+    puts html_body() if $DEBUG
+    assert((html_body().include? text), 'expected text: ' + text + ' not found')
+  end
+
+  def assertTextNotPresent(text)
+    assert(!(html_body().include? text), 'expected text: ' + text + ' found')
+  end
+
+  def assertElementPresent(elementID)
+     elem = @@browser.document.getElementById(elementID)
+     assert_not_nil(elem)
+  end
+
+  def assertElementNotPresent(elementID)
+     elem = @@browser.document.getElementById(elementID)
+     assert_nil(elem)
+  end
+
+  def assertTextInElement(elementID, text)
+    elem = @@browser.document.getElementById(elementID)
+    assert_not_nil(elem.innerText)
+    assert(elem.innerText.include?(text))
+  end
+
+  def getElementValue(elementId)
+    elem = @@browser.document.getElementById(elementId)
+    return nil if elem == nil
+    elem_val = elem.invoke('innerText')
+    return elem_val
+  end
+
+  # ---
+  # For deubgging
+  # ---
+  def dumpResponse(stream = nil)
+    if stream.nil?
+      puts html_body # std out
+    else
+      stream.puts html_body
+    end
+  end
+
+private
+  def html_body
+    @@browser.html()
+  end
+
+  def html_title
+    @@browser.document.title
+  end
+
+  def html_links
+    @@browser.links
+  end
+
+  def html_buttons
+    @@browser.buttons
+  end
+
+  def html_selects
+    @@browser.select_lists
+  end
+
+  def assert_equals(expected, actual, msg=nil)
+    assert(expected == actual, (msg.nil?) ? "Expected: #{expected} diff from actual: #{actual}" : msg)
+  end
+  alias assert_equal assert_equals
+
+  def assert_nil(actual, msg="")
+    assert(actual.nil?, msg)
+  end
+
+  def assert_not_nil(actual, msg="")
+    assert(!actual.nil?, msg)
+  end
+
+end
+
+end

data/lib/rwebunit.rb

@@ -0,0 +1,13 @@
+#***********************************************************
+#* Copyright (c) 2006, Zhimin Zhan.
+#* Distributed open-source, see full license in MIT-LICENSE
+#***********************************************************
+
+# Extra full path to load libraries
+require File.dirname(__FILE__) + "/rwebunit/test_utils"
+require File.dirname(__FILE__) + "/rwebunit/web_page"
+require File.dirname(__FILE__) + "/rwebunit/web_testcase"
+require File.dirname(__FILE__) + "/rwebunit/web_tester"
+require File.dirname(__FILE__) + "/rwebunit/test_context"
+
+

data/sample/kongming_pages.rb

@@ -0,0 +1,63 @@
+require "rwebunit"
+
+class KongmingHomePage < RWebUnit::AbstractWebPage
+
+  def initialize(browser, title)
+    super(browser, title)
+  end
+
+  def assertTheListLinkPresent
+    @browser.assertLinkPresentWithText('The List')
+  end
+
+  def assertDashboardLinkPresent
+    @browser.assertLinkPresentWithText('Dashboard')
+  end
+
+  def assertTestCenterLinkPresent
+    @browser.assertLinkPresentWithText('Test center')
+  end
+
+  def assertTestWebServiceLinkPresent
+    @browser.assertLinkPresentWithText('Test web service')
+  end
+  
+  def clickXMLFormatterLink
+    @browser.clickLinkWithText("XML Formatter")
+    KongmingXMLFormatterPage.new(@browser)
+  end
+
+  def clickHttpCallerLink
+    @browser.clickLinkWithText("Http Caller")
+    KongmingXMLFormatterPage.new(@browser)
+  end
+
+end
+
+class KongmingXMLFormatterPage < RWebUnit::AbstractWebPage
+
+  def initialize(browser)
+    super(browser, "Format XML")
+  end
+
+  def clickFillExampleLink
+    @browser.clickLinkWithText("Fill example")
+  end
+
+  def enterXml(inputXml)
+    @browser.enterText("inputText", inputXml)
+  end
+
+  def clickFormat
+    @browser.clickButtonWithValue("Format")
+  end
+
+end
+
+class KongmingXMLFormatterPage < RWebUnit::AbstractWebPage
+
+  def initialize(browser)
+    super(browser, "Http Caller")
+  end
+
+end

data/sample/kongming_webtest.rb

@@ -0,0 +1,79 @@
+require "rwebunit"
+
+$:.unshift File.dirname(__FILE__)
+require "kongming_pages.rb"
+
+class TestWuning < RWebUnit::WebTestCase
+
+   def initialize(name) 
+      super(name)
+   end
+
+   def setup
+      super
+      openBrowser("http://localhost:3721", "/home")
+   end
+
+   def teardown
+      super
+      closeBrowser()
+   end
+
+   def test_homepage_exists()
+       kongming_homepage = KongmingHomePage.new(@web_tester, "Welcome")
+   end
+
+   def test_all_links_exist
+       kongming_homepage = KongmingHomePage.new(@web_tester, "Welcome")
+       kongming_homepage.assertTheListLinkPresent()
+       kongming_homepage.assertDashboardLinkPresent
+       kongming_homepage.assertTestCenterLinkPresent
+       kongming_homepage.assertTestWebServiceLinkPresent
+   end
+
+   # enter text in a text field, then click a button
+   def test_format_xml
+       kongming_homepage = KongmingHomePage.new(@web_tester, "Welcome")
+       kongming_xmlformatter_page = kongming_homepage.clickXMLFormatterLink
+       kongming_xmlformatter_page.enterXml("<name><first>James</first><last>Bond</last></name>")
+       kongming_xmlformatter_page.clickFormat
+   end
+
+   # Invoke link to populate date using javascripts (clickFillExampleLink)
+   # Calling submit
+   # Check special text before and after submit
+   def test_format_xml_sample
+       kongming_homepage = KongmingHomePage.new(@web_tester, "Welcome")
+       kongming_xmlformatter_page = kongming_homepage.clickXMLFormatterLink
+       kongming_xmlformatter_page.clickFillExampleLink
+       @web_tester.assertElementNotPresent("formatted_xml")
+       kongming_xmlformatter_page.submit
+       @web_tester.assertElementPresent("formatted_xml")
+   end
+
+   # web testcase can utilize useful methods defined in test_utils
+   def test_can_call_utils
+       kongming_homepage = KongmingHomePage.new(@web_tester, "Welcome")
+       kongming_xmlformatter_page = kongming_homepage.clickXMLFormatterLink
+       kongming_xmlformatter_page.enterXml("<date><now>" + getToday + "</now></date>")
+       kongming_xmlformatter_page.clickFormat
+   end
+
+   def test_combobox
+       kongming_homepage = KongmingHomePage.new(@web_tester, "Welcome")
+       kongming_httpcaller_page = kongming_homepage.clickHttpCallerLink
+       # html:
+       #     <select name="method">
+       #         <option value="POST">HTTP POST </option>
+       #         <option value="GET"> HTTP GET </option>
+       #     </select>
+
+       @web_tester.assertOptionPresent("method", "HTTP POST")  # trimmed 
+       @web_tester.assertOptionPresent("method", "HTTP GET")
+       @web_tester.assertOptionNotPresent("method", "PUT")
+       @web_tester.assertOptionValuePresent("method", "POST")
+       @web_tester.assertOptionValuePresent("method", "GET")
+       @web_tester.assertOptionValueNotPresent("method", "HEAD")
+   end
+
+end

data/sample/sample_rwebunit_test.rb

@@ -0,0 +1,14 @@
+require 'rwebunit'
+
+class RWebUnitSearchExample < RWebUnit::WebTestCase
+
+   def test_search()
+      getTestContext().base_url = "http://www.google.com"
+      beginAt("/")
+      setFormElement("q", "httpunit")
+      clickButtonWithCaption("Google Search")
+      clickLinkWithText("HttpUnit Home")
+      assertTitleEquals("HttpUnit Home")
+      assertLinkPresentWithText("User's Manual")
+   end
+end

data/sample/sample_rwebunit_testcase.rb

@@ -0,0 +1,22 @@
+# the same test used in jWebUnit home page written in rWebUnit
+require 'rwebunit'
+
+class RWebUnitSearchExample < RWebUnit::WebTestCase
+
+   def initialize(name) 
+      super(name)
+   end
+
+   def setup
+      getTestContext().setBaseUrl("http://www.google.com")
+   end
+
+   def test_search()
+      beginAt("/")
+      setFormElement("q", "httpunit")
+      submit("btnG")
+      clickLinkWithText("HttpUnit Home")
+      assertTitleEquals("HttpUnit Home")
+      assertLinkPresentWithText("User's Manual")
+   end
+end

data/sample/sample_watir_test.rb

@@ -0,0 +1,16 @@
+require 'watir'
+require 'test/unit'
+
+class WatirSearchExample < Test::Unit::TestCase
+  
+  def test_search
+     ie = Watir::IE.new
+     ie.goto("http://www.google.com")
+     ie.text_field(:name, "q").set("httpunit")
+     ie.button(:name, "btnG").click
+     ie.link(:text, "HttpUnit Home").click
+     assert_equal("HttpUnit Home", ie.document.title)
+     assert(ie.contains_text("User's Manual"))
+  end
+  
+end

data/test/test_test_utils.rb

@@ -0,0 +1,73 @@
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib/rwebunit")
+$:.unshift File.dirname(__FILE__)
+
+require "test_utils.rb"
+require 'test/unit'
+
+class TestWebTestCase < Test::Unit::TestCase
+  include RWebUnit::Utils
+
+  def setup
+  end
+
+  def teardown
+  end
+
+  def test_getToday
+    today_str = sprintf("%02d/%02d/%04d", Time.now.day, Time.now.month, Time.now.year)
+    assert_equal(today_str, getToday)
+  end
+
+  def test_getDaysBefore
+    yesterday = Time.now - 24 * 3600 * 1
+    yesterday_str = sprintf("%02d/%02d/%04d", yesterday.day, yesterday.month, yesterday.year)
+    assert_equal(yesterday_str, getDaysBefore(1))
+    assert_equal(yesterday_str, getYesterday)
+  end
+  
+  def test_getDaysAfter
+    tomorrow = Time.now + 24 * 3600 * 1
+    tomorrow_str = sprintf("%02d/%02d/%04d", tomorrow.day, tomorrow.month, tomorrow.year)
+    assert_equal(tomorrow_str, getDaysAfter(1))
+    assert_equal(tomorrow_str, getTomorrow)
+  end
+  
+  def test_randomBoolean
+    true_count = 0
+    false_count = 0
+    100.times {
+      obj = randomBoolean
+      assert(obj.instance_of?(TrueClass) || obj.instance_of?(FalseClass), "can only be true or false")
+      true_count += 1 if obj
+      false_count += 1 if !obj
+    }
+    assert(true_count > 0, "it is not random")
+    assert(false_count > 0, "it is not random")
+  end
+
+  def test_randomNumber
+    tmp_array = []
+    1000.times {
+      num = randomNumber(1,10)
+      assert(num.instance_of?(Fixnum), "can only be number")
+      tmp_array << num
+    }
+    uniq_numbers = tmp_array.uniq.sort
+    assert_equal(10, uniq_numbers.length)
+    assert_equal(1, uniq_numbers[0])
+    assert_equal(10, uniq_numbers[9])
+  end
+
+  def test_randomDigit
+    tmp_array = []
+    1000.times {
+       dc = randomDigit()
+       tmp_array << dc
+    }
+    uniq_digits = tmp_array.uniq.sort
+    assert_equal(10, uniq_digits.length)
+    assert_equal('0', uniq_digits[0])
+    assert_equal('9', uniq_digits[9])
+  end
+
+end

metadata

@@ -0,0 +1,71 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: rwebunit
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+date: 2006-04-11 00:00:00 +10:00
+summary: An wrap of WATIR for functional testing of web applications
+require_paths: 
+- lib
+email: zhimin@zhimin.com
+homepage: http://www.zhimin.com/rWebUnit
+rubyforge_project: 
+description: 
+autorequire: rwebunit
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- Zhimin Zhan
+files: 
+- Rakefile
+- README
+- CHANGELOG
+- MIT-LICENSE
+- lib/rwebunit.rb
+- lib/rwebunit
+- lib/rwebunit/test_context.rb
+- lib/rwebunit/test_utils.rb
+- lib/rwebunit/web_page.rb
+- lib/rwebunit/web_testcase.rb
+- lib/rwebunit/web_tester.rb
+- test/test_test_utils.rb
+- sample/kongming_pages.rb
+- sample/kongming_webtest.rb
+- sample/sample_rwebunit_test.rb
+- sample/sample_rwebunit_testcase.rb
+- sample/sample_watir_test.rb
+- docs/html
+- docs/html/index.html
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: 
+- none
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: watir
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.4.1
+    version: