capybara 0.4.1.2 → 1.0.0.beta1

data/lib/capybara/spec/session/javascript.rb

@@ -10,7 +10,6 @@ shared_examples_for "session with javascript support" do
 
     describe 'Node#drag_to' do
       it "should drag and drop an object" do
-        pending "drag/drop is currently broken under celerity/culerity" if @session.driver.is_a?(Capybara::Driver::Celerity)
         @session.visit('/with_js')
         element = @session.find('//div[@id="drag"]')
         target = @session.find('//div[@id="drop"]')

data/lib/capybara/spec/session/text_spec.rb

@@ -0,0 +1,19 @@
+shared_examples_for "text" do
+  describe '#text' do
+    before do
+      @session.visit('/with_simple_html')
+    end
+
+    it "should print the text of the page" do
+      @session.text.should == 'Bar'
+    end
+
+    context "with css as default selector" do
+      before { Capybara.default_selector = :css }
+      it "should print the text of the page" do
+        @session.text.should == 'Bar'
+      end
+      after { Capybara.default_selector = :xpath }
+    end
+  end
+end

data/lib/capybara/spec/test_app.rb

@@ -22,6 +22,10 @@ class TestApp < Sinatra::Base
     redirect '/landed'
   end
 
+  get '/host' do
+    "Current host is #{request.scheme}://#{request.host}"
+  end
+
   get '/redirect/:times/times' do
     times = params[:times].to_i
     if times.zero?
@@ -59,6 +63,11 @@ class TestApp < Sinatra::Base
     redirect back
   end
 
+  get '/slow_response' do
+    sleep 2
+    'Finally!'
+  end
+
   get '/set_cookie' do
     cookie_value = 'test_cookie'
     response.set_cookie('capybara', cookie_value)

data/lib/capybara/spec/views/form.erb

@@ -109,6 +109,11 @@
     </select>
   </p>
 
+  <p>
+    <label for="form_zipcode">Zipcode</label>
+    <input type="text" maxlength="5" name="form[zipcode]" id="form_zipcode" />
+  </p>
+
   <p>
     <label for="form_tendency">Tendency</label>
     <select name="form[tendency]" id="form_tendency"></select>
@@ -242,10 +247,10 @@
 
   <p>
     <input type="button" name="form[fresh]" id="fresh_btn" value="i am fresh"/>
-    <input type="submit" name="form[awesome]" id="awe123" value="awesome"/>
+    <input type="submit" name="form[awesome]" id="awe123" title="What an Awesome Button" value="awesome"/>
     <input type="submit" name="form[crappy]" id="crap321" value="crappy"/>
-    <input type="image" name="form[okay]" id="okay556" value="okay" alt="oh hai thar"/>
-    <button type="submit" id="click_me_123" value="click_me">Click me!</button>
+    <input type="image" name="form[okay]" id="okay556" title="Okay 556 Image" value="okay" alt="oh hai thar"/>
+    <button type="submit" id="click_me_123" title="Click Title button" value="click_me">Click me!</button>
     <button type="submit" name="form[no_value]">No Value!</button>
     <button id="no_type">No Type!</button>
   </p>

data/lib/capybara/spec/views/header_links.erb

@@ -0,0 +1,7 @@
+<p>
+  <a href="/get_header">Link</a>
+</p>
+
+<form action="/get_header" method="get">
+  <p><input type="submit" value="Post"/></p>
+</form>

data/lib/capybara/spec/views/host_links.erb

@@ -0,0 +1,12 @@
+<p>
+  <a href="/host">Relative Host</a>
+  <a href="http://capybara2.elabs.se/host">Absolute Host</a>
+</p>
+
+<form action="/host">
+  <p><input type="submit" value="Relative Host"/></p>
+</form>
+
+<form action="http://capybara2.elabs.se/host">
+  <p><input type="submit" value="Absolute Host"/></p>
+</form>

data/lib/capybara/spec/views/with_html.erb

@@ -56,11 +56,15 @@
 </div>
 
 <div style="display: none;">
-  <a class="visibility">hidden link</a>
+  <a id="first_invisble" class="hidden">first hidden link</a>
+</div>
+
+<div style="display: none;">
+  <a id="invisible" class="visibility hidden">hidden link</a>
 </div>
 
 <div>
-  <a class="visibility">visible link</a>
+  <a id="visible" class="visibility">visible link</a>
 </div>
 
 <ul>

data/lib/capybara/spec/views/with_html_entities.erb

@@ -0,0 +1 @@
+Encoding with — html entities »

data/lib/capybara/spec/views/with_js.erb

@@ -34,6 +34,10 @@
     <p>
       <input type="checkbox" id="checkbox_with_event"/>
     </p>
+
+    <p>
+      <input type="submit" id="fire_ajax_request" value="Fire Ajax Request"/>
+    </p>
   </body>
 </html>
 

data/lib/capybara/util/save_and_open_page.rb

@@ -1,7 +1,8 @@
 module Capybara
   class << self
-    def save_and_open_page(html)
-      name = File.join(*[Capybara.save_and_open_page_path, "capybara-#{Time.new.strftime("%Y%m%d%H%M%S")}.html"].compact)
+    def save_page(html, file_name=nil)
+      file_name ||= "capybara-#{Time.new.strftime("%Y%m%d%H%M%S")}#{rand(10**10)}.html"
+      name = File.join(*[Capybara.save_and_open_page_path, file_name].compact)
 
       unless Capybara.save_and_open_page_path.nil? || File.directory?(Capybara.save_and_open_page_path )
         FileUtils.mkdir_p(Capybara.save_and_open_page_path)
@@ -11,8 +12,11 @@ module Capybara
       tempfile = File.new(name,'w')
       tempfile.write(rewrite_css_and_image_references(html))
       tempfile.close
+      tempfile.path
+    end
 
-      open_in_browser(tempfile.path)
+    def save_and_open_page(html, file_name=nil)
+      open_in_browser save_page(html, file_name)
     end
 
   protected

data/lib/capybara/util/timeout.rb

@@ -4,7 +4,7 @@ module Capybara
     ##
     # Provides timeout similar to standard library Timeout, but avoids threads
     #
-    def timeout(seconds = 1, driver = nil, &block)
+    def timeout(seconds = 1, driver = nil, error_message = nil, &block)
       start_time = Time.now
 
       result = nil
@@ -14,7 +14,7 @@ module Capybara
 
         delay = seconds - (Time.now - start_time)
         if delay <= 0
-          raise TimeoutError
+          raise TimeoutError, error_message || "timed out"
         end
 
         driver && driver.wait_until(delay)

data/lib/capybara/version.rb

@@ -1,3 +1,3 @@
 module Capybara
-  VERSION = '0.4.1.2'
+  VERSION = '1.0.0.beta1'
 end

data/spec/capybara_spec.rb

@@ -17,7 +17,7 @@ describe Capybara do
   describe '.register_driver' do
     it "should add a new driver" do
       Capybara.register_driver :schmoo do |app|
-        Capybara::Driver::RackTest.new(app)
+        Capybara::RackTest::Driver.new(app)
       end
       session = Capybara::Session.new(:schmoo, TestApp)
       session.visit('/')

data/spec/driver/rack_test_driver_spec.rb

@@ -14,14 +14,14 @@ def capture(*streams)
   result.string
 end
 
-describe Capybara::Driver::RackTest do
+describe Capybara::RackTest::Driver do
   before do
     @driver = TestSessions::RackTest.driver
   end
 
   it "should throw an error when no rack app is given" do
     running do
-      Capybara::Driver::RackTest.new(nil)
+      Capybara::RackTest::Driver.new(nil)
     end.should raise_error(ArgumentError)
   end
 
@@ -81,4 +81,26 @@ describe Capybara::Driver::RackTest do
       lambda { @driver.request }.should raise_error
     end
   end
+
+  describe ':headers option' do
+    it 'should always set headers' do
+      @driver = Capybara::RackTest::Driver.new(TestApp, :headers => {'HTTP_FOO' => 'foobar'})
+      @driver.visit('/get_header')
+      @driver.body.should include('foobar')
+    end
+
+    it 'should keep headers on link clicks' do
+      @driver = Capybara::RackTest::Driver.new(TestApp, :headers => {'HTTP_FOO' => 'foobar'})
+      @driver.visit('/header_links')
+      @driver.find('.//a').first.click
+      @driver.body.should include('foobar')
+    end
+
+    it 'should keep headers on form submit' do
+      @driver = Capybara::RackTest::Driver.new(TestApp, :headers => {'HTTP_FOO' => 'foobar'})
+      @driver.visit('/header_links')
+      @driver.find('.//input').first.click
+      @driver.body.should include('foobar')
+    end
+  end
 end

data/spec/driver/selenium_driver_spec.rb

@@ -1,12 +1,13 @@
 require 'spec_helper'
 
-describe Capybara::Driver::Selenium do
+describe Capybara::Selenium::Driver do
   before do
     @driver = TestSessions::Selenium.driver
   end
 
   it_should_behave_like "driver"
   it_should_behave_like "driver with javascript support"
+  it_should_behave_like "driver with resynchronization support"
   it_should_behave_like "driver with frame support"
   it_should_behave_like "driver with support for window switching"
   it_should_behave_like "driver without status code support"

data/spec/dsl_spec.rb

@@ -2,13 +2,14 @@ require 'spec_helper'
 
 require 'capybara/dsl'
 
-describe Capybara do
+describe Capybara::DSL do
 
   before do
     Capybara.app = TestApp
   end
 
   after do
+    Capybara.session_name = nil
     Capybara.default_driver = nil
     Capybara.use_default_driver
   end
@@ -123,11 +124,53 @@ describe Capybara do
       Capybara.current_session.object_id.should_not == object_id
       Capybara.current_session.app.should == Capybara.app
     end
+
+    it "should change when the session name changes" do
+      object_id = Capybara.current_session.object_id
+      Capybara.session_name = :administrator
+      Capybara.session_name.should == :administrator
+      Capybara.current_session.object_id.should_not == object_id
+      Capybara.session_name = :default
+      Capybara.session_name.should == :default
+      Capybara.current_session.object_id.should == object_id
+    end
+  end
+
+  describe "#using_session" do
+    it "should change the session name for the duration of the block" do
+      Capybara.session_name.should == :default
+      Capybara.using_session(:administrator) do
+        Capybara.session_name.should == :administrator
+      end
+      Capybara.session_name.should == :default
+    end
+
+    it "should reset the session to the default, even if an exception occurs" do
+      begin
+        Capybara.using_session(:raise) do
+          raise
+        end
+      rescue Exception
+      end
+      Capybara.session_name.should == :default
+    end
+
+    it "should yield the passed block" do
+      called = false
+      Capybara.using_session(:administrator) { called = true }
+      called.should == true
+    end
+  end
+
+  describe "#session_name" do
+    it "should default to :default" do
+      Capybara.session_name.should == :default
+    end
   end
 
   describe 'the DSL' do
     before do
-      @session = Capybara
+      @session = Class.new { include Capybara::DSL }.new
     end
 
     it_should_behave_like "session"
@@ -135,7 +178,7 @@ describe Capybara do
 
     it "should be possible to include it in another class" do
       klass = Class.new do
-        include Capybara
+        include Capybara::DSL
       end
       foo = klass.new
       foo.visit('/with_html')
@@ -145,13 +188,22 @@ describe Capybara do
 
     it "should provide a 'page' shortcut for more expressive tests" do
       klass = Class.new do
-        include Capybara
+        include Capybara::DSL
       end
       foo = klass.new
       foo.page.visit('/with_html')
       foo.page.click_link('ullamco')
       foo.page.body.should include('Another World')
     end
+
+    it "should provide an 'using_session' shortcut" do
+      klass = Class.new do
+        include Capybara::DSL
+      end
+      Capybara.should_receive(:using_session).with(:name)
+      foo = klass.new
+      foo.using_session(:name)
+    end
   end
 
 end

data/spec/rspec/features_spec.rb

@@ -0,0 +1,45 @@
+require 'spec_helper'
+require 'capybara/rspec'
+
+Capybara.app = TestApp
+
+RSpec.configuration.before(:each, :example_group => {:file_path => __FILE__}) do
+  @in_filtered_hook = true
+end
+
+feature "Capybara's feature DSL" do
+  background do
+    @in_background = true
+  end
+
+  scenario "includes Capybara" do
+    visit('/')
+    page.should have_content('Hello world!')
+  end
+
+  scenario "preserves description" do
+    example.metadata[:full_description].should == "Capybara's feature DSL preserves description"
+  end
+
+  scenario "allows driver switching", :driver => :selenium do
+    Capybara.current_driver.should == :selenium
+  end
+
+  scenario "runs background" do
+    @in_background.should be_true
+  end
+
+  scenario "runs hooks filtered by file path" do
+    @in_filtered_hook.should be_true
+  end
+
+  scenario "doesn't pollute the Object namespace" do
+    Object.new.respond_to?(:feature, true).should be_false
+  end
+end
+
+feature "Capybara's feature DSL with driver", :driver => :culerity do
+  scenario "switches driver" do
+    Capybara.current_driver.should == :culerity
+  end
+end

data/spec/rspec/matchers_spec.rb

@@ -0,0 +1,451 @@
+require 'spec_helper'
+require 'capybara/dsl'
+require 'capybara/rspec/matchers'
+
+Capybara.app = TestApp
+
+describe Capybara::RSpecMatchers do
+  include Capybara::DSL
+  include Capybara::RSpecMatchers
+
+  describe "have_css matcher" do
+    context "on a string" do
+      context "with should" do
+        it "passes if has_css? returns true" do
+          "<h1>Text</h1>".should have_css('h1')
+        end
+
+        it "fails if has_css? returns false" do
+          expect do
+            "<h1>Text</h1>".should have_css('h2')
+          end.to raise_error(/expected css "h2" to return something/)
+        end
+
+        it "passes if matched node count equals expected count" do
+          "<h1>Text</h1>".should have_css('h1', :count => 1)
+        end
+
+        it "fails if matched node count does not equal expected count" do
+          expect do
+            "<h1>Text</h1>".should have_css('h1', :count => 2)
+          end.to raise_error(/expected css "h1" to return something/)
+        end
+      end
+
+      context "with should_not" do
+        it "passes if has_no_css? returns true" do
+          "<h1>Text</h1>".should_not have_css('h2')
+        end
+
+        it "fails if has_no_css? returns false" do
+          expect do
+            "<h1>Text</h1>".should_not have_css('h1')
+          end.to raise_error(/expected css "h1" not to return anything/)
+        end
+
+        it "passes if matched node count does not equal expected count" do
+          "<h1>Text</h1>".should_not have_css('h1', :count => 2)
+        end
+
+        it "fails if matched node count equals expected count" do
+          expect do
+            "<h1>Text</h1>".should_not have_css('h1', :count => 1)
+          end.to raise_error(/expected css "h1" not to return anything/)
+        end
+      end
+    end
+
+    context "on a page or node" do
+      before do
+        visit('/with_html')
+      end
+
+      context "with should" do
+        it "passes if has_css? returns true" do
+          page.should have_css('h1')
+        end
+
+        it "fails if has_css? returns false" do
+          expect do
+            page.should have_css('h1#doesnotexist')
+          end.to raise_error(/expected css "h1#doesnotexist" to return something/)
+        end
+      end
+
+      context "with should_not" do
+        it "passes if has_no_css? returns true" do
+          page.should_not have_css('h1#doesnotexist')
+        end
+
+        it "fails if has_no_css? returns false" do
+          expect do
+            page.should_not have_css('h1')
+          end.to raise_error(/expected css "h1" not to return anything/)
+        end
+      end
+    end
+  end
+
+  describe "have_xpath matcher" do
+    context "on a string" do
+      context "with should" do
+        it "passes if has_css? returns true" do
+          "<h1>Text</h1>".should have_xpath('//h1')
+        end
+
+        it "fails if has_css? returns false" do
+          expect do
+            "<h1>Text</h1>".should have_xpath('//h2')
+          end.to raise_error(%r(expected xpath "//h2" to return something))
+        end
+      end
+
+      context "with should_not" do
+        it "passes if has_no_css? returns true" do
+          "<h1>Text</h1>".should_not have_xpath('//h2')
+        end
+
+        it "fails if has_no_css? returns false" do
+          expect do
+            "<h1>Text</h1>".should_not have_xpath('//h1')
+          end.to raise_error(%r(expected xpath "//h1" not to return anything))
+        end
+      end
+    end
+
+    context "on a page or node" do
+      before do
+        visit('/with_html')
+      end
+
+      context "with should" do
+        it "passes if has_css? returns true" do
+          page.should have_xpath('//h1')
+        end
+
+        it "fails if has_css? returns false" do
+          expect do
+            page.should have_xpath("//h1[@id='doesnotexist']")
+          end.to raise_error(%r(expected xpath "//h1\[@id='doesnotexist'\]" to return something))
+        end
+      end
+
+      context "with should_not" do
+        it "passes if has_no_css? returns true" do
+          page.should_not have_xpath('//h1[@id="doesnotexist"]')
+        end
+
+        it "fails if has_no_css? returns false" do
+          expect do
+            page.should_not have_xpath('//h1')
+          end.to raise_error(%r(expected xpath "//h1" not to return anything))
+        end
+      end
+    end
+  end
+
+  describe "have_selector matcher" do
+    context "on a string" do
+      context "with should" do
+        it "passes if has_css? returns true" do
+          "<h1>Text</h1>".should have_selector('//h1')
+        end
+
+        it "fails if has_css? returns false" do
+          expect do
+            "<h1>Text</h1>".should have_selector('//h2')
+          end.to raise_error(%r(expected xpath "//h2" to return something))
+        end
+
+        it "fails with the selector's failure_message if set" do
+          Capybara.add_selector(:monkey) do
+            xpath { |num| ".//*[contains(@id, 'monkey')][#{num}]" }
+            failure_message { |node, selector| node.all(".//*[contains(@id, 'monkey')]").map { |node| node.text }.sort.join(', ') }
+          end
+          expect do
+            '<h1 id="monkey_paul">Monkey John</h1>'.should have_selector(:monkey, 14)
+          end.to raise_error("Monkey John")
+        end
+      end
+
+      context "with should_not" do
+        it "passes if has_no_css? returns true" do
+          "<h1>Text</h1>".should_not have_selector(:css, 'h2')
+        end
+
+        it "fails if has_no_css? returns false" do
+          expect do
+            "<h1>Text</h1>".should_not have_selector(:css, 'h1')
+          end.to raise_error(%r(expected css "h1" not to return anything))
+        end
+      end
+    end
+
+    context "on a page or node" do
+      before do
+        visit('/with_html')
+      end
+
+      context "with should" do
+        it "passes if has_css? returns true" do
+          page.should have_selector('//h1', :text => 'test')
+        end
+
+        it "fails if has_css? returns false" do
+          expect do
+            page.should have_selector("//h1[@id='doesnotexist']")
+          end.to raise_error(%r(expected xpath "//h1\[@id='doesnotexist'\]" to return something))
+        end
+
+        it "includes text in error message" do
+          expect do
+            page.should have_selector("//h1", :text => 'wrong text')
+          end.to raise_error(%r(expected xpath "//h1" with text "wrong text" to return something))
+        end
+
+        it "fails with the selector's failure_message if set" do
+          Capybara.add_selector(:monkey) do
+            xpath { |num| ".//*[contains(@id, 'monkey')][#{num}]" }
+            failure_message { |node, selector| node.all(".//*[contains(@id, 'monkey')]").map { |node| node.text }.sort.join(', ') }
+          end
+          expect do
+            page.should have_selector(:monkey, 14)
+          end.to raise_error("Monkey John, Monkey Paul")
+        end
+      end
+
+      context "with should_not" do
+        it "passes if has_no_css? returns true" do
+          page.should_not have_selector(:css, 'h1#doesnotexist')
+        end
+
+        it "fails if has_no_css? returns false" do
+          expect do
+            page.should_not have_selector(:css, 'h1', :text => 'test')
+          end.to raise_error(%r(expected css "h1" with text "test" not to return anything))
+        end
+      end
+    end
+  end
+
+  describe "have_content matcher" do
+    context "on a string" do
+      context "with should" do
+        it "passes if has_css? returns true" do
+          "<h1>Text</h1>".should have_content('Text')
+        end
+
+        it "fails if has_css? returns false" do
+          expect do
+            "<h1>Text</h1>".should have_content('No such Text')
+          end.to raise_error(/expected there to be content "No such Text" in "Text"/)
+        end
+      end
+
+      context "with should_not" do
+        it "passes if has_no_css? returns true" do
+          "<h1>Text</h1>".should_not have_content('No such Text')
+        end
+
+        it "fails if has_no_css? returns false" do
+          expect do
+            "<h1>Text</h1>".should_not have_content('Text')
+          end.to raise_error(/expected content "Text" not to return anything/)
+        end
+      end
+    end
+
+    context "on a page or node" do
+      before do
+        visit('/with_html')
+      end
+
+      context "with should" do
+        it "passes if has_css? returns true" do
+          page.should have_content('This is a test')
+        end
+
+        it "fails if has_css? returns false" do
+          expect do
+            page.should have_content('No such Text')
+          end.to raise_error(/expected there to be content "No such Text" in "(.*)This is a test(.*)"/)
+        end
+
+        context "with default selector CSS" do
+          before { Capybara.default_selector = :css }
+          it "fails if has_css? returns false" do
+            expect do
+              page.should have_content('No such Text')
+            end.to raise_error(/expected there to be content "No such Text" in "(.*)This is a test(.*)"/)
+          end
+          after { Capybara.default_selector = :xpath }
+        end
+      end
+
+      context "with should_not" do
+        it "passes if has_no_css? returns true" do
+          page.should_not have_content('No such Text')
+        end
+
+        it "fails if has_no_css? returns false" do
+          expect do
+            page.should_not have_content('This is a test')
+          end.to raise_error(/expected content "This is a test" not to return anything/)
+        end
+      end
+    end
+  end
+
+  describe "have_link matcher" do
+    let(:html) { '<a href="#">Just a link</a>' }
+
+    it "passes if there is such a button" do
+      html.should have_link('Just a link')
+    end
+
+    it "fails if there is no such button" do
+      expect do
+        html.should have_link('No such Link')
+      end.to raise_error(/expected link "No such Link"/)
+    end
+  end
+
+  describe "have_button matcher" do
+    let(:html) { '<button>A button</button><input type="submit" value="Another button"/>' }
+
+    it "passes if there is such a button" do
+      html.should have_button('A button')
+    end
+
+    it "fails if there is no such button" do
+      expect do
+        html.should have_button('No such Button')
+      end.to raise_error(/expected button "No such Button"/)
+    end
+  end
+
+  describe "have_field matcher" do
+    let(:html) { '<p><label>Text field<input type="text"/></label></p>' }
+
+    it "passes if there is such a field" do
+      html.should have_field('Text field')
+    end
+
+    it "fails if there is no such field" do
+      expect do
+        html.should have_field('No such Field')
+      end.to raise_error(/expected field "No such Field"/)
+    end
+  end
+
+  describe "have_checked_field matcher" do
+    let(:html) do
+      '<label>it is checked<input type="checkbox" checked="checked"/></label>
+      <label>unchecked field<input type="checkbox"/></label>'
+    end
+
+    context "with should" do
+      it "passes if there is such a field and it is checked" do
+        html.should have_checked_field('it is checked')
+      end
+
+      it "fails if there is such a field but it is not checked" do
+        expect do
+          html.should have_checked_field('unchecked field')
+        end.to raise_error(/expected checked_field "unchecked field"/)
+      end
+
+      it "fails if there is no such field" do
+        expect do
+          html.should have_checked_field('no such field')
+        end.to raise_error(/expected checked_field "no such field"/)
+      end
+    end
+
+    context "with should not" do
+      it "fails if there is such a field and it is checked" do
+        expect do
+          html.should_not have_checked_field('it is checked')
+        end.to raise_error(/expected checked_field "it is checked" not to return anything/)
+      end
+
+      it "passes if there is such a field but it is not checked" do
+        html.should_not have_checked_field('unchecked field')
+      end
+
+      it "passes if there is no such field" do
+        html.should_not have_checked_field('no such field')
+      end
+    end
+  end
+
+  describe "have_unchecked_field matcher" do
+    let(:html) do
+      '<label>it is checked<input type="checkbox" checked="checked"/></label>
+      <label>unchecked field<input type="checkbox"/></label>'
+    end
+
+    context "with should" do
+      it "passes if there is such a field and it is not checked" do
+        html.should have_unchecked_field('unchecked field')
+      end
+
+      it "fails if there is such a field but it is checked" do
+        expect do
+          html.should have_unchecked_field('it is checked')
+        end.to raise_error(/expected unchecked_field "it is checked"/)
+      end
+
+      it "fails if there is no such field" do
+        expect do
+          html.should have_unchecked_field('no such field')
+        end.to raise_error(/expected unchecked_field "no such field"/)
+      end
+    end
+
+    context "with should not" do
+      it "fails if there is such a field and it is not checked" do
+        expect do
+          html.should_not have_unchecked_field('unchecked field')
+        end.to raise_error(/expected unchecked_field "unchecked field" not to return anything/)
+      end
+
+      it "passes if there is such a field but it is checked" do
+        html.should_not have_unchecked_field('it is checked')
+      end
+
+      it "passes if there is no such field" do
+        html.should_not have_unchecked_field('no such field')
+      end
+    end
+  end
+
+  describe "have_select matcher" do
+    let(:html) { '<label>Select Box<select></select></label>' }
+
+    it "passes if there is such a select" do
+      html.should have_select('Select Box')
+    end
+
+    it "fails if there is no such select" do
+      expect do
+        html.should have_select('No such Select box')
+      end.to raise_error(/expected select "No such Select box"/)
+    end
+  end
+
+  describe "have_table matcher" do
+    let(:html) { '<table><caption>Lovely table</caption></table>' }
+
+    it "passes if there is such a select" do
+      html.should have_table('Lovely table')
+    end
+
+    it "fails if there is no such select" do
+      expect do
+        html.should have_table('No such Table')
+      end.to raise_error(/expected table "No such Table"/)
+    end
+  end
+end
+