RubyGems - raldred-webrat - Versions diffs - 0.4.4.2 - Mend

raldred-webrat 0.4.4.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (160) hide show

data/History.txt +346 -0
data/MIT-LICENSE.txt +19 -0
data/README.rdoc +85 -0
data/Rakefile +168 -0
data/install.rb +1 -0
data/lib/webrat.rb +31 -0
data/lib/webrat/core.rb +14 -0
data/lib/webrat/core/configuration.rb +102 -0
data/lib/webrat/core/elements/area.rb +31 -0
data/lib/webrat/core/elements/element.rb +33 -0
data/lib/webrat/core/elements/field.rb +405 -0
data/lib/webrat/core/elements/form.rb +103 -0
data/lib/webrat/core/elements/label.rb +31 -0
data/lib/webrat/core/elements/link.rb +92 -0
data/lib/webrat/core/elements/select_option.rb +35 -0
data/lib/webrat/core/locators.rb +20 -0
data/lib/webrat/core/locators/area_locator.rb +38 -0
data/lib/webrat/core/locators/button_locator.rb +54 -0
data/lib/webrat/core/locators/field_by_id_locator.rb +37 -0
data/lib/webrat/core/locators/field_labeled_locator.rb +56 -0
data/lib/webrat/core/locators/field_locator.rb +25 -0
data/lib/webrat/core/locators/field_named_locator.rb +41 -0
data/lib/webrat/core/locators/form_locator.rb +19 -0
data/lib/webrat/core/locators/label_locator.rb +34 -0
data/lib/webrat/core/locators/link_locator.rb +75 -0
data/lib/webrat/core/locators/locator.rb +20 -0
data/lib/webrat/core/locators/select_option_locator.rb +59 -0
data/lib/webrat/core/logging.rb +24 -0
data/lib/webrat/core/matchers.rb +4 -0
data/lib/webrat/core/matchers/have_content.rb +73 -0
data/lib/webrat/core/matchers/have_selector.rb +74 -0
data/lib/webrat/core/matchers/have_tag.rb +21 -0
data/lib/webrat/core/matchers/have_xpath.rb +147 -0
data/lib/webrat/core/methods.rb +63 -0
data/lib/webrat/core/mime.rb +29 -0
data/lib/webrat/core/save_and_open_page.rb +50 -0
data/lib/webrat/core/scope.rb +350 -0
data/lib/webrat/core/session.rb +289 -0
data/lib/webrat/core/xml.rb +115 -0
data/lib/webrat/core/xml/hpricot.rb +19 -0
data/lib/webrat/core/xml/nokogiri.rb +76 -0
data/lib/webrat/core/xml/rexml.rb +24 -0
data/lib/webrat/core_extensions/blank.rb +58 -0
data/lib/webrat/core_extensions/deprecate.rb +8 -0
data/lib/webrat/core_extensions/detect_mapped.rb +12 -0
data/lib/webrat/core_extensions/meta_class.rb +6 -0
data/lib/webrat/core_extensions/nil_to_param.rb +5 -0
data/lib/webrat/core_extensions/tcp_socket.rb +27 -0
data/lib/webrat/mechanize.rb +74 -0
data/lib/webrat/merb.rb +9 -0
data/lib/webrat/merb_session.rb +65 -0
data/lib/webrat/rack.rb +24 -0
data/lib/webrat/rack_test.rb +32 -0
data/lib/webrat/rails.rb +105 -0
data/lib/webrat/rspec-rails.rb +13 -0
data/lib/webrat/selenium.rb +81 -0
data/lib/webrat/selenium/application_server.rb +73 -0
data/lib/webrat/selenium/location_strategy_javascript/button.js +19 -0
data/lib/webrat/selenium/location_strategy_javascript/label.js +15 -0
data/lib/webrat/selenium/location_strategy_javascript/webrat.js +5 -0
data/lib/webrat/selenium/location_strategy_javascript/webratlink.js +12 -0
data/lib/webrat/selenium/location_strategy_javascript/webratlinkwithin.js +15 -0
data/lib/webrat/selenium/location_strategy_javascript/webratselectwithoption.js +5 -0
data/lib/webrat/selenium/matchers.rb +4 -0
data/lib/webrat/selenium/matchers/have_content.rb +66 -0
data/lib/webrat/selenium/matchers/have_selector.rb +49 -0
data/lib/webrat/selenium/matchers/have_tag.rb +72 -0
data/lib/webrat/selenium/matchers/have_xpath.rb +45 -0
data/lib/webrat/selenium/merb_application_server.rb +48 -0
data/lib/webrat/selenium/rails_application_server.rb +42 -0
data/lib/webrat/selenium/selenium_extensions.js +6 -0
data/lib/webrat/selenium/selenium_rc_server.rb +84 -0
data/lib/webrat/selenium/selenium_session.rb +242 -0
data/lib/webrat/selenium/silence_stream.rb +18 -0
data/lib/webrat/selenium/sinatra_application_server.rb +35 -0
data/lib/webrat/sinatra.rb +44 -0
data/spec/fakes/test_session.rb +34 -0
data/spec/integration/merb/app/controllers/application.rb +2 -0
data/spec/integration/merb/app/controllers/exceptions.rb +13 -0
data/spec/integration/merb/app/controllers/testing.rb +18 -0
data/spec/integration/merb/config/environments/development.rb +15 -0
data/spec/integration/merb/config/environments/rake.rb +11 -0
data/spec/integration/merb/config/environments/test.rb +14 -0
data/spec/integration/merb/config/init.rb +25 -0
data/spec/integration/merb/config/rack.rb +11 -0
data/spec/integration/merb/config/router.rb +33 -0
data/spec/integration/merb/spec/spec_helper.rb +24 -0
data/spec/integration/merb/spec/webrat_spec.rb +32 -0
data/spec/integration/merb/tasks/merb.thor/app_script.rb +31 -0
data/spec/integration/merb/tasks/merb.thor/common.rb +64 -0
data/spec/integration/merb/tasks/merb.thor/gem_ext.rb +124 -0
data/spec/integration/merb/tasks/merb.thor/ops.rb +93 -0
data/spec/integration/merb/tasks/merb.thor/utils.rb +40 -0
data/spec/integration/rack/rack_app.rb +16 -0
data/spec/integration/rack/test/test_helper.rb +20 -0
data/spec/integration/rack/test/webrat_rack_test.rb +67 -0
data/spec/integration/rails/app/controllers/application.rb +15 -0
data/spec/integration/rails/app/controllers/buttons_controller.rb +7 -0
data/spec/integration/rails/app/controllers/fields_controller.rb +4 -0
data/spec/integration/rails/app/controllers/links_controller.rb +7 -0
data/spec/integration/rails/app/controllers/webrat_controller.rb +39 -0
data/spec/integration/rails/app/helpers/buttons_helper.rb +2 -0
data/spec/integration/rails/app/helpers/fields_helper.rb +2 -0
data/spec/integration/rails/app/helpers/links_helper.rb +2 -0
data/spec/integration/rails/config/boot.rb +109 -0
data/spec/integration/rails/config/environment.rb +12 -0
data/spec/integration/rails/config/environments/development.rb +17 -0
data/spec/integration/rails/config/environments/selenium.rb +22 -0
data/spec/integration/rails/config/environments/test.rb +22 -0
data/spec/integration/rails/config/initializers/inflections.rb +10 -0
data/spec/integration/rails/config/initializers/mime_types.rb +5 -0
data/spec/integration/rails/config/initializers/new_rails_defaults.rb +17 -0
data/spec/integration/rails/config/routes.rb +17 -0
data/spec/integration/rails/test/integration/button_click_test.rb +80 -0
data/spec/integration/rails/test/integration/fill_in_test.rb +24 -0
data/spec/integration/rails/test/integration/link_click_test.rb +21 -0
data/spec/integration/rails/test/integration/webrat_test.rb +75 -0
data/spec/integration/rails/test/test_helper.rb +25 -0
data/spec/integration/sinatra/classic_app.rb +64 -0
data/spec/integration/sinatra/modular_app.rb +16 -0
data/spec/integration/sinatra/test/classic_app_test.rb +37 -0
data/spec/integration/sinatra/test/modular_app_test.rb +18 -0
data/spec/integration/sinatra/test/test_helper.rb +16 -0
data/spec/private/core/configuration_spec.rb +106 -0
data/spec/private/core/field_spec.rb +85 -0
data/spec/private/core/link_spec.rb +24 -0
data/spec/private/core/logging_spec.rb +10 -0
data/spec/private/core/session_spec.rb +198 -0
data/spec/private/mechanize/mechanize_session_spec.rb +81 -0
data/spec/private/merb/merb_session_spec.rb +42 -0
data/spec/private/nokogiri_spec.rb +77 -0
data/spec/private/rails/attaches_file_spec.rb +81 -0
data/spec/private/rails/rails_session_spec.rb +110 -0
data/spec/public/basic_auth_spec.rb +24 -0
data/spec/public/check_spec.rb +191 -0
data/spec/public/choose_spec.rb +118 -0
data/spec/public/click_area_spec.rb +106 -0
data/spec/public/click_button_spec.rb +496 -0
data/spec/public/click_link_spec.rb +541 -0
data/spec/public/fill_in_spec.rb +209 -0
data/spec/public/locators/field_by_xpath_spec.rb +19 -0
data/spec/public/locators/field_labeled_spec.rb +172 -0
data/spec/public/locators/field_with_id_spec.rb +16 -0
data/spec/public/matchers/contain_spec.rb +114 -0
data/spec/public/matchers/have_selector_spec.rb +142 -0
data/spec/public/matchers/have_tag_spec.rb +39 -0
data/spec/public/matchers/have_xpath_spec.rb +136 -0
data/spec/public/reload_spec.rb +10 -0
data/spec/public/save_and_open_spec.rb +51 -0
data/spec/public/select_date_spec.rb +112 -0
data/spec/public/select_datetime_spec.rb +137 -0
data/spec/public/select_spec.rb +249 -0
data/spec/public/select_time_spec.rb +100 -0
data/spec/public/set_hidden_field_spec.rb +5 -0
data/spec/public/submit_form_spec.rb +5 -0
data/spec/public/visit_spec.rb +58 -0
data/spec/public/within_spec.rb +177 -0
data/spec/spec_helper.rb +50 -0
data/vendor/selenium-server.jar +0 -0
metadata +220 -0

data/spec/integration/rails/test/test_helper.rb ADDED Viewed

@@ -0,0 +1,25 @@
+ENV["RAILS_ENV"] = "test"
+require File.expand_path(File.dirname(__FILE__) + "/../config/environment")
+require 'test_help'
+begin
+  require "redgreen"
+rescue MissingSourceFile
+end
+require File.dirname(__FILE__) + "/../../../../lib/webrat"
+Webrat.configure do |config|
+  config.mode = ENV['WEBRAT_INTEGRATION_MODE'].to_sym
+end
+ActionController::Base.class_eval do
+  def perform_action
+    perform_action_without_rescue
+  end
+end
+Dispatcher.class_eval do
+  def self.failsafe_response(output, status, exception = nil)
+    raise exception
+  end
+end

data/spec/integration/sinatra/classic_app.rb ADDED Viewed

@@ -0,0 +1,64 @@
+require "rubygems"
+require "sinatra"
+use_in_file_templates!
+get "/" do
+  erb :home
+end
+get "/go" do
+  erb :go
+end
+get "/internal_redirect" do
+  redirect "/"
+end
+get "/external_redirect" do
+  redirect "http://google.com"
+end
+post "/go" do
+  @user = params[:name]
+  @email = params[:email]
+  erb :hello
+end
+__END__
+@@ layout
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
+<html>
+  <title>sinatra testing with webrat</title>
+  <body>
+    <%= yield %>
+  </body>
+</html>
+@@ home
+<p> visit <a href="/go">there</a></p>
+<form>
+  <label>
+    Prefilled
+    <input type="text" name="prefilled" value="text" />
+  </label>
+</form>
+@@ go
+<form method="post" action="/go">
+  <div>
+    <label for="name">Name</label>
+    <input type="text" name="name" id="name">
+  </div>
+  <div>
+    <label for="email">Email</label>
+    <input type="text" name="email" id="email">
+  </div>
+  <input type="submit" value="Submit" />
+</form>
+@@ hello
+<p>Hello, <%= @user %></p>
+<p>Your email is: <%= @email %></p>

data/spec/integration/sinatra/modular_app.rb ADDED Viewed

@@ -0,0 +1,16 @@
+require "rubygems"
+require "sinatra/base"
+class MyModularApp < Sinatra::Default
+  get "/" do
+    "Hello World"
+  end
+  get "/redirect_absolute_url" do
+    redirect URI.join(request.url, "foo").to_s
+  end
+  get "/foo" do
+    "spam"
+  end
+end

data/spec/integration/sinatra/test/classic_app_test.rb ADDED Viewed

@@ -0,0 +1,37 @@
+require File.dirname(__FILE__) + "/test_helper"
+require File.dirname(__FILE__) + "/../classic_app"
+class MyClassicAppTest < Test::Unit::TestCase
+  def test_visits_pages
+    visit "/"
+    assert response_body.include?("visit")
+    click_link "there"
+    assert response_body.include?('<form method="post" action="/go">')
+  end
+  def test_submits_form
+    visit "/go"
+    fill_in "Name", :with => "World"
+    fill_in "Email", :with => "world@example.org"
+    click_button "Submit"
+    assert response_body.include?("Hello, World")
+    assert response_body.include?("Your email is: world@example.org")
+  end
+  def test_check_value_of_field
+    visit "/"
+    assert field_labeled("Prefilled").value, "text"
+  end
+  def test_follows_internal_redirects
+    visit "/internal_redirect"
+    assert response_body.include?("visit")
+  end
+  def test_does_not_follow_external_redirects
+    visit "/external_redirect"
+    assert response_code == 302
+  end
+end

data/spec/integration/sinatra/test/modular_app_test.rb ADDED Viewed

@@ -0,0 +1,18 @@
+require File.dirname(__FILE__) + "/test_helper"
+require File.dirname(__FILE__) + "/../modular_app"
+class MyModularAppTest < Test::Unit::TestCase
+  def app
+    MyModularApp
+  end
+  def test_it_works
+    visit "/"
+    assert_contain "Hello World"
+  end
+  def test_redirects
+    visit "/redirect_absolute_url"
+    assert_equal "spam", response_body
+  end
+end

data/spec/integration/sinatra/test/test_helper.rb ADDED Viewed

@@ -0,0 +1,16 @@
+require "rubygems"
+require "test/unit"
+require "redgreen"
+require File.dirname(__FILE__) + "/../../../../lib/webrat"
+Webrat.configure do |config|
+  config.mode = :sinatra
+end
+class Test::Unit::TestCase
+  include Webrat::Methods
+  include Webrat::Matchers
+  Webrat::Methods.delegate_to_session :response_code, :response_body
+end

data/spec/private/core/configuration_spec.rb ADDED Viewed

@@ -0,0 +1,106 @@
+require File.expand_path(File.dirname(__FILE__) + "/../../spec_helper")
+describe Webrat::Configuration do
+  predicate_matchers[:parse_with_nokogiri]  = :parse_with_nokogiri?
+  predicate_matchers[:open_error_files]     = :open_error_files?
+  it "should have a mode" do
+    Webrat.configuration.should respond_to(:mode)
+  end
+  it "should use Nokogiri as the parser by default" do
+    config = Webrat::Configuration.new
+    config.should parse_with_nokogiri
+  end
+  it "should open error files by default" do
+    config = Webrat::Configuration.new
+    config.should open_error_files
+  end
+  it "should detect infinite redirects after 10" do
+    config = Webrat::Configuration.new
+    config.infinite_redirect_limit.should == 10
+  end
+  it "should be configurable with a block" do
+    Webrat.configure do |config|
+      config.open_error_files = false
+    end
+    config = Webrat.configuration
+    config.should_not open_error_files
+  end
+  it "should be configurable with multiple blocks" do
+    Webrat.configure do |config|
+      config.open_error_files = false
+    end
+    Webrat.configure do |config|
+      config.selenium_server_port = 1234
+    end
+    config = Webrat.configuration
+    config.should_not open_error_files
+    config.selenium_server_port.should == 1234
+  end
+  [:rails,
+  :selenium,
+  :rack,
+  :sinatra,
+  :mechanize].each do |mode|
+    it "should require correct lib when in #{mode} mode" do
+      config = Webrat::Configuration.new
+      config.should_receive(:require).with("webrat/#{mode}")
+      config.mode = mode
+    end
+  end
+  it "should require merb_session when in merb mode" do
+    config = Webrat::Configuration.new
+    config.should_receive(:require).with("webrat/merb_session")
+    config.mode = :merb
+  end
+  describe "Selenium" do
+    before :each do
+      @config = Webrat::Configuration.new
+    end
+    it "should use 'test' as the application environment by default" do
+      @config.application_environment.should == :test
+    end
+    it "should use 3001 as the application port by default" do
+      @config.application_port.should == 3001
+    end
+    it 'should default application address to localhost' do
+      @config.application_address.should == 'localhost'
+    end
+    it 'should default selenium server address to nil' do
+      @config.selenium_server_address.should be_nil
+    end
+    it 'should default selenium server port to 4444' do
+      @config.selenium_server_port.should == 4444
+    end
+    it 'should default selenium browser key to *firefox' do
+      @config.selenium_browser_key.should == '*firefox'
+    end
+    it 'should default selenium browser startup timeout to 5 seconds' do
+      @config.selenium_browser_startup_timeout.should == 5
+    end
+    it 'should allow overriding of the browser startup timeout' do
+      @config.selenium_browser_startup_timeout = 10
+      @config.selenium_browser_startup_timeout.should == 10
+    end
+  end
+end

data/spec/private/core/field_spec.rb ADDED Viewed

@@ -0,0 +1,85 @@
+require File.expand_path(File.dirname(__FILE__) + "/../../spec_helper")
+module Webrat
+  describe Field do
+    unless Webrat.on_java?
+      it "should have nice inspect output" do
+        html = <<-HTML
+          <html>
+          <input type='checkbox' checked='checked' />
+          </html>
+        HTML
+        element = Webrat::XML.css_search(Webrat::XML.document(html), "input").first
+        checkbox = CheckboxField.new(nil, element)
+        checkbox.inspect.should =~ /#<Webrat::CheckboxField @element=<input type=['"]checkbox['"] checked(=['"]checked['"])?\/?>>/
+      end
+    end
+  end
+  describe CheckboxField do
+    it "should say it is checked if it is" do
+      html = <<-HTML
+        <html>
+        <input type='checkbox' checked='checked' />
+        </html>
+      HTML
+      element = Webrat::XML.css_search(Webrat::XML.document(html), "input").first
+      checkbox = CheckboxField.new(nil, element)
+      checkbox.should be_checked
+    end
+    it "should say it is not checked if it is not" do
+      html = <<-HTML
+        <html>
+        <input type='checkbox' />
+        </html>
+      HTML
+      element = Webrat::XML.css_search(Webrat::XML.document(html), "input").first
+      checkbox = CheckboxField.new(nil, element)
+      checkbox.should_not be_checked
+    end
+  end
+  describe RadioField do
+    it "should say it is checked if it is" do
+      html = <<-HTML
+        <html>
+        <input type='radio' checked='checked' />
+        </html>
+      HTML
+      element = Webrat::XML.css_search(Webrat::XML.document(html), "input").first
+      radio_button = RadioField.new(nil, element)
+      radio_button.should be_checked
+    end
+    it "should say it is not checked if it is not" do
+      html = <<-HTML
+        <html><input type='radio' /></html>
+      HTML
+      element = Webrat::XML.css_search(Webrat::XML.document(html), "input").first
+      radio_button = RadioField.new(nil, element)
+      radio_button.should_not be_checked
+    end
+  end
+  describe TextField do
+    it 'should not escape values in mechanize mode' do
+      Webrat.configuration.mode = :mechanize
+      html = <<-HTML
+        <html>
+          <input type="text" name="email" value="user@example.com" />
+        </html>
+      HTML
+      element    = Webrat::XML.css_search(Webrat::XML.document(html), 'input').first
+      text_field = TextField.new(nil, element)
+      text_field.to_param.should == { 'email' => 'user@example.com' }
+    end
+  end
+end

data/spec/private/core/link_spec.rb ADDED Viewed

@@ -0,0 +1,24 @@
+require File.expand_path(File.dirname(__FILE__) + "/../../spec_helper")
+describe Webrat::Link do
+#  include Webrat::Link
+  before do
+    webrat_session = mock(Webrat::TestSession)
+    @link_text_with_nbsp = 'Link' + [0xA0].pack("U") + 'Text'
+  end
+  it "should pass through relative urls" do
+    link = Webrat::Link.new(webrat_session, {"href" => "/path"})
+    webrat_session.should_receive(:request_page).with("/path", :get, {})
+    link.click
+  end
+  it "shouldnt put base url onto " do
+    url = "https://www.example.com/path"
+    webrat_session.should_receive(:request_page).with(url, :get, {})
+    link = Webrat::Link.new(webrat_session, {"href" => url})
+    link.click
+  end
+end

data/spec/private/core/logging_spec.rb ADDED Viewed

@@ -0,0 +1,10 @@
+require File.expand_path(File.dirname(__FILE__) + "/../../spec_helper")
+describe Webrat::Logging do
+  it "should not log if there is no logger" do
+    klass = Class.new
+    klass.send(:include, Webrat::Logging)
+    klass.new.debug_log "Testing"
+  end
+end

data/spec/private/core/session_spec.rb ADDED Viewed

@@ -0,0 +1,198 @@
+require File.expand_path(File.dirname(__FILE__) + "/../../spec_helper")
+describe Webrat::Session do
+  it "should not have a doc_root" do
+    session = Webrat::Session.new
+    session.doc_root.should be_nil
+  end
+  it "should expose the current_dom" do
+    session = Webrat::Session.new
+    def session.response
+      Object.new
+    end
+    def session.response_body
+      "<html></html>"
+    end
+    session.should respond_to(:current_dom)
+  end
+  it "should open the page in the browser in MacOSX" do
+    session = Webrat::Session.new
+    session.stub!(:ruby_platform => 'darwin')
+    session.should_receive(:`).with("open path")
+    session.open_in_browser("path")
+  end
+  it "should open the page in the browser in cygwin" do
+    session = Webrat::Session.new
+    session.stub!(:ruby_platform => 'i386-cygwin')
+    session.should_receive(:`).with("rundll32 url.dll,FileProtocolHandler path\\to\\file")
+    session.open_in_browser("path/to/file")
+  end
+  it "should open the page in the browser in Win32" do
+    session = Webrat::Session.new
+    session.stub!(:ruby_platform => 'win32')
+    session.should_receive(:`).with("rundll32 url.dll,FileProtocolHandler path\\to\\file")
+    session.open_in_browser("path/to/file")
+  end
+  it "should provide a current_page for backwards compatibility" do
+    session = Webrat::Session.new
+    current_page = session.current_page
+    current_page.should_not be_nil
+    current_page.should respond_to(:url)
+  end
+  it "should allow custom headers to be set" do
+    session = Webrat::Session.new
+    session.header('Accept', 'application/xml')
+    session.instance_variable_get(:@custom_headers)['Accept'].should == 'application/xml'
+  end
+  it "should return a copy of the headers to be sent" do
+    session = Webrat::Session.new
+    session.instance_eval {
+      @default_headers = {'HTTP_X_FORWARDED_FOR' => '192.168.1.1'}
+      @custom_headers = {'Accept' => 'application/xml'}
+    }
+    session.headers.should == {'HTTP_X_FORWARDED_FOR' => '192.168.1.1', 'Accept' => 'application/xml'}
+  end
+  describe "#http_accept" do
+    before(:each) do
+      webrat_session = Webrat::Session.new
+    end
+    it "should set the Accept header with the string Mime type" do
+      webrat_session.http_accept('application/xml')
+      webrat_session.headers['Accept'].should == 'application/xml'
+    end
+    it "should set the Accept head with the string value of the symbol Mime type" do
+      webrat_session.http_accept(:xml)
+      webrat_session.headers['Accept'].should == 'application/xml'
+    end
+    it "should raise an error if a symbol Mime type is passed that does not exist" do
+      lambda { webrat_session.http_accept(:oogabooga) }.should raise_error(ArgumentError)
+    end
+  end
+  describe "#request_page" do
+    before(:each) do
+      webrat_session = Webrat::Session.new
+    end
+    it "should raise an error if the request is not a success" do
+      webrat_session.stub!(:get)
+      webrat_session.stub!(:response_body => "Exception caught")
+      webrat_session.stub!(:response_code => 500)
+      webrat_session.stub!(:formatted_error => "application error")
+      webrat_session.stub!(:save_and_open_page)
+      lambda { webrat_session.request_page('some url', :get, {}) }.should raise_error(Webrat::PageLoadError)
+    end
+    it "should raise an error but not open if the request is not a success and config quashes save_and_open" do
+      Webrat.configure do |config|
+        config.open_error_files = false
+      end
+      webrat_session.stub!(:get)
+      webrat_session.stub!(:response_body => "Exception caught")
+      webrat_session.stub!(:response_code => 500)
+      webrat_session.stub!(:formatted_error => "application error")
+      webrat_session.should_not_receive(:save_and_open_page)
+      lambda { webrat_session.request_page('some url', :get, {}) }.should raise_error(Webrat::PageLoadError)
+    end
+    it "should now follow external redirects" do
+      webrat_session.should_receive(:internal_redirect?).and_return(false)
+      webrat_session.request_page("/oldurl", :get, {})
+      webrat_session.current_url.should == "/oldurl"
+    end
+  end
+  describe "#redirect?" do
+    before(:each) do
+      webrat_session = Webrat::Session.new
+    end
+    it "should return true if the last response was a redirect" do
+      webrat_session.stub!(:response_code => 301)
+      webrat_session.redirect?.should be_true
+    end
+    it "should return false if the last response wasn't a redirect" do
+      webrat_session.stub!(:response_code => 200)
+      webrat_session.redirect?.should be_false
+    end
+  end
+  describe "#internal_redirect?" do
+    before(:each) do
+      webrat_session = Webrat::Session.new
+    end
+    it "should return true if the last response was a redirect and the host of the current_url matches that of the response location" do
+      webrat_session.stub!(:redirect?         => true)
+      webrat_session.stub!(:current_url       => "http://example.com")
+      webrat_session.stub!(:response_location => "http://example.com")
+      webrat_session.internal_redirect?.should be_true
+    end
+    it "should return true if the last response was a redirect and the hosts are the same but the subdomains are different" do
+      webrat_session.stub!(:redirect?         => true)
+      webrat_session.stub!(:current_url       => "http://example.com")
+      webrat_session.stub!(:response_location => "http://myName.example.com")
+      webrat_session.internal_redirect?.should be_true
+    end
+    it "should return false if the last response was not a redirect" do
+      webrat_session.stub!(:redirect? => false)
+      webrat_session.internal_redirect?.should be_false
+    end
+    it "should return false if the last response was a redirect but the host of the current_url doesn't matches that of the response location" do
+      webrat_session.stub!(:redirect?         => true)
+      webrat_session.stub!(:current_url       => "http://example.com")
+      webrat_session.stub!(:response_location => "http://google.com")
+      webrat_session.internal_redirect?.should be_false
+    end
+    it "should return false if the last response was a redirect but the host of the current_url doesn't matches that of the response location, but they have the same subdomain" do
+      webrat_session.stub!(:redirect?         => true)
+      webrat_session.stub!(:current_url       => "http://login.example.com")
+      webrat_session.stub!(:response_location => "http://login.google.com")
+      webrat_session.internal_redirect?.should be_false
+    end
+  end
+  describe "#redirected_to" do
+    before(:each) do
+      webrat_session = Webrat::Session.new
+    end
+    it "should return nil if not redirected" do
+      webrat_session.stub!(:redirect? => false)
+      webrat_session.redirected_to.should be_nil
+    end
+    it "should return the response_location if redirected" do
+      webrat_session.stub!(:redirect?         => true)
+      webrat_session.stub!(:response_location => "http://www.example.com")
+      webrat_session.redirected_to.should == "http://www.example.com"
+    end
+  end
+end