2006-06-30 16:42:12 -04:00
|
|
|
# Copyright (c) 2005 Zed A. Shaw
|
|
|
|
# You can redistribute it and/or modify it under the same terms as Ruby.
|
|
|
|
#
|
|
|
|
# Additional work donated by contributors. See http://mongrel.rubyforge.org/attributions.html
|
|
|
|
# for more information.
|
|
|
|
|
2007-10-18 15:38:47 -04:00
|
|
|
|
2007-10-20 22:55:59 -04:00
|
|
|
HERE = File.dirname(__FILE__)
|
|
|
|
%w(lib ext bin test).each do |dir|
|
|
|
|
$LOAD_PATH.unshift "#{HERE}/../#{dir}"
|
|
|
|
end
|
2006-05-24 04:34:17 -04:00
|
|
|
|
2007-10-20 22:55:59 -04:00
|
|
|
require 'rubygems'
|
|
|
|
require 'test/unit'
|
|
|
|
require 'net/http'
|
|
|
|
require 'timeout'
|
|
|
|
require 'cgi/session'
|
|
|
|
require 'fileutils'
|
|
|
|
require 'benchmark'
|
|
|
|
require 'digest/sha1'
|
|
|
|
require 'uri'
|
|
|
|
require 'stringio'
|
2007-10-21 22:58:02 -04:00
|
|
|
require 'pp'
|
2007-10-20 22:55:59 -04:00
|
|
|
|
|
|
|
require 'mongrel'
|
|
|
|
require 'mongrel/stats'
|
|
|
|
|
|
|
|
if ENV['DEBUG']
|
|
|
|
require 'ruby-debug'
|
|
|
|
Debugger.start
|
|
|
|
end
|
|
|
|
|
|
|
|
def redirect_test_io
|
|
|
|
orig_err = STDERR.dup
|
|
|
|
orig_out = STDOUT.dup
|
|
|
|
STDERR.reopen("test_stderr.log")
|
|
|
|
STDOUT.reopen("test_stdout.log")
|
|
|
|
|
|
|
|
begin
|
|
|
|
yield
|
|
|
|
ensure
|
|
|
|
STDERR.reopen(orig_err)
|
|
|
|
STDOUT.reopen(orig_out)
|
2006-05-30 19:36:48 -04:00
|
|
|
end
|
2007-10-20 22:55:59 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
# Either takes a string to do a get request against, or a tuple of [URI, HTTP] where
|
|
|
|
# HTTP is some kind of Net::HTTP request object (POST, HEAD, etc.)
|
|
|
|
def hit(uris)
|
|
|
|
results = []
|
|
|
|
uris.each do |u|
|
|
|
|
res = nil
|
|
|
|
|
|
|
|
if u.kind_of? String
|
|
|
|
res = Net::HTTP.get(URI.parse(u))
|
|
|
|
else
|
|
|
|
url = URI.parse(u[0])
|
|
|
|
res = Net::HTTP.new(url.host, url.port).start {|h| h.request(u[1]) }
|
2007-10-20 22:54:53 -04:00
|
|
|
end
|
2007-10-20 22:55:59 -04:00
|
|
|
|
|
|
|
assert res != nil, "Didn't get a response: #{u}"
|
|
|
|
results << res
|
2007-10-20 22:54:53 -04:00
|
|
|
end
|
2007-10-20 22:55:59 -04:00
|
|
|
|
|
|
|
return results
|
2006-05-30 19:36:48 -04:00
|
|
|
end
|