rsel 0.1.0 → 0.1.1

data/lib/rsel/support.rb

@@ -31,6 +31,8 @@ module Rsel
     def loc(locator, kind='', scope={})
       if locator.empty?
         raise ArgumentError, "locator is required."
+      elsif locator =~ /^css=/ && scope != {}
+        return csspath(locator, scope)
       elsif locator =~ /^(id=|name=|dom=|xpath=|link=|css=)/
         return locator
       else
@@ -38,6 +40,35 @@ module Rsel
       end
     end
 
+    # Return a Selenium-style CSS extending the given CSS with a locator.
+    #
+    # @param [String] locator
+    #   A Selenium-style locator beginning with `css=`.  All other values
+    #   are ignored.  (Meaning the locator is returned as passed.)
+    # @param [Hash] scope
+    #   Keywords to restrict the scope of matching elements
+    # @option scope [String] :within
+    #   Restrict scope to elements having this id, matching `locator` only if
+    #   it's contained within an element with this id.
+    # @option scope [String] :in_row
+    #   Restrict scope to a table row containing this text, matching `locator`
+    #   only if that locator is in the same row as the given text.
+    #
+    # @example
+    #   xpath('link', 'Log in')
+    #   xpath('button', 'Submit')
+    #   xpath('field', 'First name')
+    #   xpath('table_row', ['First', 'Last'])
+    #
+    def csspath(locator, scope={})
+      return locator unless locator =~ /^css=/ && scope != {}
+      if scope[:within]
+        locator[4,0] = "##{scope[:within]} "
+      elsif scope[:in_row]
+        locator[4,0] = "tr:contains(\"#{scope[:in_row]}\") "
+      end
+      return locator
+    end
 
     # Return a Selenium-style xpath generated by calling `XPath::HTML.<kind>`
     # with the given `locator`. If `scope` options are provided, the xpath is
@@ -113,6 +144,125 @@ module Rsel
         return [union]
       end
     end
+
+
+    # Escape certain characters to generate characters that can't otherwise be
+    # used in FitNesse hashtables.
+    #
+    # * \; becomes :
+    # * \' becomes ,
+    # * \[ becomes {
+    # * \] becomes }
+    # * \\ becomes \
+    #
+    # @since 0.1.1
+    #
+    def escape_for_hash(text)
+      # ((?:\\\\)*) allows any extra pairs of "\"s to be saved.
+      text = text.gsub(/(^|[^\\])\\((?:\\\\)*);/, '\1\2:')
+      text = text.gsub(/(^|[^\\])\\((?:\\\\)*)'/, '\1\2,')
+      text = text.gsub(/(^|[^\\])\\((?:\\\\)*)\[/, '\1\2{')
+      text = text.gsub(/(^|[^\\])\\((?:\\\\)*)\]/, '\1\2}')
+      text = text.gsub(/\\\\/, '\\')
+      return text
+    end
+
+
+    # Normalize the given hash of name => locator mappings.
+    # Converts all keys to lowercase and calls {#escape_for_hash} on them.
+    #
+    def normalize_ids(ids)
+      ids = {} unless ids.is_a? Hash
+      ids.keys.each do |key|
+        new_key = escape_for_hash(key.to_s.downcase)
+        new_value = escape_for_hash(ids[key])
+        ids[new_key] = new_value
+
+        # Delete the old key if necessary
+        if new_key != key
+          ids.delete(key)
+        end
+      end
+    end
+
+
+    # Strip HTML tags from the given text. This can be used for converting
+    # URLs that FitNesse has marked up back into plain URLs.
+    #
+    # @param [String] text
+    #   Text, possibly including markup, that you want to strip
+    #
+    # @since 0.1.1
+    #
+    def strip_tags(text)
+      return text.gsub(/<\/?[^>]*>/, '')
+    end
+
+    # This module defines helper methods for building XPath expressions
+    # copied from Kelp::XPaths
+    # Return an XPath for any table row containing all strings in `texts`,
+    # within the current context.
+    def xpath_row_containing(texts)
+      texts = [texts] if texts.class == String
+      conditions = texts.collect do |text|
+        "contains(., #{xpath_sanitize(text)})"
+      end.join(' and ')
+      return "//tr[#{conditions}]"
+    end
+
+    # Return the given text string in an XPath-safe form, with
+    # any single-quotes escaped by using the XPath `concat`
+    # function to combine them with the rest of the text.
+    #
+    # @example
+    #   xpath_sanitize("Bob's")
+    #   # => concat('Bob', "'", 's')
+    #
+    def xpath_sanitize(text)
+      # If there's nothing to escape, just wrap text in single-quotes
+      if !text.include?("'")
+        return "'#{text}'"
+      else
+        result = text.gsub(/'/, %{', "'", '})
+        return "concat('#{result}')"
+      end
+    end
+
+    # Convert a string like "yes", "true", "1", etc.
+    # Values currently recognized as true, case-insensitive:
+    # * [empty string]
+    # * 1
+    # * Check
+    # * Checked
+    # * On
+    # * Select
+    # * Selected
+    # * True
+    # * Yes
+    def string_is_true?(s)
+      return /^(?:yes|true|on|(?:check|select)(?:ed)?|1|)$/i === s
+    end
+
+    # Compare values like Selenium does, with regexpi? and globs.
+    # @param [String] text
+    #   A string.
+    #
+    # @param [String] expected
+    #   Another string.  This one may have glob:, regexp:, etc.
+    #
+    def selenium_compare(text, expected)
+      if expected.sub!(/^regexp:/, '')
+        return /#{expected}/ === text
+      elsif expected.sub!(/^regexpi:/, '')
+        return /#{expected}/i === text
+      elsif expected.sub!(/^exact:/, '')
+        return text == expected
+      else
+        # Default is glob, whether or not glob: is present.
+        expected.sub!(/^glob:/, '')
+        return File.fnmatch(expected, text)
+      end
+    end
   end
 end
 

data/rsel.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
   s.name = "rsel"
-  s.version = "0.1.0"
+  s.version = "0.1.1"
   s.summary = "Runs Selenium tests from FitNesse"
   s.description = <<-EOS
     Rsel provides a Slim fixture for running Selenium tests, with
@@ -16,10 +16,12 @@ Gem::Specification.new do |s|
   s.add_dependency 'selenium-client'
 
   s.add_development_dependency 'rake', '0.8.7'
-  s.add_development_dependency 'sinatra'
+  s.add_development_dependency 'sinatra' # For test webapp
   s.add_development_dependency 'mongrel'
-  s.add_development_dependency 'yard'
+  s.add_development_dependency 'yard' # For documentation
+  s.add_development_dependency 'rdiscount' # For YARD / Markdown
   s.add_development_dependency 'rspec', '>= 2.2.0'
+  s.add_development_dependency 'rcov'
 
   s.files = `git ls-files`.split("\n")
   # Don't include .jar files in distribution

data/spec/selenium_test_spec.rb

@@ -7,7 +7,7 @@ describe Rsel::SeleniumTest do
   end
 
   after(:all) do
-    @st.close_browser
+    @st.close_browser('without showing errors')
   end
 
   context "initialization" do
@@ -19,6 +19,79 @@ describe Rsel::SeleniumTest do
       @st.url.should == "http://localhost:8070/"
       @st.browser.host.should == "localhost"
       @st.browser.port.should == 4444
+      @st.stop_on_failure.should == false
+      @st.found_failure.should == false
+    end
+
+    context "stop_on_failure option" do
+      it "can be initialized with a string" do
+        st = Rsel::SeleniumTest.new('localhost', :stop_on_failure => 'true')
+        st.stop_on_failure.should be_true
+        st = Rsel::SeleniumTest.new('localhost', :stop_on_failure => 'FALSE')
+        st.stop_on_failure.should be_false
+      end
+
+      it "can be initialized with a boolean" do
+        st = Rsel::SeleniumTest.new('localhost', :stop_on_failure => true)
+        st.stop_on_failure.should be_true
+        st = Rsel::SeleniumTest.new('localhost', :stop_on_failure => false)
+        st.stop_on_failure.should be_false
+      end
+    end
+
+  end
+
+  context "opening, closing, and maximizing" do
+    describe "#open_browser" do
+      # FIXME: This blows up for some unknown reason
+      #it "raises StopTestCannotConnect if the connection fails" do
+        #st = Rsel::SeleniumTest.new('bogus_host')
+        #lambda do
+          #st.open_browser
+        #end.should raise(Rsel::StopTestCannotConnect)
+      #end
+
+      # TODO: Find a cross-platform way of testing this
+      #it "uses the javascript-xpath library for *iexplore" do
+        #st = Rsel::SeleniumTest.new('localhost', :browser => '*iexplore')
+        #st.open_browser
+      #end
+    end
+
+    describe "#maximize_browser" do
+      it "returns true" do
+        st = Rsel::SeleniumTest.new('http://localhost:8070')
+        st.open_browser
+        st.maximize_browser.should be_true
+        st.close_browser
+      end
+    end
+
+    describe "#close_browser" do
+      before(:each) do
+        @st_temp = Rsel::SeleniumTest.new('http://localhost:8070')
+        @st_temp.open_browser
+      end
+
+      it "returns true if there are no errors" do
+        @st_temp.close_browser('and show errors').should be_true
+      end
+
+      it "returns true if there are errors, but show_errors is unset" do
+        @st_temp.see("Nonexistent words")
+        @st_temp.close_browser('').should be_true
+      end
+
+      # FIXME: Figure out why this fails. All rspec says is:
+      #   Failure/Error: end.should raise(Rsel::StopTestStepFailed)
+      #   Rsel::StopTestStepFailed:
+      #     Rsel::StopTestStepFailed
+      #it "raises StopTestStepFailed if there are errors and show_errors is set" do
+        #@st_temp.see("Nonexistent words")
+        #lambda do
+          #@st_temp.close_browser('and show errors')
+        #end.should raise(Rsel::StopTestStepFailed)
+      #end
     end
   end
 
@@ -82,8 +155,10 @@ describe Rsel::SeleniumTest do
 
       context "fails when" do
         it "text is absent" do
+          @st.errors
           @st.see("Nonexistent").should be_false
           @st.see("Some bogus text").should be_false
+          @st.errors.should eq('')
         end
       end
 
@@ -103,8 +178,10 @@ describe Rsel::SeleniumTest do
 
       context "fails when" do
         it "text is present" do
+          @st.errors
           @st.do_not_see("Welcome").should be_false
           @st.do_not_see("This is a Sinatra webapp").should be_false
+          @st.errors.should eq('')
         end
       end
 
@@ -199,6 +276,257 @@ describe Rsel::SeleniumTest do
   end # links
 
 
+  context "temporal visibility" do
+    before(:each) do
+      @st.visit("/slowtext").should be_true
+    end
+
+    describe "#see_within_seconds" do
+      context "passes when" do
+        it "text is already present" do
+          @st.see("Late text page").should be_true
+          @st.see_within_seconds("The text is coming...", 10).should be_true
+        end
+        it "text appears in time" do
+          @st.see("The text is coming...").should be_true
+          @st.do_not_see("The text is here!").should be_true
+          @st.see_within_seconds("The text is here!", "10").should be_true
+          @st.see("The text is here!").should be_true
+        end
+        it "text appears within default time" do
+          @st.see("The text is coming...").should be_true
+          @st.do_not_see("The text is here!").should be_true
+          @st.see_within_seconds("The text is here!").should be_true
+          @st.see("The text is here!").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "text appears too late" do
+          @st.see("The text is coming...").should be_true
+          @st.do_not_see("The text is here!").should be_true
+          @st.see_within_seconds("The text is here!", 1).should be_false
+        end
+        it "text never appears" do
+          @st.see_within_seconds("Nonexistent", 5).should be_false
+        end
+      end
+
+      it "is case-sensitive" do
+        @st.see_within_seconds("The text is here!", 5).should be_true
+        @st.see_within_seconds("The text IS HERE!", 5).should be_false
+      end
+    end
+
+    describe "#do_not_see_within_seconds" do
+      context "passes when" do
+        it "text is already absent" do
+          @st.see("Late text page").should be_true
+          @st.do_not_see_within_seconds("Some absent text", 10).should be_true
+        end
+        it "text disappears in time" do
+          @st.see_within_seconds("The text is here!", 10).should be_true
+          @st.do_not_see_within_seconds("The text is here!", "10").should be_true
+          @st.do_not_see("The text is here!").should be_true
+        end
+        it "text disappears within default time" do
+          @st.see_within_seconds("The text is here!", 10).should be_true
+          @st.do_not_see_within_seconds("The text is here!").should be_true
+          @st.do_not_see("The text is here!").should be_true
+        end
+      end
+
+      context "fails when" do
+        it "text disappears too late" do
+          @st.see_within_seconds("The text is here!", 10).should be_true
+          @st.do_not_see_within_seconds("The text is here!", 1).should be_false
+        end
+        it "text never disappears" do
+          @st.do_not_see_within_seconds("The text is coming...", 5).should be_false
+        end
+      end
+    end
+  end # temporal visibility
+
+
+  context "conditionals" do
+    before(:each) do
+      @st.visit("/").should be_true
+    end
+
+    describe "#if_i_see" do
+      context "passes when" do
+        it "sees text" do
+          @st.if_i_see("About this site").should be_true
+          @st.click("About this site").should be_true
+          @st.end_if.should be_true
+        end
+
+        it "is inside a passed block" do
+          @st.if_i_see("About this site").should be_true
+          @st.click("About this site").should be_true
+          @st.page_loads_in_seconds_or_less(10).should be_true
+          @st.if_i_see("This site is").should be_true
+          @st.see("is really cool.").should be_true
+          @st.end_if.should be_true
+          @st.end_if.should be_true
+        end
+      end
+
+      context "skips when" do
+        it "does not see text" do
+          @st.if_i_see("Bogus link").should be_nil
+          @st.click("Bogus link").should be_nil
+          @st.end_if.should be_true
+        end
+
+        it "is inside a skipped block" do
+          @st.if_i_see("Bogus link").should be_nil
+          @st.click("Bogus link").should be_nil
+          @st.if_i_see("About this site").should be_nil
+          @st.click("About this site").should be_nil
+          @st.end_if.should be_nil
+          @st.end_if.should be_true
+        end
+      end
+    end
+
+    describe "#if_parameter" do
+      context "passes when" do
+        it "sees yes" do
+          @st.if_parameter("yes").should be_true
+          @st.click("About this site").should be_true
+          @st.end_if.should be_true
+        end
+
+        it "sees true" do
+          @st.if_parameter("true").should be_true
+          @st.click("About this site").should be_true
+          @st.end_if.should be_true
+        end
+
+        it "sees YES" do
+          @st.if_parameter("YES").should be_true
+          @st.click("About this site").should be_true
+          @st.end_if.should be_true
+        end
+
+        it "sees TRUE" do
+          @st.if_parameter("TRUE").should be_true
+          @st.click("About this site").should be_true
+          @st.end_if.should be_true
+        end
+
+        it "is inside a passed block" do
+          @st.if_i_see("About this site").should be_true
+          @st.click("About this site").should be_true
+          @st.page_loads_in_seconds_or_less(10).should be_true
+          @st.if_parameter("True").should be_true
+          @st.see("is really cool.").should be_true
+          @st.end_if.should be_true
+          @st.end_if.should be_true
+        end
+      end
+
+      context "skips when" do
+        it "sees something other than yes or true" do
+          @st.if_parameter("Bogus").should be_nil
+          @st.click("Bogus link").should be_nil
+          @st.end_if.should be_true
+        end
+
+        it "is inside a skipped block" do
+          @st.if_parameter("Bogus link").should be_nil
+          @st.click("Bogus link").should be_nil
+          @st.if_parameter("TRUE").should be_nil
+          @st.click("About this site").should be_nil
+          @st.end_if.should be_nil
+          @st.end_if.should be_true
+        end
+      end
+    end
+
+    # TODO: if_is
+    describe "#if_is" do
+      context "passes when" do
+        it "sees the same string" do
+          @st.if_is("yes", 'yes').should be_true
+          @st.click("About this site").should be_true
+          @st.end_if.should be_true
+        end
+
+        it "sees a matching empty string" do
+          @st.if_is("",'').should be_true
+          @st.click("About this site").should be_true
+          @st.end_if.should be_true
+        end
+
+        it "is inside a passed block" do
+          @st.if_i_see("About this site").should be_true
+          @st.click("About this site").should be_true
+          @st.page_loads_in_seconds_or_less(10).should be_true
+          @st.if_is("True", "True").should be_true
+          @st.see("is really cool.").should be_true
+          @st.end_if.should be_true
+          @st.end_if.should be_true
+        end
+      end
+
+      context "skips when" do
+        it "sees different strings" do
+          @st.if_is("Ken", "Bogus").should be_nil
+          @st.click("Bogus link").should be_nil
+          @st.end_if.should be_true
+        end
+
+        it "is inside a skipped block" do
+          @st.if_is("Ken", "Bogus").should be_nil
+          @st.click("Bogus link").should be_nil
+          @st.if_is("True", "True").should be_nil
+          @st.click("About this site").should be_nil
+          @st.end_if.should be_nil
+          @st.end_if.should be_true
+        end
+      end
+    end
+
+    describe "#otherwise" do
+      context "skips when" do
+        it "its if was true" do
+          @st.if_i_see("About this site").should be_true
+          @st.click("About this site").should be_true
+          @st.otherwise.should be_nil
+          @st.click("Bogus link").should be_nil
+          @st.end_if.should be_true
+        end
+      end
+      context "passes when" do
+        it "its if was false" do
+          @st.if_i_see("Bogus link").should be_nil
+          @st.click("Bogus link").should be_nil
+          @st.otherwise.should be_true
+          @st.click("About this site").should be_true
+          @st.end_if.should be_true
+        end
+      end
+
+      context "fails when" do
+        it "does not have a matching if" do
+          @st.otherwise.should be_false
+        end
+      end
+    end
+
+    describe "#end_if" do
+      context "fails when" do
+        it "does not have a matching if" do
+          @st.end_if.should be_false
+        end
+      end
+    end
+  end # conditionals
+
+
   context "buttons" do
     before(:each) do
       @st.visit("/form").should be_true
@@ -721,7 +1049,7 @@ describe Rsel::SeleniumTest do
       end
     end
 
-    context "#radio_is_enabled" do
+    describe "#radio_is_enabled" do
       context "passes when" do
         context "radiobutton with label" do
           it "exists, and is enabled" do
@@ -758,6 +1086,44 @@ describe Rsel::SeleniumTest do
         end
       end
     end
+
+    describe "#radio_is_disabled" do
+      context "passes when" do
+        context "radiobutton with label" do
+          it "exists, and is disabled" do
+            @st.select_radio("Briefs")
+            @st.radio_is_disabled("Boxers").should be_true
+          end
+
+          it "exists within scope, and is disabled" do
+            @st.select_radio("Briefs", :within => "clothing")
+            @st.radio_is_disabled("Boxers", :within => "clothing").should be_true
+          end
+
+          it "exists in table row, and is disabled" do
+            # TODO
+          end
+        end
+      end
+
+      context "fails when" do
+        context "radiobutton with label" do
+          it "does not exist" do
+            @st.radio_is_disabled("Naked").should be_false
+          end
+
+          it "exists, but is enabled" do
+            @st.select_radio("Briefs")
+            @st.radio_is_disabled("Briefs").should be_false
+          end
+
+          it "exists and is disabled, but not within scope" do
+            @st.select_radio("Briefs", :within => "clothing")
+            @st.radio_is_disabled("Briefs", :within => "food").should be_false
+          end
+        end
+      end
+    end
   end # radiobuttons
 
 
@@ -899,6 +1265,1052 @@ describe Rsel::SeleniumTest do
     end
   end # dropdowns
 
+  # The same field operations, but with the generic set_field function...
+  context "generic_fields" do
+    # TODO: Remove entries that don't use "set_field" in the next 600 or so lines.
+    describe "#set_field" do
+      context "fields" do
+        before(:each) do
+          @st.visit("/form").should be_true
+        end
+
+        context "#set_field with #type_into_field" do
+          context "passes when" do
+            context "text field with label" do
+              it "exists" do
+                @st.set_field("First name", "Eric").should be_true
+                @st.set_field("Last name", "Pierce").should be_true
+              end
+              it "exists within scope" do
+                @st.set_field("First name", "Eric", :within => 'person_form').should be_true
+                @st.set_field("First name", "Andrea", :within => 'spouse_form').should be_true
+              end
+            end
+
+            context "text field with id" do
+              it "exists" do
+                @st.set_field("first_name", "Eric").should be_true
+                @st.set_field("last_name", "Pierce").should be_true
+              end
+            end
+
+            context "textarea with label" do
+              it "exists" do
+                @st.set_field("Life story", "Blah blah blah").should be_true
+                @st.set_field("Life story", "Jibber jabber").should be_true
+              end
+            end
+
+            context "textarea with id" do
+              it "exists" do
+                @st.set_field("biography", "Blah blah blah").should be_true
+                @st.set_field("biography", "Jibber jabber").should be_true
+              end
+            end
+          end
+
+          context "fails when" do
+            it "no field with the given label or id exists" do
+              @st.set_field("Middle name", "Matthew").should be_false
+              @st.set_field("middle_name", "Matthew").should be_false
+            end
+
+            it "field exists, but not within scope" do
+              @st.set_field("Life story", "Long story",
+                            :within => 'spouse_form').should be_false
+            end
+
+            it "field exists, but is read-only" do
+              @st.visit("/readonly_form").should be_true
+              @st.set_field("First name", "Eric").should be_false
+            end
+          end
+        end
+
+        context "#set_field with #field_contains" do
+          context "passes when" do
+            context "text field with label" do
+              it "equals the text" do
+                @st.set_field("First name", "Marcus")
+                @st.field_contains("First name", "Marcus").should be_true
+              end
+
+              it "contains the text" do
+                @st.set_field("First name", "Marcus")
+                @st.field_contains("First name", "Marc").should be_true
+              end
+            end
+
+            context "textarea with label" do
+              it "contains the text" do
+                @st.set_field("Life story", "Blah dee blah")
+                @st.field_contains("Life story", "blah").should be_true
+              end
+            end
+          end
+
+          context "fails when" do
+            context "text field with label" do
+              it "does not contain the text" do
+                @st.set_field("First name", "Marcus")
+                @st.field_contains("First name", "Eric").should be_false
+              end
+            end
+
+            context "textarea with label" do
+              it "does not contain the text" do
+                @st.set_field("Life story", "Blah dee blah")
+                @st.field_contains("Life story", "spam").should be_false
+              end
+            end
+          end
+        end
+
+        context "#set_field with #generic_field_equals" do
+          context "passes when" do
+            context "text field with label" do
+              it "equals the text" do
+                @st.set_field("First name", "Ken")
+                @st.generic_field_equals("First name", "Ken").should be_true
+              end
+
+              it "equals the text, and is within scope" do
+                @st.set_field("First name", "Eric", :within => "person_form")
+                @st.generic_field_equals("First name", "Eric", :within => "person_form")
+              end
+            end
+
+            context "textarea with label" do
+              it "equals the text" do
+                @st.set_field("Life story", "Blah dee blah")
+                @st.generic_field_equals("Life story", "Blah dee blah").should be_true
+              end
+
+              it "equals the text, and is within scope" do
+                @st.set_field("Life story", "Blah dee blah",
+                              :within => "person_form")
+                @st.generic_field_equals("Life story", "Blah dee blah",
+                                 :within => "person_form").should be_true
+              end
+
+              it "equals the text, and is in table row" do
+                # TODO
+              end
+            end
+          end
+
+          context "fails when" do
+            context "text field with label" do
+              it "does not exactly equal the text" do
+                @st.set_field("First name", "Marcus")
+                @st.generic_field_equals("First name", "Marc").should be_false
+              end
+            end
+
+            context "textarea with label" do
+              it "does not exist" do
+                @st.generic_field_equals("Third name", "Smith").should be_false
+              end
+
+              it "does not exactly equal the text" do
+                @st.set_field("Life story", "Blah dee blah")
+                @st.generic_field_equals("Life story", "Blah dee").should be_false
+              end
+
+              it "exactly equals the text, but is not within scope" do
+                @st.set_field("First name", "Eric", :within => "person_form")
+                @st.generic_field_equals("First name", "Eric", :within => "spouse_form").should be_false
+              end
+
+              it "exactly equals the text, but is not in table row" do
+                # TODO
+              end
+            end
+          end
+        end
+      end # fields
+
+
+      context "checkboxes" do
+        before(:each) do
+          @st.visit("/form").should be_true
+        end
+
+        context "#set_field with #enable_checkbox" do
+          context "passes when" do
+            context "checkbox with label" do
+              it "exists" do
+                @st.set_field("I like cheese", "on").should be_true
+                @st.set_field("I like salami", "on").should be_true
+                @st.generic_field_equals("I like cheese", "on").should be_true
+                @st.generic_field_equals("I like salami", "on").should be_true
+              end
+
+              it "exists and is already checked" do
+                @st.set_field("I like cheese", "on").should be_true
+                @st.set_field("I like cheese", "on").should be_true
+                @st.generic_field_equals("I like cheese", "on").should be_true
+              end
+
+              it "exists within scope" do
+                @st.set_field("I like cheese", "on", :within => "cheese_checkbox").should be_true
+                @st.set_field("I like salami", "on", :within => "salami_checkbox").should be_true
+                @st.generic_field_equals("I like cheese", "on", :within => "cheese_checkbox").should be_true
+                @st.generic_field_equals("I like salami", "on", :within => "salami_checkbox").should be_true
+              end
+
+              it "exists in table row" do
+                @st.visit("/table")
+                @st.set_field("Like", "on", :in_row => "Marcus").should be_true
+                @st.generic_field_equals("Like", "on", :in_row => "Marcus").should be_true
+              end
+            end
+
+            context "checkbox with id=" do
+              it "exists" do
+                @st.set_field("id=like_cheese", "on").should be_true
+                @st.generic_field_equals("id=like_cheese", "on").should be_true
+              end
+            end
+
+            context "checkbox with xpath=" do
+              it "exists" do
+                @st.set_field("xpath=//input[@id='like_cheese']", "on").should be_true
+                @st.generic_field_equals("xpath=//input[@id='like_cheese']", "on").should be_true
+              end
+            end
+          end
+
+          context "fails when" do
+            context "checkbox with label" do
+              it "does not exist" do
+                @st.set_field("I dislike bacon", "on").should be_false
+                @st.set_field("I like broccoli", "on").should be_false
+              end
+
+              it "exists, but not within scope" do
+                @st.set_field("I like cheese", "on", :within => "salami_checkbox").should be_false
+                @st.set_field("I like salami", "on", :within => "cheese_checkbox").should be_false
+              end
+
+              it "exists, but not in table row" do
+                @st.visit("/table")
+                @st.set_field("Like", "on", :in_row => "Eric").should be_false
+              end
+
+              it "exists, but is read-only" do
+                @st.visit("/readonly_form").should be_true
+                @st.set_field("I like salami", "on").should be_false
+              end
+            end
+          end
+        end
+
+        context "#set_field with #disable_checkbox" do
+          context "passes when" do
+            context "checkbox with label" do
+              it "exists" do
+                @st.set_field("I like cheese", "off").should be_true
+                @st.set_field("I like salami", "off").should be_true
+                @st.generic_field_equals("I like cheese", "off").should be_true
+                @st.generic_field_equals("I like salami", "off").should be_true
+              end
+
+              it "exists and is already unchecked" do
+                @st.set_field("I like cheese", "off").should be_true
+                @st.set_field("I like cheese", "off").should be_true
+                @st.generic_field_equals("I like cheese", "off").should be_true
+              end
+
+              it "exists within scope" do
+                @st.set_field("I like cheese", "off", :within => "cheese_checkbox").should be_true
+                @st.set_field("I like salami", "off", :within => "preferences_form").should be_true
+                @st.generic_field_equals("I like cheese", "off", :within => "cheese_checkbox").should be_true
+                @st.generic_field_equals("I like salami", "off", :within => "preferences_form").should be_true
+              end
+
+              it "exists in table row" do
+                @st.visit("/table")
+                @st.set_field("Like", "off", :in_row => "Marcus").should be_true
+                @st.generic_field_equals("Like", "off", :in_row => "Marcus").should be_true
+              end
+            end
+
+            context "checkbox with id=" do
+              it "exists" do
+                @st.set_field("id=like_cheese", "off").should be_true
+                @st.generic_field_equals("id=like_cheese", "off").should be_true
+              end
+            end
+
+            context "checkbox with xpath=" do
+              it "exists" do
+                @st.set_field("xpath=//input[@id='like_cheese']", "off").should be_true
+                @st.generic_field_equals("xpath=//input[@id='like_cheese']", "off").should be_true
+              end
+            end
+          end
+
+          context "fails when" do
+            context "checkbox with label" do
+              it "does not exist" do
+                @st.set_field("I dislike bacon", "off").should be_false
+                @st.set_field("I like broccoli", "off").should be_false
+              end
+
+              it "exists, but not within scope" do
+                @st.set_field("I like cheese", "off", :within => "salami_checkbox").should be_false
+                @st.set_field("I like salami", "off", :within => "cheese_checkbox").should be_false
+              end
+
+              it "exists, but not in table row" do
+                @st.visit("/table")
+                @st.set_field("Like", "off", :in_row => "Eric").should be_false
+              end
+
+              it "exists, but is read-only" do
+                @st.visit("/readonly_form").should be_true
+                @st.set_field("I like cheese", "off").should be_false
+              end
+            end
+          end
+        end
+
+        context "#set_field with #checkbox_is_enabled" do
+          context "passes when" do
+            context "checkbox with label" do
+              it "exists and is checked" do
+                @st.set_field("I like cheese", "on").should be_true
+                @st.checkbox_is_enabled("I like cheese").should be_true
+              end
+
+              it "exists within scope and is checked" do
+                @st.set_field("I like cheese", "on", :within => "cheese_checkbox").should be_true
+                @st.checkbox_is_enabled("I like cheese", :within => "cheese_checkbox").should be_true
+              end
+
+              it "exists in table row and is checked" do
+                @st.visit("/table")
+                @st.set_field("Like", "on", :in_row => "Ken").should be_true
+                @st.checkbox_is_enabled("Like", :in_row => "Ken").should be_true
+              end
+
+              it "exists and is checked, but read-only" do
+                @st.visit("/readonly_form").should be_true
+                @st.checkbox_is_enabled("I like cheese").should be_true
+              end
+            end
+          end
+
+          context "fails when" do
+            context "checkbox with label" do
+              it "does not exist" do
+                @st.checkbox_is_enabled("I dislike bacon").should be_false
+              end
+
+              it "exists but is unchecked" do
+                @st.set_field("I like cheese", "off").should be_true
+                @st.checkbox_is_enabled("I like cheese").should be_false
+              end
+
+              it "exists and is checked, but not within scope" do
+                @st.set_field("I like cheese", "on", :within => "cheese_checkbox").should be_true
+                @st.checkbox_is_enabled("I like cheese", :within => "salami_checkbox").should be_false
+              end
+
+              it "exists and is checked, but not in table row" do
+                @st.visit("/table")
+                @st.set_field("Like", "on", :in_row => "Marcus").should be_true
+                @st.checkbox_is_enabled("Like", :in_row => "Eric").should be_false
+              end
+            end
+          end
+        end
+
+        context "#set_field with #checkbox_is_disabled" do
+          context "passes when" do
+            context "checkbox with label" do
+              it "exists and is unchecked" do
+                @st.set_field("I like cheese", "off").should be_true
+                @st.checkbox_is_disabled("I like cheese").should be_true
+              end
+
+              it "exists within scope and is unchecked" do
+                @st.set_field("I like cheese", "off", :within => "cheese_checkbox").should be_true
+                @st.checkbox_is_disabled("I like cheese", :within => "cheese_checkbox").should be_true
+              end
+
+              it "exists in table row and is unchecked" do
+                @st.visit("/table")
+                @st.set_field("Like", "off", :in_row => "Ken").should be_true
+                @st.checkbox_is_disabled("Like", :in_row => "Ken").should be_true
+              end
+
+              it "exists and is unchecked, but read-only" do
+                @st.visit("/readonly_form").should be_true
+                @st.checkbox_is_disabled("I like salami").should be_true
+              end
+            end
+          end
+
+          context "fails when" do
+            context "checkbox with label" do
+              it "does not exist" do
+                @st.checkbox_is_disabled("I dislike bacon").should be_false
+              end
+
+              it "exists but is checked" do
+                @st.set_field("I like cheese", "on").should be_true
+                @st.checkbox_is_disabled("I like cheese").should be_false
+              end
+
+              it "exists and is unchecked, but not within scope" do
+                @st.set_field("I like cheese", "off", :within => "cheese_checkbox").should be_true
+                @st.checkbox_is_disabled("I like cheese", :within => "salami_checkbox").should be_false
+              end
+
+              it "exists and is unchecked, but not in table row" do
+                @st.visit("/table")
+                @st.set_field("Like", "off", :in_row => "Marcus").should be_true
+                @st.checkbox_is_disabled("Like", :in_row => "Eric").should be_false
+              end
+            end
+          end
+        end
+      end # checkboxes
+
+
+      context "radiobuttons" do
+        before(:each) do
+          @st.visit("/form").should be_true
+        end
+
+        context "#set_field with #select_radio" do
+          context "passes when" do
+            context "radiobutton with label" do
+              it "exists" do
+                @st.set_field("Briefs").should be_true
+              end
+
+              it "exists within scope" do
+                @st.set_field("Briefs", "", :within => "clothing").should be_true
+              end
+
+              it "exists in table row" do
+                # TODO
+              end
+            end
+          end
+
+          context "fails when" do
+            context "radiobutton with label" do
+              it "does not exist" do
+                @st.set_field("Naked", "").should be_false
+              end
+
+              it "exists, but not within scope" do
+                @st.set_field("Briefs", "", :within => "food").should be_false
+              end
+
+              it "exists, but is read-only" do
+                @st.visit("/readonly_form").should be_true
+                @st.set_field("Boxers", "").should be_false
+              end
+
+              it "exists, but not in table row" do
+                # TODO
+              end
+            end
+          end
+        end
+
+        context "#set_field with #radio_is_enabled" do
+          context "passes when" do
+            context "radiobutton with label" do
+              it "exists, and is enabled" do
+                @st.set_field("Briefs")
+                @st.radio_is_enabled("Briefs").should be_true
+              end
+
+              it "exists within scope, and is enabled" do
+                @st.set_field("Briefs", "", :within => "clothing")
+                @st.radio_is_enabled("Briefs", :within => "clothing").should be_true
+              end
+
+              it "exists in table row, and is enabled" do
+                # TODO
+              end
+            end
+          end
+
+          context "fails when" do
+            context "radiobutton with label" do
+              it "does not exist" do
+                @st.radio_is_enabled("Naked").should be_false
+              end
+
+              it "exists, but is not enabled" do
+                @st.set_field("Briefs", "")
+                @st.radio_is_enabled("Boxers").should be_false
+              end
+
+              it "exists and is enabled, but not within scope" do
+                @st.set_field("Briefs", "", :within => "clothing")
+                @st.radio_is_enabled("Briefs", :within => "food").should be_false
+              end
+            end
+          end
+
+        context "#set_field with #generic_field_equals for #radio_is_enabled" do
+          context "passes when" do
+            context "radiobutton with label" do
+              it "exists, and is enabled" do
+                @st.set_field("Briefs")
+                @st.generic_field_equals("Briefs", "on").should be_true
+              end
+
+              it "exists within scope, and is enabled" do
+                @st.set_field("Briefs", "", :within => "clothing")
+                @st.generic_field_equals("Briefs", "on", :within => "clothing").should be_true
+              end
+
+              it "exists in table row, and is enabled" do
+                # TODO
+              end
+            end
+          end
+
+          context "fails when" do
+            context "radiobutton with label" do
+              it "does not exist" do
+                @st.generic_field_equals("Naked", "on").should be_false
+              end
+
+              it "exists, but is not enabled" do
+                @st.set_field("Briefs", "")
+                @st.generic_field_equals("Boxers", "on").should be_false
+              end
+
+              it "exists and is enabled, but not within scope" do
+                @st.set_field("Briefs", "", :within => "clothing")
+                @st.generic_field_equals("Briefs", "on", :within => "food").should be_false
+              end
+            end
+          end
+        end
+      end # radiobuttons
+
+
+      context "dropdowns" do
+        before(:each) do
+          @st.visit("/form").should be_true
+        end
+
+        context "#set_field with #select_from_dropdown" do
+          context "passes when" do
+            it "option exists in the dropdown" do
+              @st.set_field("Height", "Tall").should be_true
+              @st.set_field("Weight", "Medium").should be_true
+            end
+
+            it "option exists in the dropdown within scope" do
+              @st.set_field("Height", "Tall", :within => "spouse_form").should be_true
+            end
+
+            it "option exists in the dropdown in table row" do
+              @st.visit("/table")
+              @st.set_field("Gender", "Male", :in_row => "Eric").should be_true
+            end
+          end
+
+          context "fails when" do
+            it "no such dropdown exists" do
+              @st.set_field("Eggs", "Over easy").should be_false
+            end
+
+            it "dropdown exists, but the option doesn't" do
+              @st.set_field("Height", "Giant").should be_false
+              @st.set_field("Weight", "Obese").should be_false
+            end
+
+            it "dropdown exists, but is read-only" do
+              @st.visit("/readonly_form").should be_true
+              @st.set_field("Height", "Tall").should be_false
+            end
+
+            it "dropdown exists, but not within scope" do
+              @st.set_field("Weight", "Medium", :within => "spouse_form").should be_false
+            end
+
+            it "dropdown exists, but not in table row" do
+              @st.visit("/table")
+              @st.set_field("Gender", "Female", :in_row => "First name").should be_false
+            end
+          end
+        end
+
+        context "#set_field with #dropdown_includes" do
+          context "passes when" do
+            it "option exists in the dropdown" do
+              @st.dropdown_includes("Height", "Tall").should be_true
+              @st.dropdown_includes("Weight", "Medium").should be_true
+            end
+
+            it "option exists in a read-only dropdown" do
+              @st.visit("/readonly_form").should be_true
+              @st.dropdown_includes("Height", "Tall").should be_true
+            end
+          end
+
+          context "fails when" do
+            it "dropdown exists, but the option doesn't" do
+              @st.dropdown_includes("Height", "Giant").should be_false
+              @st.dropdown_includes("Weight", "Obese").should be_false
+            end
+
+            it "no such dropdown exists" do
+              @st.dropdown_includes("Eggs", "Over easy").should be_false
+            end
+          end
+        end
+
+        context "#set_field with #dropdown_equals" do
+          context "passes when" do
+            it "option is selected in the dropdown" do
+              ["Short", "Average", "Tall"].each do |height|
+                @st.set_field("Height", height)
+                @st.dropdown_equals("Height", height).should be_true
+              end
+            end
+
+            it "option is selected in a read-only dropdown" do
+              @st.visit("/readonly_form").should be_true
+              @st.dropdown_equals("Height", "Average").should be_true
+            end
+
+            it "option is selected in the dropdown, within scope" do
+              ["Short", "Average", "Tall"].each do |height|
+                @st.set_field("Height", height, :within => "spouse_form")
+                @st.dropdown_equals("Height", height, :within => "spouse_form").should be_true
+              end
+            end
+
+            it "option is selected in the dropdown, in table row" do
+              @st.visit("/table")
+              ["Male", "Female"].each do |gender|
+                @st.set_field("Gender", gender, :in_row => "Eric")
+                @st.dropdown_equals("Gender", gender, :in_row => "Eric")
+              end
+            end
+          end
+
+          context "fails when" do
+            it "no such dropdown exists" do
+              @st.dropdown_equals("Eggs", "Over easy").should be_false
+            end
+
+            it "dropdown exists, but the option is not selected" do
+              @st.set_field("Height", "Short")
+              @st.dropdown_equals("Height", "Average").should be_false
+              @st.dropdown_equals("Height", "Tall").should be_false
+
+              @st.set_field("Height", "Average")
+              @st.dropdown_equals("Height", "Short").should be_false
+              @st.dropdown_equals("Height", "Tall").should be_false
+
+              @st.set_field("Height", "Tall")
+              @st.dropdown_equals("Height", "Short").should be_false
+              @st.dropdown_equals("Height", "Average").should be_false
+            end
+
+            it "dropdown exists, and option is selected, but not within scope" do
+              @st.set_field("Height", "Tall", :within => "person_form")
+              @st.set_field("Height", "Short", :within => "spouse_form")
+              @st.dropdown_equals("Height", "Tall", :within => "spouse_form").should be_false
+            end
+
+            it "dropdown exists, and option is selected, but not in table row" do
+              @st.visit("/table")
+              @st.set_field("Gender", "Female", :in_row => "Eric")
+              @st.set_field("Gender", "Male", :in_row => "Marcus")
+              @st.dropdown_equals("Gender", "Female", :in_row => "Marcus").should be_false
+            end
+          end
+        end
+
+        context "#set_field with #generic_field_equals for #dropdown_equals" do
+          context "passes when" do
+            it "option is selected in the dropdown" do
+              ["Short", "Average", "Tall"].each do |height|
+                @st.set_field("Height", height)
+                @st.generic_field_equals("Height", height).should be_true
+              end
+            end
+
+            it "option is selected in a read-only dropdown" do
+              @st.visit("/readonly_form").should be_true
+              @st.generic_field_equals("Height", "Average").should be_true
+            end
+
+            it "option is selected in the dropdown, within scope" do
+              ["Short", "Average", "Tall"].each do |height|
+                @st.set_field("Height", height, :within => "spouse_form")
+                @st.generic_field_equals("Height", height, :within => "spouse_form").should be_true
+              end
+            end
+
+            it "option is selected in the dropdown, in table row" do
+              @st.visit("/table")
+              ["Male", "Female"].each do |gender|
+                @st.set_field("Gender", gender, :in_row => "Eric")
+                @st.generic_field_equals("Gender", gender, :in_row => "Eric")
+              end
+            end
+          end
+
+          context "fails when" do
+            it "no such dropdown exists" do
+              @st.generic_field_equals("Eggs", "Over easy").should be_false
+            end
+
+            it "dropdown exists, but the option is not selected" do
+              @st.set_field("Height", "Short")
+              @st.generic_field_equals("Height", "Average").should be_false
+              @st.generic_field_equals("Height", "Tall").should be_false
+
+              @st.set_field("Height", "Average")
+              @st.generic_field_equals("Height", "Short").should be_false
+              @st.generic_field_equals("Height", "Tall").should be_false
+
+              @st.set_field("Height", "Tall")
+              @st.generic_field_equals("Height", "Short").should be_false
+              @st.generic_field_equals("Height", "Average").should be_false
+            end
+
+            it "dropdown exists, and option is selected, but not within scope" do
+              @st.set_field("Height", "Tall", :within => "person_form")
+              @st.set_field("Height", "Short", :within => "spouse_form")
+              @st.generic_field_equals("Height", "Tall", :within => "spouse_form").should be_false
+            end
+
+            it "dropdown exists, and option is selected, but not in table row" do
+              @st.visit("/table")
+              @st.set_field("Gender", "Female", :in_row => "Eric")
+              @st.set_field("Gender", "Male", :in_row => "Marcus")
+              @st.generic_field_equals("Gender", "Female", :in_row => "Marcus").should be_false
+            end
+          end
+        end
+      end # dropdowns
+    end # set_field
+
+
+    # TODO: Add test cases with scopes to the next three functions described.
+    describe "#set_field_among" do
+      before(:each) do
+        @st.visit("/form").should be_true
+      end
+      context "passes when" do
+        context "text field with label" do
+          it "equals the page text" do
+            @st.set_field_among("First name", "Marcus", "Last name" => "nowhere").should be_true
+            @st.field_contains("First name", "Marcus").should be_true
+          end
+
+          it "equals the page text and has no ids" do
+            @st.set_field_among("First name", "Marcus", "").should be_true
+            @st.field_contains("First name", "Marcus").should be_true
+          end
+
+          it "equals the hash text" do
+            @st.set_field_among("Last name", "Marcus", "Last name" => "First name").should be_true
+            @st.field_contains("First name", "Marcus").should be_true
+          end
+
+          it "equals the escaped hash text" do
+            @st.set_field_among("Last:name", "Marcus", "Last\\;name" => "First name").should be_true
+            @st.field_contains("First name", "Marcus").should be_true
+          end
+        end
+      end
+
+      context "fails when" do
+        context "text field with label" do
+          it "does not exist" do
+            @st.set_field_among("Third name", "Smith").should be_false
+          end
+
+          it "has a hash value that does not exist" do
+            @st.set_field_among("Last name", "Smith", "Last name" => "Third name").should be_false
+          end
+        end
+      end
+    end # set_field_among
+
+    describe "#field_equals_among" do
+      before(:each) do
+        @st.visit("/form").should be_true
+      end
+      context "passes when" do
+        context "text field with label" do
+          it "equals the page text" do
+            @st.set_field_among("First name", "Marcus", "Last name" => "nowhere").should be_true
+            @st.field_equals_among("First name", "Marcus", "Last name" => "nowhere").should be_true
+          end
+
+          it "equals the page text and has no ids" do
+            @st.set_field_among("First name", "Marcus", "").should be_true
+            @st.field_equals_among("First name", "Marcus", "").should be_true
+          end
+
+          it "equals the hash text" do
+            @st.set_field_among("Last name", "Marcus", "Last name" => "First name").should be_true
+            @st.field_equals_among("Last name", "Marcus", "Last name" => "First name").should be_true
+          end
+
+          it "equals the escaped hash text" do
+            @st.set_field_among("Last:name", "Marcus", "Last\\;name" => "First name").should be_true
+            @st.field_equals_among("Last:name", "Marcus", "Last\\;name" => "First name").should be_true
+          end
+        end
+      end
+
+      context "fails when" do
+        context "text field with label" do
+          it "does not exist" do
+            @st.field_equals_among("Third name", "").should be_false
+          end
+
+          it "has a hash value that does not exist" do
+            @st.field_equals_among("Last name", "", "Last name" => "Third name").should be_false
+          end
+
+          it "does not equal the expected text" do
+            @st.field_equals_among("Last name", "Marcus", "Last name" => "First name").should be_false
+          end
+        end
+      end
+    end # field_equals_among
+
+    describe "#set_fields" do
+      before(:each) do
+        @st.visit("/form").should be_true
+      end
+      context "passes when" do
+        context "text fields with labels" do
+          it "sets one field" do
+            @st.set_fields("First name" => "Marcus").should be_true
+            @st.field_contains("First name", "Marcus").should be_true
+          end
+
+          it "sets zero fields" do
+            @st.set_fields("").should be_true
+          end
+
+          it "sets several fields" do
+            @st.set_fields("First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot.").should be_true
+            @st.field_contains("First name", "Ken").should be_true
+            @st.field_contains("Last name", "Brazier").should be_true
+            @st.field_contains("Life story", "story: I get testy").should be_true
+          end
+        end
+      end
+
+      context "fails when" do
+        context "text fields with labels" do
+          it "cant find the first field" do
+            @st.set_fields("Faust name" => "Ken", "Last name" => "Brazier").should be_false
+          end
+
+          it "cant find the last field" do
+            @st.set_fields("First name" => "Ken", "Lost name" => "Brazier").should be_false
+          end
+        end
+      end
+    end # set_fields
+
+    describe "#fields_equal" do
+      before(:each) do
+        @st.visit("/form").should be_true
+      end
+      context "passes when" do
+        context "text fields with labels" do
+          it "sets one field" do
+            @st.set_fields("First name" => "Marcus").should be_true
+            @st.fields_equal("First name" => "Marcus").should be_true
+          end
+
+          it "sets zero fields" do
+            @st.fields_equal("").should be_true
+          end
+
+          it "sets several fields" do
+            @st.set_fields("First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot.").should be_true
+            @st.fields_equal("First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot.").should be_true
+          end
+        end
+      end
+
+      context "fails when" do
+        context "text fields with labels" do
+          it "cant find the first field" do
+            @st.fields_equal("Faust name" => "", "Last name" => "").should be_false
+          end
+
+          it "cant find the last field" do
+            @st.fields_equal("First name" => "", "Lost name" => "").should be_false
+          end
+
+          it "fields are not equal" do
+            @st.fields_equal("First name" => "Ken", "Last name" => "Brazier").should be_false
+          end
+        end
+      end
+    end # fields_equal
+
+
+    describe "#set_fields_among" do
+      before(:each) do
+        @st.visit("/form").should be_true
+      end
+      context "passes when" do
+        context "text fields with labels" do
+          it "sets one field" do
+            @st.set_fields_among({"First name" => "Marcus"}).should be_true
+            @st.field_contains("First name", "Marcus").should be_true
+          end
+
+          it "sets one field with string ids" do
+            @st.set_fields_among({"First name" => "Marcus"}, "").should be_true
+            @st.field_contains("First name", "Marcus").should be_true
+          end
+
+          it "does nothing, but has ids" do
+            @st.set_fields_among("", {"First name" => "Marcus"}).should be_true
+          end
+
+          it "sets several fields" do
+            @st.set_fields_among({"First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot."})
+            @st.field_contains("First name", "Ken").should be_true
+            @st.field_contains("Last name", "Brazier").should be_true
+            @st.field_contains("Life story", "story: I get testy").should be_true
+          end
+        end
+        context "text fields with labels in a hash" do
+          it "sets one field from a hash" do
+            @st.set_fields_among({"Faust name" => "Marcus"}, {"Faust Name" => "First name", "LOST name" => "Last name"}).should be_true
+            @st.field_contains("First name", "Marcus").should be_true
+          end
+
+          it "sets many fields, some from a hash" do
+            @st.set_fields_among({"Faust\\;name" => "Ken", :Lost => "Brazier", "Life story" => "I get testy a lot."},
+                                 {"Faust\\;Name" => "First name", :LOST => "Last name"}).should be_true
+            @st.field_contains("First name", "Ken").should be_true
+            @st.field_contains("Last name", "Brazier").should be_true
+            @st.field_contains("Life story", "testy").should be_true
+          end
+        end
+      end
+
+      context "fails when" do
+        context "text fields with labels" do
+          it "cant find the first field" do
+            @st.set_fields_among({"Faust name" => "Ken", "Last name" => "Brazier"}).should be_false
+          end
+
+          it "cant find the last field" do
+            @st.set_fields_among({"First name" => "Ken", "Lost name" => "Brazier"}).should be_false
+          end
+        end
+        context "text fields with labels in a hash" do
+          it "cant find the first field" do
+            @st.set_fields_among({"Faust name" => "Ken", "Lost name" => "Brazier"},
+                                 {"Faust Name" => "Lost name", "Lost name" => "Last name"}).should be_false
+          end
+
+          it "cant find the last field" do
+            @st.set_fields_among({"Faust name" => "Ken", "Lost name" => "Brazier"},
+                                 {"Faust Name" => "First name", "Lost name" => "Faust name"}).should be_false
+          end
+        end
+      end
+    end # set_fields_among
+  end # generic_fields
+
+
+    describe "#fields_equal_among" do
+      before(:each) do
+        @st.visit("/form").should be_true
+      end
+      context "passes when" do
+        context "text fields with labels" do
+          it "sets one field" do
+            @st.set_fields_among({"First name" => "Marcus"}).should be_true
+            @st.fields_equal_among({"First name" => "Marcus"}).should be_true
+          end
+
+          it "sets one field with string ids" do
+            @st.set_fields_among({"First name" => "Marcus"}, "").should be_true
+            @st.fields_equal_among({"First name" => "Marcus"}, "").should be_true
+          end
+
+          it "does nothing, but has ids" do
+            @st.fields_equal_among("", {"First name" => "Marcus"}).should be_true
+          end
+
+          it "sets several fields" do
+            @st.set_fields_among({"First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot."}).should be_true
+            @st.fields_equal_among({"First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot."}).should be_true
+          end
+        end
+        context "text fields with labels in a hash" do
+          it "sets one field from a hash" do
+            @st.set_fields_among({"Faust name" => "Marcus"}, {"Faust Name" => "First name", "LOST name" => "Last name"}).should be_true
+            @st.fields_equal_among({"Faust name" => "Marcus"}, {"Faust Name" => "First name", "LOST name" => "Last name"}).should be_true
+          end
+
+          it "sets many fields, some from a hash" do
+            @st.set_fields_among({"Faust\\;name" => "Ken", :Lost => "Brazier", "Life story" => "I get testy a lot."},
+                                 {"Faust\\;Name" => "First name", :LOST => "Last name"}).should be_true
+            @st.fields_equal_among({"Faust\\;name" => "Ken", :Lost => "Brazier", "Life story" => "I get testy a lot."},
+                                 {"Faust\\;Name" => "First name", :LOST => "Last name"}).should be_true
+          end
+        end
+      end
+
+      context "fails when" do
+        context "text fields with labels" do
+          it "cant find the first field" do
+            @st.fields_equal_among({"Faust name" => "Ken", "Last name" => "Brazier"}).should be_false
+          end
+
+          it "cant find the last field" do
+            @st.fields_equal_among({"First name" => "Ken", "Lost name" => "Brazier"}).should be_false
+          end
+          it "does not equal the expected values" do
+            @st.fields_equal_among({"First name" => "Ken", "Last name" => "Brazier", "Life story" => "My story\\; I get testy a lot."}).should be_false
+          end
+        end
+        context "text fields with labels in a hash" do
+          it "cant find the first field" do
+            @st.fields_equal_among({"Faust name" => "Ken", "Lost name" => "Brazier"},
+                                 {"Faust Name" => "Lost name", "Lost name" => "Last name"}).should be_false
+          end
+
+          it "cant find the last field" do
+            @st.fields_equal_among({"Faust name" => "Ken", "Lost name" => "Brazier"},
+                                 {"Faust Name" => "First name", "Lost name" => "Faust name"}).should be_false
+          end
+          it "does not equal the expected values" do
+            @st.fields_equal_among({"Faust\\;name" => "Ken", :Lost => "Brazier", "Life story" => "I get testy a lot."},
+                                 {"Faust\\;Name" => "First name", :LOST => "Last name"}).should be_false
+          end
+        end
+      end
+    end # set_fields_among
+  end # generic_fields
+
+
 
   context "tables" do
     before(:each) do
@@ -924,17 +2336,17 @@ describe Rsel::SeleniumTest do
           @st.row_exists("Eric, Pierce").should be_true
           @st.row_exists("Pierce, epierce@example.com").should be_true
         end
+
+        it "cell values are not consecutive" do
+          @st.row_exists("First name, Email").should be_true
+          @st.row_exists("Eric, epierce@example.com").should be_true
+        end
       end
 
       context "fails when" do
         it "no row exists" do
           @st.row_exists("Middle name, Maiden name, Email").should be_false
         end
-
-        it "cell values are not consecutive" do
-          @st.row_exists("First name, Email").should be_false
-          @st.row_exists("Eric, epierce@example.com").should be_false
-        end
       end
     end
 
@@ -967,9 +2379,33 @@ describe Rsel::SeleniumTest do
         end
       end
     end
+
+    describe "#pause_seconds" do
+      it "returns true" do
+        @st.pause_seconds(0).should == true
+        @st.pause_seconds(1).should == true
+      end
+    end
   end # waiting
 
 
+  context "method inspection" do
+    describe "respond_to?" do
+      it "returns true if a method is explicitly defined" do
+        @st.respond_to?('see').should == true
+      end
+
+      it "returns true if the Selenium::Client::Driver defines the method" do
+        @st.respond_to?('is_element_present').should == true
+      end
+
+      it "returns false if the method isn't defined" do
+        @st.respond_to?('junk').should == false
+      end
+    end
+  end
+
+
   context "stop on failure" do
     before(:each) do
       @st.visit("/").should be_true
@@ -995,9 +2431,12 @@ describe Rsel::SeleniumTest do
       end
 
       it "when #see_title fails" do
+        @st.errors # clear errors
         @st.see_title("Wrong Title").should be_false
         # Would pass, but previous step failed
         @st.see_title("Rsel Test Site").should be_false
+        # Should see one and only one error.
+        @st.errors.should eq("Page title is 'Rsel Test Site', not 'Wrong Title'")
       end
 
       it "when #do_not_see_title fails" do
@@ -1165,38 +2604,53 @@ describe Rsel::SeleniumTest do
   end # stop on failure
 
 
-  context "Selenium::Client::Driver wrapper" do
-    before(:each) do
-      @st.visit("/form").should be_true
-    end
+  describe "#method_missing" do
+    context "method is defined in Selenium::Client::Driver" do
+      before(:each) do
+        @st.visit("/form").should be_true
+      end
+
+      context "method returning Boolean" do
+        it "passes if method returns true" do
+          @st.is_element_present("id=first_name").should be_true
+          @st.is_visible("id=first_name").should be_true
+          @st.is_text_present("This page has some random forms").should be_true
+        end
 
-    context "method returning Boolean" do
-      it "passes if method returns true" do
-        @st.is_element_present("id=first_name").should be_true
-        @st.is_visible("id=first_name").should be_true
-        @st.is_text_present("This page has some random forms").should be_true
+        it "fails if method returns false" do
+          @st.is_element_present("id=bogus_id").should be_false
+          @st.is_visible("id=bogus_id").should be_false
+          @st.is_text_present("This text is not there").should be_false
+        end
       end
 
-      it "fails if method returns false" do
-        @st.is_element_present("id=bogus_id").should be_false
-        @st.is_visible("id=bogus_id").should be_false
-        @st.is_text_present("This text is not there").should be_false
+      context "method returning String" do
+        it "returns the String" do
+          @st.get_text("id=salami_checkbox").should eq("I like salami")
+        end
       end
-    end
 
-    context "method not returning Boolean" do
-      it "passes if method doesn't raise an exception" do
-        @st.get_title.should be_true
-        @st.mouse_over("id=first_name").should be_true
+      context "method not returning Boolean or String" do
+        it "passes if method doesn't raise an exception" do
+          @st.get_title.should be_true
+          @st.mouse_over("id=first_name").should be_true
+        end
+
+        it "fails if method raises an exception" do
+          @st.double_click("id=bogus_id").should be_false
+          @st.mouse_over("id=bogus_id").should be_false
+        end
       end
+    end # Selenium::Client::Driver
 
-      it "fails if method raises an exception" do
-        @st.double_click("id=bogus_id").should be_false
-        @st.mouse_over("id=bogus_id").should be_false
+    context "method is not defined in Selenium::Client::Driver" do
+      it "raises an exception" do
+        lambda do
+          @st.really_undefined_method
+        end.should raise_error
       end
     end
-
-  end # Selenium::Client::Driver wrapper
+  end # method_missing
 
 end