francois-rest-client 1.1.5

data/spec/payload_spec.rb

@@ -0,0 +1,76 @@
+require File.dirname(__FILE__) + "/base"
+
+describe RestClient::Payload do
+	context "A regular Payload" do
+		it "should should default content-type to standard enctype" do
+			RestClient::Payload::UrlEncoded.new({}).headers['Content-Type'].
+				should == 'application/x-www-form-urlencoded'
+		end
+
+		it "should form properly encoded params" do
+			RestClient::Payload::UrlEncoded.new({:foo => 'bar'}).to_s.
+				should == "foo=bar"
+		end
+	end
+
+	context "A multipart Payload" do
+		it "should should default content-type to standard enctype" do
+			m = RestClient::Payload::Multipart.new({})
+			m.stub!(:boundary).and_return(123)
+			m.headers['Content-Type'].should == 'multipart/form-data; boundary="123"'
+		end
+
+		it "should form properly seperated multipart data" do
+			m = RestClient::Payload::Multipart.new({:foo => "bar", :bar => "baz"})
+			m.to_s.should == <<-EOS
+--#{m.boundary}\r
+Content-Disposition: multipart/form-data; name="bar"\r
+\r
+baz\r
+--#{m.boundary}\r
+Content-Disposition: multipart/form-data; name="foo"\r
+\r
+bar\r
+--#{m.boundary}--\r
+EOS
+		end
+
+		it "should form properly seperated multipart data" do
+			f = File.new(File.dirname(__FILE__) + "/master_shake.jpg")
+			m = RestClient::Payload::Multipart.new({:foo => f})
+			m.to_s.should == <<-EOS
+--#{m.boundary}\r
+Content-Disposition: multipart/form-data; name="foo"; filename="master_shake.jpg"\r
+Content-Type: image/jpeg\r
+\r
+#{IO.read(f.path)}\r
+--#{m.boundary}--\r
+EOS
+		end
+	end
+
+	context "Payload generation" do
+		it "should recognize standard urlencoded params" do
+			RestClient::Payload.generate({"foo" => 'bar'}).should be_kind_of(RestClient::Payload::UrlEncoded)
+		end
+		
+		it "should recognize multipart params" do
+			f = File.new(File.dirname(__FILE__) + "/master_shake.jpg")
+
+			RestClient::Payload.generate({"foo" => f}).should be_kind_of(RestClient::Payload::Multipart)
+		end
+		
+		it "should be multipart if forced" do
+			RestClient::Payload.generate({"foo" => "bar", :multipart => true}).should be_kind_of(RestClient::Payload::Multipart)
+		end
+
+		it "should return data if no of the above" do
+		  RestClient::Payload.generate("data").should be_kind_of(RestClient::Payload::Base)
+		end
+
+		it "should recognize nested multipart payloads" do
+			f = File.new(File.dirname(__FILE__) + "/master_shake.jpg")
+			RestClient::Payload.generate({"foo" => {"file" => f}}).should be_kind_of(RestClient::Payload::Multipart)
+		end
+	end
+end

data/spec/raw_response_spec.rb

@@ -0,0 +1,17 @@
+require File.dirname(__FILE__) + '/base'
+
+describe RestClient::RawResponse do
+	before do
+		@tf = mock("Tempfile", :read => "the answer is 42", :open => true)
+		@net_http_res = mock('net http response')
+		@response = RestClient::RawResponse.new(@tf, @net_http_res)
+	end
+
+	it "behaves like string" do
+		@response.to_s.should == 'the answer is 42'
+	end
+
+	it "exposes a Tempfile" do
+		@response.file.should == @tf
+	end
+end

data/spec/request_spec.rb

@@ -0,0 +1,484 @@
+require File.dirname(__FILE__) + '/base'
+
+describe RestClient::Request do
+	before do
+		@request = RestClient::Request.new(:method => :put, :url => 'http://some/resource', :payload => 'payload')
+
+		@uri = mock("uri")
+		@uri.stub!(:request_uri).and_return('/resource')
+		@uri.stub!(:host).and_return('some')
+		@uri.stub!(:port).and_return(80)
+
+		@net = mock("net::http base")
+		@http = mock("net::http connection")
+		Net::HTTP.stub!(:new).and_return(@net)
+		@net.stub!(:start).and_yield(@http)
+		@net.stub!(:use_ssl=)
+		@net.stub!(:verify_mode=)
+	end
+
+	it "accept */* mimetype, preferring xml" do
+		@request.default_headers[:accept].should == '*/*; q=0.5, application/xml'
+	end
+
+	it "decodes an uncompressed result body by passing it straight through" do
+		RestClient::Request.decode(nil, 'xyz').should == 'xyz'
+	end
+
+	it "decodes a gzip body" do
+		RestClient::Request.decode('gzip', "\037\213\b\b\006'\252H\000\003t\000\313T\317UH\257\312,HM\341\002\000G\242(\r\v\000\000\000").should == "i'm gziped\n"
+	end
+
+	it "ingores gzip for empty bodies" do
+		RestClient::Request.decode('gzip', '').should be_empty
+	end
+
+	it "decodes a deflated body" do
+		RestClient::Request.decode('deflate', "x\234+\316\317MUHIM\313I,IMQ(I\255(\001\000A\223\006\363").should == "some deflated text"
+	end
+
+	it "processes a successful result" do
+		res = mock("result")
+		res.stub!(:code).and_return("200")
+		res.stub!(:body).and_return('body')
+		res.stub!(:[]).with('content-encoding').and_return(nil)
+		@request.process_result(res).should == 'body'
+	end
+
+	it "doesn't classify successful requests as failed" do
+		203.upto(206) do |code|
+			res = mock("result")
+			res.stub!(:code).and_return(code.to_s)
+			res.stub!(:body).and_return("")
+			res.stub!(:[]).with('content-encoding').and_return(nil)
+			@request.process_result(res).should be_empty
+		end
+	end
+
+	it "parses a url into a URI object" do
+		URI.should_receive(:parse).with('http://example.com/resource')
+		@request.parse_url('http://example.com/resource')
+	end
+
+	it "adds http:// to the front of resources specified in the syntax example.com/resource" do
+		URI.should_receive(:parse).with('http://example.com/resource')
+		@request.parse_url('example.com/resource')
+	end
+
+	it "extracts the username and password when parsing http://user:password@example.com/" do
+		URI.stub!(:parse).and_return(mock('uri', :user => 'joe', :password => 'pass1'))
+		@request.parse_url_with_auth('http://joe:pass1@example.com/resource')
+		@request.user.should == 'joe'
+		@request.password.should == 'pass1'
+	end
+
+	it "doesn't overwrite user and password (which may have already been set by the Resource constructor) if there is no user/password in the url" do
+		URI.stub!(:parse).and_return(mock('uri', :user => nil, :password => nil))
+		@request = RestClient::Request.new(:method => 'get', :url => 'example.com', :user => 'beth', :password => 'pass2')
+		@request.parse_url_with_auth('http://example.com/resource')
+		@request.user.should == 'beth'
+		@request.password.should == 'pass2'
+	end
+
+	it "correctly formats cookies provided to the constructor" do
+		URI.stub!(:parse).and_return(mock('uri', :user => nil, :password => nil))
+		@request = RestClient::Request.new(:method => 'get', :url => 'example.com', :cookies => {:session_id => '1' })
+		@request.should_receive(:default_headers).and_return({'foo' => 'bar'})
+		headers = @request.make_headers({}).should == { 'Foo' => 'bar', 'Cookie' => 'session_id=1'}
+	end
+
+	it "determines the Net::HTTP class to instantiate by the method name" do
+		@request.net_http_request_class(:put).should == Net::HTTP::Put
+	end
+
+	it "merges user headers with the default headers" do
+		@request.should_receive(:default_headers).and_return({ '1' => '2' })
+		headers = @request.make_headers('3' => '4')
+		headers.should have_key('1')
+		headers['1'].should == '2'
+		headers.should have_key('3')
+		headers['3'].should == '4'
+	end
+
+	it "prefers the user header when the same header exists in the defaults" do
+		@request.should_receive(:default_headers).and_return({ '1' => '2' })
+		headers = @request.make_headers('1' => '3')
+		headers.should have_key('1')
+		headers['1'].should == '3'
+	end
+
+	it "converts header symbols from :content_type to 'Content-type'" do
+		@request.should_receive(:default_headers).and_return({})
+		headers = @request.make_headers(:content_type => 'abc')
+		headers.should have_key('Content-type')
+		headers['Content-type'].should == 'abc'
+	end
+
+	it "converts header values to strings" do
+		@request.make_headers('A' => 1)['A'].should == '1'
+	end
+
+	it "executes by constructing the Net::HTTP object, headers, and payload and calling transmit" do
+		@request.should_receive(:parse_url_with_auth).with('http://some/resource').and_return(@uri)
+		klass = mock("net:http class")
+		@request.should_receive(:net_http_request_class).with(:put).and_return(klass)
+		klass.should_receive(:new).and_return('result')
+		@request.should_receive(:transmit).with(@uri, 'result', kind_of(RestClient::Payload::Base))
+		@request.execute_inner
+	end
+
+	it "transmits the request with Net::HTTP" do
+		@http.should_receive(:request).with('req', 'payload')
+		@request.should_receive(:process_result)
+		@request.should_receive(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+
+	it "uses SSL when the URI refers to a https address" do
+		@uri.stub!(:is_a?).with(URI::HTTPS).and_return(true)
+		@net.should_receive(:use_ssl=).with(true)
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+
+	it "sends nil payloads" do
+		@http.should_receive(:request).with('req', nil)
+		@request.should_receive(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', nil)
+	end
+
+	it "passes non-hash payloads straight through" do
+		@request.process_payload("x").should == "x"
+	end
+
+	it "converts a hash payload to urlencoded data" do
+		@request.process_payload(:a => 'b c+d').should == "a=b%20c%2Bd"
+	end
+
+	it "accepts nested hashes in payload" do
+		payload = @request.process_payload(:user => { :name => 'joe', :location => { :country => 'USA', :state => 'CA' }})
+		payload.should include('user[name]=joe')
+		payload.should include('user[location][country]=USA')
+		payload.should include('user[location][state]=CA')
+	end
+
+	it "set urlencoded content_type header on hash payloads" do
+		@request.process_payload(:a => 1)
+		@request.headers[:content_type].should == 'application/x-www-form-urlencoded'
+	end
+
+	it "sets up the credentials prior to the request" do
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+
+		@request.stub!(:user).and_return('joe')
+		@request.stub!(:password).and_return('mypass')
+		@request.should_receive(:setup_credentials).with('req')
+
+		@request.transmit(@uri, 'req', nil)
+	end
+
+	it "does not attempt to send any credentials if user is nil" do
+		@request.stub!(:user).and_return(nil)
+		req = mock("request")
+		req.should_not_receive(:basic_auth)
+		@request.setup_credentials(req)
+	end
+
+	it "setup credentials when there's a user" do
+		@request.stub!(:user).and_return('joe')
+		@request.stub!(:password).and_return('mypass')
+		req = mock("request")
+		req.should_receive(:basic_auth).with('joe', 'mypass')
+		@request.setup_credentials(req)
+	end
+
+	it "catches EOFError and shows the more informative ServerBrokeConnection" do
+		@http.stub!(:request).and_raise(EOFError)
+		lambda { @request.transmit(@uri, 'req', nil) }.should raise_error(RestClient::ServerBrokeConnection)
+	end
+
+	it "execute calls execute_inner" do
+		@request.should_receive(:execute_inner)
+		@request.execute
+	end
+
+	it "class method execute wraps constructor" do
+		req = mock("rest request")
+		RestClient::Request.should_receive(:new).with(1 => 2).and_return(req)
+		req.should_receive(:execute)
+		RestClient::Request.execute(1 => 2)
+	end
+
+	it "raises a Redirect with the new location when the response is in the 30x range" do
+		res = mock('response', :code => '301', :header => { 'Location' => 'http://new/resource' })
+		lambda { @request.process_result(res) }.should raise_error(RestClient::Redirect) { |e| e.url.should == 'http://new/resource'}
+	end
+
+	it "handles redirects with relative paths" do
+		res = mock('response', :code => '301', :header => { 'Location' => 'index' })
+		lambda { @request.process_result(res) }.should raise_error(RestClient::Redirect) { |e| e.url.should == 'http://some/index' }
+	end
+
+	it "handles redirects with absolute paths" do
+		@request.instance_variable_set('@url', 'http://some/place/else')
+		res = mock('response', :code => '301', :header => { 'Location' => '/index' })
+		lambda { @request.process_result(res) }.should raise_error(RestClient::Redirect) { |e| e.url.should == 'http://some/index' }
+	end
+
+	it "uses GET and clears payload when following 30x redirects" do
+		url = "http://example.com/redirected"
+
+		@request.should_receive(:execute_inner).once.ordered.and_raise(RestClient::Redirect.new(url))
+
+		@request.should_receive(:execute_inner).once.ordered do
+			@request.url.should == url
+			@request.method.should == :get
+			@request.payload.should be_nil
+		end
+
+		@request.execute
+	end
+
+	it "raises Unauthorized when the response is 401" do
+		res = mock('response', :code => '401')
+		lambda { @request.process_result(res) }.should raise_error(RestClient::Unauthorized)
+	end
+
+	it "raises ResourceNotFound when the response is 404" do
+		res = mock('response', :code => '404')
+		lambda { @request.process_result(res) }.should raise_error(RestClient::ResourceNotFound)
+	end
+
+	it "raises RequestFailed otherwise" do
+		res = mock('response', :code => '500')
+		lambda { @request.process_result(res) }.should raise_error(RestClient::RequestFailed)
+	end
+
+	it "creates a proxy class if a proxy url is given" do
+		RestClient.stub!(:proxy).and_return("http://example.com/")
+		@request.net_http_class.should include(Net::HTTP::ProxyDelta)
+	end
+
+	it "creates a non-proxy class if a proxy url is not given" do
+		@request.net_http_class.should_not include(Net::HTTP::ProxyDelta)
+	end
+
+	it "logs a get request" do
+		RestClient::Request.new(:method => :get, :url => 'http://url').request_log.should ==
+		'RestClient.get "http://url"'
+	end
+
+	it "logs a post request with a small payload" do
+		RestClient::Request.new(:method => :post, :url => 'http://url', :payload => 'foo').request_log.should ==
+		'RestClient.post "http://url", "foo"'
+	end
+
+	it "logs a post request with a large payload" do
+		RestClient::Request.new(:method => :post, :url => 'http://url', :payload => ('x' * 1000)).request_log.should ==
+		'RestClient.post "http://url", "(1000 byte payload)"'
+	end
+
+	it "logs input headers as a hash" do
+		RestClient::Request.new(:method => :get, :url => 'http://url', :headers => { :accept => 'text/plain' }).request_log.should ==
+		'RestClient.get "http://url", :accept=>"text/plain"'
+	end
+
+	it "logs a response including the status code, content type, and result body size in bytes" do
+		res = mock('result', :code => '200', :class => Net::HTTPOK, :body => 'abcd')
+		res.stub!(:[]).with('Content-type').and_return('text/html')
+		@request.response_log(res).should == "# => 200 OK | text/html 4 bytes"
+	end
+
+	it "logs a response with a nil Content-type" do
+		res = mock('result', :code => '200', :class => Net::HTTPOK, :body => 'abcd')
+		res.stub!(:[]).with('Content-type').and_return(nil)
+		@request.response_log(res).should == "# => 200 OK |  4 bytes"
+	end
+
+	it "logs a response with a nil body" do
+		res = mock('result', :code => '200', :class => Net::HTTPOK, :body => nil)
+		res.stub!(:[]).with('Content-type').and_return('text/html; charset=utf-8')
+		@request.response_log(res).should == "# => 200 OK | text/html 0 bytes"
+	end
+
+	it "strips the charset from the response content type" do
+		res = mock('result', :code => '200', :class => Net::HTTPOK, :body => 'abcd')
+		res.stub!(:[]).with('Content-type').and_return('text/html; charset=utf-8')
+		@request.response_log(res).should == "# => 200 OK | text/html 4 bytes"
+	end
+
+	it "displays the log to stdout" do
+		RestClient.stub!(:log).and_return('stdout')
+		STDOUT.should_receive(:puts).with('xyz')
+		@request.display_log('xyz')
+	end
+
+	it "displays the log to stderr" do
+		RestClient.stub!(:log).and_return('stderr')
+		STDERR.should_receive(:puts).with('xyz')
+		@request.display_log('xyz')
+	end
+
+	it "append the log to the requested filename" do
+		RestClient.stub!(:log).and_return('/tmp/restclient.log')
+		f = mock('file handle')
+		File.should_receive(:open).with('/tmp/restclient.log', 'a').and_yield(f)
+		f.should_receive(:puts).with('xyz')
+		@request.display_log('xyz')
+	end
+
+	it "set read_timeout" do
+		@request = RestClient::Request.new(:method => :put, :url => 'http://some/resource', :payload => 'payload', :timeout => 123)
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+
+		@net.should_receive(:read_timeout=).with(123)
+
+		@request.transmit(@uri, 'req', nil)
+	end
+
+	it "set open_timeout" do
+		@request = RestClient::Request.new(:method => :put, :url => 'http://some/resource', :payload => 'payload', :open_timeout => 123)
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+
+		@net.should_receive(:open_timeout=).with(123)
+
+		@request.transmit(@uri, 'req', nil)
+	end
+
+	it "should default to not verifying ssl certificates" do
+		@request.verify_ssl.should == false
+	end
+
+  it "should set net.verify_mode to OpenSSL::SSL::VERIFY_NONE if verify_ssl is false" do
+    @net.should_receive(:verify_mode=).with(OpenSSL::SSL::VERIFY_NONE)
+    @http.stub!(:request)
+    @request.stub!(:process_result)
+    @request.stub!(:response_log)
+    @request.transmit(@uri, 'req', 'payload')
+  end
+
+	it "should not set net.verify_mode to OpenSSL::SSL::VERIFY_NONE if verify_ssl is true" do
+		@request = RestClient::Request.new(:method => :put, :url => 'https://some/resource', :payload => 'payload', :verify_ssl => true)
+		@net.should_not_receive(:verify_mode=).with(OpenSSL::SSL::VERIFY_NONE)
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+
+  it "should set net.verify_mode to the passed value if verify_ssl is an OpenSSL constant" do
+    mode     = OpenSSL::SSL::VERIFY_PEER |
+               OpenSSL::SSL::VERIFY_FAIL_IF_NO_PEER_CERT
+		@request = RestClient::Request.new( :method     => :put,
+		                                    :url        => 'https://some/resource',
+		                                    :payload    => 'payload',
+		                                    :verify_ssl => mode )
+    @net.should_receive(:verify_mode=).with(mode)
+    @http.stub!(:request)
+    @request.stub!(:process_result)
+    @request.stub!(:response_log)
+    @request.transmit(@uri, 'req', 'payload')
+  end
+
+	it "should default to not having an ssl_client_cert" do
+		@request.ssl_client_cert.should be(nil)
+	end
+
+	it "should set the ssl_client_cert if provided" do
+		@request = RestClient::Request.new(
+			:method => :put, 
+			:url => 'https://some/resource', 
+			:payload => 'payload',
+			:ssl_client_cert => "whatsupdoc!"
+		)
+		@net.should_receive(:cert=).with("whatsupdoc!")
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+
+	it "should not set the ssl_client_cert if it is not provided" do
+		@request = RestClient::Request.new(
+			:method => :put, 
+			:url => 'https://some/resource', 
+			:payload => 'payload'
+		)
+		@net.should_not_receive(:cert=).with("whatsupdoc!")
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+
+	it "should default to not having an ssl_client_key" do
+		@request.ssl_client_key.should be(nil)
+	end
+
+	it "should set the ssl_client_key if provided" do
+		@request = RestClient::Request.new(
+			:method => :put, 
+			:url => 'https://some/resource', 
+			:payload => 'payload',
+			:ssl_client_key => "whatsupdoc!"
+		)
+		@net.should_receive(:key=).with("whatsupdoc!")
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+
+	it "should not set the ssl_client_key if it is not provided" do
+		@request = RestClient::Request.new(
+			:method => :put, 
+			:url => 'https://some/resource', 
+			:payload => 'payload'
+		)
+		@net.should_not_receive(:key=).with("whatsupdoc!")
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+	
+	it "should default to not having an ssl_ca_file" do
+		@request.ssl_ca_file.should be(nil)
+	end
+
+	it "should set the ssl_ca_file if provided" do
+		@request = RestClient::Request.new(
+			:method => :put, 
+			:url => 'https://some/resource', 
+			:payload => 'payload',
+			:ssl_ca_file => "Certificate Authority File"
+		)
+		@net.should_receive(:ca_file=).with("Certificate Authority File")
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+
+	it "should not set the ssl_ca_file if it is not provided" do
+		@request = RestClient::Request.new(
+			:method => :put, 
+			:url => 'https://some/resource', 
+			:payload => 'payload'
+		)
+		@net.should_not_receive(:ca_file=).with("Certificate Authority File")
+		@http.stub!(:request)
+		@request.stub!(:process_result)
+		@request.stub!(:response_log)
+		@request.transmit(@uri, 'req', 'payload')
+	end
+end

data/spec/resource_spec.rb

@@ -0,0 +1,75 @@
+require File.dirname(__FILE__) + '/base'
+
+describe RestClient::Resource do
+	before do
+		@resource = RestClient::Resource.new('http://some/resource', :user => 'jane', :password => 'mypass', :headers => { 'X-Something' => '1'})
+	end
+
+	context "Resource delegation" do
+		it "GET" do
+			RestClient::Request.should_receive(:execute).with(:method => :get, :url => 'http://some/resource', :headers => { 'X-Something' => '1'}, :user => 'jane', :password => 'mypass')
+			@resource.get
+		end
+
+		it "POST" do
+			RestClient::Request.should_receive(:execute).with(:method => :post, :url => 'http://some/resource', :payload => 'abc', :headers => { :content_type => 'image/jpg', 'X-Something' => '1'}, :user => 'jane', :password => 'mypass')
+			@resource.post 'abc', :content_type => 'image/jpg'
+		end
+
+		it "PUT" do
+			RestClient::Request.should_receive(:execute).with(:method => :put, :url => 'http://some/resource', :payload => 'abc', :headers => { :content_type => 'image/jpg', 'X-Something' => '1'}, :user => 'jane', :password => 'mypass')
+			@resource.put 'abc', :content_type => 'image/jpg'
+		end
+
+		it "DELETE" do
+			RestClient::Request.should_receive(:execute).with(:method => :delete, :url => 'http://some/resource', :headers => { 'X-Something' => '1'}, :user => 'jane', :password => 'mypass')
+			@resource.delete
+		end
+
+		it "overrides resource headers" do
+			RestClient::Request.should_receive(:execute).with(:method => :get, :url => 'http://some/resource', :headers => { 'X-Something' => '2'}, :user => 'jane', :password => 'mypass')
+			@resource.get 'X-Something' => '2'
+		end
+	end
+
+	it "can instantiate with no user/password" do
+		@resource = RestClient::Resource.new('http://some/resource')
+	end
+
+	it "is backwards compatible with previous constructor" do
+		@resource = RestClient::Resource.new('http://some/resource', 'user', 'pass')
+		@resource.user.should == 'user'
+		@resource.password.should == 'pass'
+	end
+
+	it "concatinates urls, inserting a slash when it needs one" do
+		@resource.concat_urls('http://example.com', 'resource').should == 'http://example.com/resource'
+	end
+
+	it "concatinates urls, using no slash if the first url ends with a slash" do
+		@resource.concat_urls('http://example.com/', 'resource').should == 'http://example.com/resource'
+	end
+
+	it "concatinates urls, using no slash if the second url starts with a slash" do
+		@resource.concat_urls('http://example.com', '/resource').should == 'http://example.com/resource'
+	end
+
+	it "concatinates even non-string urls, :posts + 1 => 'posts/1'" do
+		@resource.concat_urls(:posts, 1).should == 'posts/1'
+	end
+
+	it "offers subresources via []" do
+		parent = RestClient::Resource.new('http://example.com')
+		parent['posts'].url.should == 'http://example.com/posts'
+	end
+
+	it "transports options to subresources" do
+		parent = RestClient::Resource.new('http://example.com', :user => 'user', :password => 'password')
+		parent['posts'].user.should == 'user'
+		parent['posts'].password.should == 'password'
+	end
+
+	it "prints its url with to_s" do
+		RestClient::Resource.new('x').to_s.should == 'x'
+	end
+end

data/spec/response_spec.rb

@@ -0,0 +1,16 @@
+require File.dirname(__FILE__) + '/base'
+
+describe RestClient::Response do
+	before do
+		@net_http_res = mock('net http response')
+		@response = RestClient::Response.new('abc', @net_http_res)
+	end
+
+	it "behaves like string" do
+		@response.should == 'abc'
+	end
+
+	it "accepts nil strings and sets it to empty for the case of HEAD" do
+		RestClient::Response.new(nil, @net_http_res).should == ""
+	end
+end