http_redirect_test 0.1.0

data/lib/http_redirect_test.rb

@@ -0,0 +1 @@
+require File.join(File.dirname(__FILE__), "http_redirect_test", "http_redirect_test")

data/lib/http_redirect_test/http_redirect_test.rb

@@ -0,0 +1,53 @@
+require File.join(File.dirname(__FILE__), "redirect_check")
+require File.join(File.dirname(__FILE__), "resource_path")
+require 'test/unit'
+
+class HTTPRedirectTest < Test::Unit::TestCase
+
+  def default_test; end # placeholder to stop Test::Unit from complaining
+
+  def self.domain=(domain)
+    RedirectCheck.domain = domain
+  end
+
+  def self.should_not_redirect(path)
+    class_eval <<-CODE
+      def test_#{name_for(path)}_should_not_redirect
+      check = RedirectCheck.new('#{path}')
+      assert_equal false, check.redirected?, "#{path} is redirecting"
+      assert_equal true, check.success?, "#{path} is not a success response"
+      end
+    CODE
+  end
+
+  def self.name_for(path)
+    name = path.gsub(/\W+/, '_')
+    name.gsub!(/^_+/, '')
+    name.gsub!(/_+$/, '')
+  
+    name = 'root' if name == ''
+  
+    name
+  end
+
+  def self.should_redirect(source, options)
+    source_path = ResourcePath.new(source, :param => 'subdir').to_s
+    destination_path = ResourcePath.new(options[:to], :param => 'subdir').to_s
+  
+    permanent = options.fetch(:permanent, true)
+  
+    class_eval <<-CODE
+      def test_#{name_for(source_path)}_should_redirect_to_#{name_for(destination_path)}
+      redirection = RedirectCheck.new('#{source_path}', '#{destination_path}')
+      assert_equal true, redirection.redirected?, "'#{source_path}' is not redirecting"
+      assert_equal '#{destination_path}', redirection.redirected_path,
+      "'#{source_path}' is not redirecting to '#{destination_path}'"
+      if #{permanent}
+      assert_equal true, redirection.permanent_redirect?,
+      "The redirection from '#{source_path}' to '#{destination_path}' doesn't appear to be a permanent redirect"
+      end
+      end
+    CODE
+  end
+
+end

data/lib/http_redirect_test/redirect_check.rb

@@ -0,0 +1,45 @@
+require 'uri'
+require 'net/http'
+ 
+class RedirectCheck
+  
+  def self.domain=(domain)
+    @domain = domain
+  end
+  
+  def self.domain
+    @domain
+  end
+  
+  attr_reader :source_path, :destination_path
+ 
+  def initialize(source_path, destination_path = nil)
+    @source_path = source_path.to_s
+    @destination_path = destination_path.to_s
+  end
+ 
+  def uri
+    URI.parse("http://#{self.class.domain}#{source_path}")
+  end
+ 
+  def response
+    @response ||= Net::HTTP.start(uri.host, uri.port) {|http| http.head(uri.path) }
+  end
+  
+  def success?
+    response.is_a?(Net::HTTPOK)
+  end
+ 
+  def redirected?
+    response.is_a?(Net::HTTPRedirection)
+  end
+  
+  def permanent_redirect?
+    redirected? && response.is_a?(Net::HTTPMovedPermanently)
+  end
+  
+  def redirected_path
+    response['location'].sub(/#{Regexp.escape("#{uri.scheme}://#{uri.host}")}/, '') if redirected?
+  end
+ 
+end

data/lib/http_redirect_test/resource_path.rb

@@ -0,0 +1,18 @@
+class ResourcePath
+  
+  attr_writer :param
+  
+  def initialize(path, options = {})
+    @path = path
+    @param = options[:param]
+  end
+  
+  def param
+    @param ||= (0...8).map{65.+(rand(25)).chr}.join
+  end
+  
+  def to_s
+    @path.gsub('*', param)
+  end
+  
+end

metadata

@@ -0,0 +1,56 @@
+--- !ruby/object:Gem::Specification 
+name: http_redirect_test
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Matt House
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-04-08 00:00:00 +01:00
+default_executable: 
+dependencies: []
+
+description: 
+email: matt@theshadowaspect.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/http_redirect_test/http_redirect_test.rb
+- lib/http_redirect_test/redirect_check.rb
+- lib/http_redirect_test/resource_path.rb
+- lib/http_redirect_test.rb
+has_rdoc: false
+homepage: http://github.com/shadowaspect
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.1
+signing_key: 
+specification_version: 2
+summary: A subclass of Test::Unit::TestCase to allow for http redirect testing, packaged from a gist by Patrick Reagan of Viget Labs
+test_files: []
+