voxdolo-httparty 0.3.1

data/spec/httparty/parsers/json_spec.rb

@@ -0,0 +1,42 @@
+require File.join(File.dirname(__FILE__), '..', '..', 'spec_helper')
+
+describe HTTParty::Parsers::JSON do
+  TESTS = {
+    %q({"data": "G\u00fcnter"})                   => {"data" => "Günter"},
+    %q({"returnTo":{"\/categories":"\/"}})        => {"returnTo" => {"/categories" => "/"}},
+    %q({returnTo:{"\/categories":"\/"}})          => {"returnTo" => {"/categories" => "/"}},
+    %q({"return\\"To\\":":{"\/categories":"\/"}}) => {"return\"To\":" => {"/categories" => "/"}},
+    %q({"returnTo":{"\/categories":1}})           => {"returnTo" => {"/categories" => 1}},
+    %({"returnTo":[1,"a"]})                       => {"returnTo" => [1, "a"]},
+    %({"returnTo":[1,"\\"a\\",", "b"]})           => {"returnTo" => [1, "\"a\",", "b"]},
+    %({a: "'", "b": "5,000"})                     => {"a" => "'", "b" => "5,000"},
+    %({a: "a's, b's and c's", "b": "5,000"})      => {"a" => "a's, b's and c's", "b" => "5,000"},
+    %({a: "2007-01-01"})                          => {'a' => Date.new(2007, 1, 1)}, 
+    %({a: "2007-01-01 01:12:34 Z"})               => {'a' => Time.utc(2007, 1, 1, 1, 12, 34)}, 
+    # no time zone                                
+    %({a: "2007-01-01 01:12:34"})                 => {'a' => "2007-01-01 01:12:34"}, 
+    %([])    => [],
+    %({})    => {},
+    %(1)     => 1,
+    %("")    => "",
+    %("\\"") => "\"",
+    %(null)  => nil,
+    %(true)  => true,
+    %(false) => false,
+    %q("http:\/\/test.host\/posts\/1") => "http://test.host/posts/1"
+  }
+  
+  TESTS.each do |json, expected|
+    it "should decode json (#{json})" do
+      lambda {
+        HTTParty::Parsers::JSON.decode(json).should == expected
+      }.should_not raise_error
+    end
+  end
+  
+  it "should raise error for failed decoding" do
+    lambda {
+      HTTParty::Parsers::JSON.decode(%({: 1}))
+    }.should raise_error(HTTParty::Parsers::JSON::ParseError)
+  end
+end

data/spec/httparty/parsers/xml_spec.rb

@@ -0,0 +1,445 @@
+require File.join(File.dirname(__FILE__), '..', '..', 'spec_helper')
+
+require "date"
+require 'bigdecimal'
+
+describe HTTParty::Parsers::XML, "#parse" do
+  it "should transform a simple tag with content" do
+    xml = "<tag>This is the contents</tag>"
+    HTTParty::Parsers::XML.parse(xml).should == { 'tag' => 'This is the contents' }
+  end
+
+  it "should work with cdata tags" do
+    xml = <<-END
+      <tag>
+      <![CDATA[
+        text inside cdata
+      ]]>
+      </tag>
+    END
+    HTTParty::Parsers::XML.parse(xml)["tag"].strip.should == "text inside cdata"
+  end
+
+  it "should transform a simple tag with attributes" do
+    xml = "<tag attr1='1' attr2='2'></tag>"
+    hash = { 'tag' => { 'attr1' => '1', 'attr2' => '2' } }
+    HTTParty::Parsers::XML.parse(xml).should == hash
+  end
+
+  it "should transform repeating siblings into an array" do
+    xml =<<-XML
+      <opt>
+        <user login="grep" fullname="Gary R Epstein" />
+        <user login="stty" fullname="Simon T Tyson" />
+      </opt>
+    XML
+
+    HTTParty::Parsers::XML.parse(xml)['opt']['user'].should be_an_instance_of(Array)
+
+    hash = {
+      'opt' => {
+        'user' => [{
+          'login'    => 'grep',
+          'fullname' => 'Gary R Epstein'
+        },{
+          'login'    => 'stty',
+          'fullname' => 'Simon T Tyson'
+        }]
+      }
+    }
+
+    HTTParty::Parsers::XML.parse(xml).should == hash
+  end
+
+  it "should not transform non-repeating siblings into an array" do
+    xml =<<-XML
+      <opt>
+        <user login="grep" fullname="Gary R Epstein" />
+      </opt>
+    XML
+
+    HTTParty::Parsers::XML.parse(xml)['opt']['user'].should be_an_instance_of(Hash)
+
+    hash = {
+      'opt' => {
+        'user' => {
+          'login' => 'grep',
+          'fullname' => 'Gary R Epstein'
+        }
+      }
+    }
+
+    HTTParty::Parsers::XML.parse(xml).should == hash
+  end
+
+  it "should typecast an integer" do
+    xml = "<tag type='integer'>10</tag>"
+    HTTParty::Parsers::XML.parse(xml)['tag'].should == 10
+  end
+
+  it "should typecast a true boolean" do
+    xml = "<tag type='boolean'>true</tag>"
+    HTTParty::Parsers::XML.parse(xml)['tag'].should be_true
+  end
+
+  it "should typecast a false boolean" do
+    ["false"].each do |w|
+      HTTParty::Parsers::XML.parse("<tag type='boolean'>#{w}</tag>")['tag'].should be_false
+    end
+  end
+
+  it "should typecast a datetime" do
+    xml = "<tag type='datetime'>2007-12-31 10:32</tag>"
+    HTTParty::Parsers::XML.parse(xml)['tag'].should == Time.parse( '2007-12-31 10:32' ).utc
+  end
+
+  it "should typecast a date" do
+    xml = "<tag type='date'>2007-12-31</tag>"
+    HTTParty::Parsers::XML.parse(xml)['tag'].should == Date.parse('2007-12-31')
+  end
+
+  it "should unescape html entities" do
+    values = {
+      "<" => "&lt;",
+      ">" => "&gt;",
+      '"' => "&quot;",
+      "'" => "&apos;",
+      "&" => "&amp;"
+    }
+    values.each do |k,v|
+      xml = "<tag>Some content #{v}</tag>"
+      HTTParty::Parsers::XML.parse(xml)['tag'].should match(Regexp.new(k))
+    end
+  end
+
+  it "should undasherize keys as tags" do
+    xml = "<tag-1>Stuff</tag-1>"
+    HTTParty::Parsers::XML.parse(xml).keys.should include( 'tag_1' )
+  end
+
+  it "should undasherize keys as attributes" do
+    xml = "<tag1 attr-1='1'></tag1>"
+    HTTParty::Parsers::XML.parse(xml)['tag1'].keys.should include( 'attr_1')
+  end
+
+  it "should undasherize keys as tags and attributes" do
+    xml = "<tag-1 attr-1='1'></tag-1>"
+    HTTParty::Parsers::XML.parse(xml).keys.should include( 'tag_1' )
+    HTTParty::Parsers::XML.parse(xml)['tag_1'].keys.should include( 'attr_1')
+  end
+
+  it "should render nested content correctly" do
+    xml = "<root><tag1>Tag1 Content <em><strong>This is strong</strong></em></tag1></root>"
+    HTTParty::Parsers::XML.parse(xml)['root']['tag1'].should == "Tag1 Content <em><strong>This is strong</strong></em>"
+  end
+
+  it "should render nested content with split text nodes correctly" do
+    xml = "<root>Tag1 Content<em>Stuff</em> Hi There</root>"
+    HTTParty::Parsers::XML.parse(xml)['root'].should == "Tag1 Content<em>Stuff</em> Hi There"
+  end
+
+  it "should ignore attributes when a child is a text node" do
+    xml = "<root attr1='1'>Stuff</root>"
+    HTTParty::Parsers::XML.parse(xml).should == { "root" => "Stuff" }
+  end
+
+  it "should ignore attributes when any child is a text node" do
+    xml = "<root attr1='1'>Stuff <em>in italics</em></root>"
+    HTTParty::Parsers::XML.parse(xml).should == { "root" => "Stuff <em>in italics</em>" }
+  end
+
+  it "should correctly transform multiple children" do
+    xml = <<-XML
+    <user gender='m'>
+      <age type='integer'>35</age>
+      <name>Home Simpson</name>
+      <dob type='date'>1988-01-01</dob>
+      <joined-at type='datetime'>2000-04-28 23:01</joined-at>
+      <is-cool type='boolean'>true</is-cool>
+    </user>
+    XML
+
+    hash =  {
+      "user" => {
+        "gender"    => "m",
+        "age"       => 35,
+        "name"      => "Home Simpson",
+        "dob"       => Date.parse('1988-01-01'),
+        "joined_at" => Time.parse("2000-04-28 23:01"),
+        "is_cool"   => true
+      }
+    }
+
+    HTTParty::Parsers::XML.parse(xml).should == hash
+  end
+
+  it "should properly handle nil values (ActiveSupport Compatible)" do
+    topic_xml = <<-EOT
+      <topic>
+        <title></title>
+        <id type="integer"></id>
+        <approved type="boolean"></approved>
+        <written-on type="date"></written-on>
+        <viewed-at type="datetime"></viewed-at>
+        <content type="yaml"></content>
+        <parent-id></parent-id>
+      </topic>
+    EOT
+
+    expected_topic_hash = {
+      'title'      => nil,
+      'id'         => nil,
+      'approved'   => nil,
+      'written_on' => nil,
+      'viewed_at'  => nil,
+      'content'    => nil,
+      'parent_id'  => nil
+    }
+    HTTParty::Parsers::XML.parse(topic_xml)["topic"].should == expected_topic_hash
+  end
+
+  it "should handle a single record from xml (ActiveSupport Compatible)" do
+    topic_xml = <<-EOT
+      <topic>
+        <title>The First Topic</title>
+        <author-name>David</author-name>
+        <id type="integer">1</id>
+        <approved type="boolean"> true </approved>
+        <replies-count type="integer">0</replies-count>
+        <replies-close-in type="integer">2592000000</replies-close-in>
+        <written-on type="date">2003-07-16</written-on>
+        <viewed-at type="datetime">2003-07-16T09:28:00+0000</viewed-at>
+        <content type="yaml">--- \n1: should be an integer\n:message: Have a nice day\narray: \n- should-have-dashes: true\n  should_have_underscores: true\n</content>
+        <author-email-address>david@loudthinking.com</author-email-address>
+        <parent-id></parent-id>
+        <ad-revenue type="decimal">1.5</ad-revenue>
+        <optimum-viewing-angle type="float">135</optimum-viewing-angle>
+        <resident type="symbol">yes</resident>
+      </topic>
+    EOT
+
+    expected_topic_hash = {
+      'title' => "The First Topic",
+      'author_name' => "David",
+      'id' => 1,
+      'approved' => true,
+      'replies_count' => 0,
+      'replies_close_in' => 2592000000,
+      'written_on' => Date.new(2003, 7, 16),
+      'viewed_at' => Time.utc(2003, 7, 16, 9, 28),
+      # Changed this line where the key is :message.  The yaml specifies this as a symbol, and who am I to change what you specify
+      # The line in ActiveSupport is
+      # 'content' => { 'message' => "Have a nice day", 1 => "should be an integer", "array" => [{ "should-have-dashes" => true, "should_have_underscores" => true }] },
+      'content' => { :message => "Have a nice day", 1 => "should be an integer", "array" => [{ "should-have-dashes" => true, "should_have_underscores" => true }] },
+      'author_email_address' => "david@loudthinking.com",
+      'parent_id' => nil,
+      'ad_revenue' => BigDecimal("1.50"),
+      'optimum_viewing_angle' => 135.0,
+      'resident' => :yes
+    }
+
+    HTTParty::Parsers::XML.parse(topic_xml)["topic"].each do |k,v|
+      v.should == expected_topic_hash[k]
+    end
+  end
+
+  it "should handle multiple records (ActiveSupport Compatible)" do
+    topics_xml = <<-EOT
+      <topics type="array">
+        <topic>
+          <title>The First Topic</title>
+          <author-name>David</author-name>
+          <id type="integer">1</id>
+          <approved type="boolean">false</approved>
+          <replies-count type="integer">0</replies-count>
+          <replies-close-in type="integer">2592000000</replies-close-in>
+          <written-on type="date">2003-07-16</written-on>
+          <viewed-at type="datetime">2003-07-16T09:28:00+0000</viewed-at>
+          <content>Have a nice day</content>
+          <author-email-address>david@loudthinking.com</author-email-address>
+          <parent-id nil="true"></parent-id>
+        </topic>
+        <topic>
+          <title>The Second Topic</title>
+          <author-name>Jason</author-name>
+          <id type="integer">1</id>
+          <approved type="boolean">false</approved>
+          <replies-count type="integer">0</replies-count>
+          <replies-close-in type="integer">2592000000</replies-close-in>
+          <written-on type="date">2003-07-16</written-on>
+          <viewed-at type="datetime">2003-07-16T09:28:00+0000</viewed-at>
+          <content>Have a nice day</content>
+          <author-email-address>david@loudthinking.com</author-email-address>
+          <parent-id></parent-id>
+        </topic>
+      </topics>
+    EOT
+
+    expected_topic_hash = {
+      'title' => "The First Topic",
+      'author_name' => "David",
+      'id' => 1,
+      'approved' => false,
+      'replies_count' => 0,
+      'replies_close_in' => 2592000000,
+      'written_on' => Date.new(2003, 7, 16),
+      'viewed_at' => Time.utc(2003, 7, 16, 9, 28),
+      'content' => "Have a nice day",
+      'author_email_address' => "david@loudthinking.com",
+      'parent_id' => nil
+    }
+    # puts HTTParty::Parsers::XML.parse(topics_xml)['topics'].first.inspect
+    HTTParty::Parsers::XML.parse(topics_xml)["topics"].first.each do |k,v|
+      v.should == expected_topic_hash[k]
+    end
+  end
+
+  it "should handle a single record from_xml with attributes other than type (ActiveSupport Compatible)" do
+    topic_xml = <<-EOT
+    <rsp stat="ok">
+      <photos page="1" pages="1" perpage="100" total="16">
+        <photo id="175756086" owner="55569174@N00" secret="0279bf37a1" server="76" title="Colored Pencil PhotoBooth Fun" ispublic="1" isfriend="0" isfamily="0"/>
+      </photos>
+    </rsp>
+    EOT
+
+    expected_topic_hash = {
+      'id' => "175756086",
+      'owner' => "55569174@N00",
+      'secret' => "0279bf37a1",
+      'server' => "76",
+      'title' => "Colored Pencil PhotoBooth Fun",
+      'ispublic' => "1",
+      'isfriend' => "0",
+      'isfamily' => "0",
+    }
+    HTTParty::Parsers::XML.parse(topic_xml)["rsp"]["photos"]["photo"].each do |k,v|
+      v.should == expected_topic_hash[k]
+    end
+  end
+
+  it "should handle an emtpy array (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <posts type="array"></posts>
+      </blog>
+    XML
+    expected_blog_hash = {"blog" => {"posts" => []}}
+    HTTParty::Parsers::XML.parse(blog_xml).should == expected_blog_hash
+  end
+
+  it "should handle empty array with whitespace from xml (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <posts type="array">
+        </posts>
+      </blog>
+    XML
+    expected_blog_hash = {"blog" => {"posts" => []}}
+    HTTParty::Parsers::XML.parse(blog_xml).should == expected_blog_hash
+  end
+
+  it "should handle array with one entry from_xml (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <posts type="array">
+          <post>a post</post>
+        </posts>
+      </blog>
+    XML
+    expected_blog_hash = {"blog" => {"posts" => ["a post"]}}
+    HTTParty::Parsers::XML.parse(blog_xml).should == expected_blog_hash
+  end
+
+  it "should handle array with multiple entries from xml (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <posts type="array">
+          <post>a post</post>
+          <post>another post</post>
+        </posts>
+      </blog>
+    XML
+    expected_blog_hash = {"blog" => {"posts" => ["a post", "another post"]}}
+    HTTParty::Parsers::XML.parse(blog_xml).should == expected_blog_hash
+  end
+
+  it "should handle file types (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <logo type="file" name="logo.png" content_type="image/png">
+        </logo>
+      </blog>
+    XML
+    hash = HTTParty::Parsers::XML.parse(blog_xml)
+    hash.should have_key('blog')
+    hash['blog'].should have_key('logo')
+
+    file = hash['blog']['logo']
+    file.original_filename.should == 'logo.png'
+    file.content_type.should == 'image/png'
+  end
+
+  it "should handle file from xml with defaults (ActiveSupport Compatible)" do
+    blog_xml = <<-XML
+      <blog>
+        <logo type="file">
+        </logo>
+      </blog>
+    XML
+    file = HTTParty::Parsers::XML.parse(blog_xml)['blog']['logo']
+    file.original_filename.should == 'untitled'
+    file.content_type.should == 'application/octet-stream'
+  end
+
+  it "should handle xsd like types from xml (ActiveSupport Compatible)" do
+    bacon_xml = <<-EOT
+    <bacon>
+      <weight type="double">0.5</weight>
+      <price type="decimal">12.50</price>
+      <chunky type="boolean"> 1 </chunky>
+      <expires-at type="dateTime">2007-12-25T12:34:56+0000</expires-at>
+      <notes type="string"></notes>
+      <illustration type="base64Binary">YmFiZS5wbmc=</illustration>
+    </bacon>
+    EOT
+
+    expected_bacon_hash = {
+      'weight' => 0.5,
+      'chunky' => true,
+      'price' => BigDecimal("12.50"),
+      'expires_at' => Time.utc(2007,12,25,12,34,56),
+      'notes' => "",
+      'illustration' => "babe.png"
+    }
+
+    HTTParty::Parsers::XML.parse(bacon_xml)["bacon"].should == expected_bacon_hash
+  end
+
+  it "should let type trickle through when unknown (ActiveSupport Compatible)" do
+    product_xml = <<-EOT
+    <product>
+      <weight type="double">0.5</weight>
+      <image type="ProductImage"><filename>image.gif</filename></image>
+
+    </product>
+    EOT
+
+    expected_product_hash = {
+      'weight' => 0.5,
+      'image' => {'type' => 'ProductImage', 'filename' => 'image.gif' },
+    }
+
+    HTTParty::Parsers::XML.parse(product_xml)["product"].should == expected_product_hash
+  end
+
+  it "should handle unescaping from xml (ActiveResource Compatible)" do
+    xml_string = '<person><bare-string>First &amp; Last Name</bare-string><pre-escaped-string>First &amp;amp; Last Name</pre-escaped-string></person>'
+    expected_hash = {
+      'bare_string'        => 'First & Last Name',
+      'pre_escaped_string' => 'First &amp; Last Name'
+    }
+
+    HTTParty::Parsers::XML.parse(xml_string)['person'].should == expected_hash
+  end
+end

data/spec/httparty/request_spec.rb

@@ -0,0 +1,205 @@
+require File.join(File.dirname(__FILE__), '..', 'spec_helper')
+
+describe HTTParty::Request do
+  def stub_response(body, code = 200)
+    unless @http
+      @http = Net::HTTP.new('localhost', 80)
+      @request.stub!(:http).and_return(@http)
+      @request.stub!(:uri).and_return(URI.parse("http://foo.com/foobar"))
+    end
+
+    response = Net::HTTPResponse::CODE_TO_OBJ[code.to_s].new("1.1", code, body)
+    response.stub!(:body).and_return(body)
+
+    @http.stub!(:request).and_return(response)
+    response
+  end
+
+  before do
+    @request = HTTParty::Request.new(Net::HTTP::Get, 'http://api.foo.com/v1', :format => :xml)
+  end
+  
+  describe "#format" do
+    it "should return the correct parsing format" do
+      @request.format.should == :xml
+    end
+  end
+
+  describe 'http' do
+    it "should use ssl for port 443" do
+      request = HTTParty::Request.new(Net::HTTP::Get, 'https://api.foo.com/v1:443')
+      request.send(:http).use_ssl?.should == true
+    end
+    
+    it 'should not use ssl for port 80' do
+      request = HTTParty::Request.new(Net::HTTP::Get, 'http://foobar.com')
+      @request.send(:http).use_ssl?.should == false
+    end
+
+    it "should use basic auth when configured" do
+      @request.options[:basic_auth] = {:username => 'foobar', :password => 'secret'}
+      @request.send(:setup_raw_request)
+      @request.instance_variable_get(:@raw_request)['authorization'].should_not be_nil
+    end
+  end
+  
+  describe '#format_from_mimetype' do
+    it 'should handle text/xml' do
+      ["text/xml", "text/xml; charset=iso8859-1"].each do |ct|
+        @request.send(:format_from_mimetype, ct).should == :xml
+      end
+    end
+
+    it 'should handle application/xml' do
+      ["application/xml", "application/xml; charset=iso8859-1"].each do |ct|
+        @request.send(:format_from_mimetype, ct).should == :xml
+      end
+    end
+
+    it 'should handle text/json' do
+      ["text/json", "text/json; charset=iso8859-1"].each do |ct|
+        @request.send(:format_from_mimetype, ct).should == :json
+      end
+    end
+
+    it 'should handle application/json' do
+      ["application/json", "application/json; charset=iso8859-1"].each do |ct|
+        @request.send(:format_from_mimetype, ct).should == :json
+      end
+    end
+
+    it 'should handle text/javascript' do
+      ["text/javascript", "text/javascript; charset=iso8859-1"].each do |ct|
+        @request.send(:format_from_mimetype, ct).should == :json
+      end
+    end
+
+    it 'should handle application/javascript' do
+      ["application/javascript", "application/javascript; charset=iso8859-1"].each do |ct|
+        @request.send(:format_from_mimetype, ct).should == :json
+      end
+    end
+  end
+
+  describe 'parsing responses' do
+    it 'should handle xml automatically' do
+      xml = %q[<books><book><id>1234</id><name>Foo Bar!</name></book></books>]
+      @request.options[:format] = :xml
+      @request.send(:parse_response, xml).should == {'books' => {'book' => {'id' => '1234', 'name' => 'Foo Bar!'}}}
+    end
+    
+    it 'should handle json automatically' do
+      json = %q[{"books": {"book": {"name": "Foo Bar!", "id": "1234"}}}]
+      @request.options[:format] = :json
+      @request.send(:parse_response, json).should == {'books' => {'book' => {'id' => '1234', 'name' => 'Foo Bar!'}}}
+    end
+
+    it 'should handle yaml automatically' do
+      yaml = "books: \n  book: \n    name: Foo Bar!\n    id: \"1234\"\n"
+      @request.options[:format] = :yaml
+      @request.send(:parse_response, yaml).should == {'books' => {'book' => {'id' => '1234', 'name' => 'Foo Bar!'}}}
+    end
+
+    it "should include any HTTP headers in the returned response" do
+      @request.options[:format] = :html
+      response = stub_response "Content"
+      response.initialize_http_header("key" => "value")
+
+      @request.perform.headers.should == { "key" => ["value"] }
+    end
+    
+    describe 'with non-200 responses' do
+
+      it 'should return a valid object for 4xx response' do
+        stub_response '<foo><bar>yes</bar></foo>', 401
+        resp = @request.perform
+        resp.code.should == 401
+        resp.body.should == "<foo><bar>yes</bar></foo>"
+        resp['foo']['bar'].should == "yes"
+      end
+
+      it 'should return a valid object for 5xx response' do
+        stub_response '<foo><bar>error</bar></foo>', 500
+        resp = @request.perform
+        resp.code.should == 500
+        resp.body.should == "<foo><bar>error</bar></foo>"
+        resp['foo']['bar'].should == "error"
+      end
+
+    end
+  end
+
+  describe "with empty responses" do
+    after do
+      @request.options[:format] = :xml
+      @request.perform.should be_nil
+    end
+    it "should not attempt to parse empty responses" do
+      stub_response "", 204
+    end
+    it "should not attempt to parse nil responses" do
+      stub_response nil, 204
+    end
+    it "should not attempt to parse blank responses" do
+      stub_response " ", 201
+    end
+  end
+  
+  it "should not fail for missing mime type" do
+    stub_response "Content for you"
+    @request.options[:format] = :html
+    @request.perform.should == 'Content for you'
+  end
+
+  describe "a request that redirects" do
+    before(:each) do
+      @redirect = stub_response("", 302)
+      @redirect['location'] = '/foo'
+
+      @ok = stub_response('<hash><foo>bar</foo></hash>', 200)
+    end
+
+    describe "once" do
+      before(:each) do
+        @http.stub!(:request).and_return(@redirect, @ok)
+      end
+
+      it "should be handled by GET transparently" do
+        @request.perform.should == {"hash" => {"foo" => "bar"}}
+      end
+
+      it "should be handled by POST transparently" do
+        @request.http_method = Net::HTTP::Post
+        @request.perform.should == {"hash" => {"foo" => "bar"}}
+      end
+
+      it "should be handled by DELETE transparently" do
+        @request.http_method = Net::HTTP::Delete
+        @request.perform.should == {"hash" => {"foo" => "bar"}}
+      end
+
+      it "should be handled by PUT transparently" do
+        @request.http_method = Net::HTTP::Put
+        @request.perform.should == {"hash" => {"foo" => "bar"}}
+      end
+    end
+
+    describe "infinitely" do
+      before(:each) do
+        @http.stub!(:request).and_return(@redirect)
+      end
+
+      it "should raise an exception" do
+        lambda { @request.perform }.should raise_error(HTTParty::RedirectionTooDeep)
+      end
+    end
+  end
+end
+
+describe HTTParty::Request, "with POST http method" do
+  it "should raise argument error if query is not a hash" do
+    lambda {
+      HTTParty::Request.new(Net::HTTP::Post, 'http://api.foo.com/v1', :format => :xml, :query => 'astring').perform
+    }.should raise_error(ArgumentError)
+  end
+end