Add support for application/xml as Content-Type

GitHub: fix GH-24

Reported by Reiermeyer. Thanks!!!

Author: kou

lib/xmlrpc/client.rb

@@ -512,11 +512,17 @@ def do_rpc(request, async=false)
       # assume text/xml on instances where Content-Type header is not set
       ct_expected = resp["Content-Type"] || 'text/xml'
       ct = parse_content_type(ct_expected).first
-      if ct != "text/xml"
+      case ct
+      when "text/xml", "application/xml"
+        # OK
+      else
+        message =
+          "Wrong content-type " +
+          "(received '#{ct}' but expected 'text/xml' or 'application/xml')"
         if ct == "text/html"
-          raise "Wrong content-type (received '#{ct}' but expected 'text/xml'): \n#{data}"
+          raise "#{message}:\n#{data}"
         else
-          raise "Wrong content-type (received '#{ct}' but expected 'text/xml')"
+          raise message
         end
       end
 

test/test_client.rb

@@ -254,6 +254,28 @@ def test_async_request
       assert_equal expected, resp
     end
 
+    def test_application_xml_content_type
+      fh = read 'blog.xml'
+
+      responses = {
+        '/foo' => [ Fake::Response.new(fh, [['Content-Type', 'application/xml']]) ]
+      }
+
+      client = fake_client(responses).new2 'http://example.org/foo'
+
+      resp = client.call('wp.getUsersBlogs', 'tlo', 'omg')
+
+      expected = [{
+        "isAdmin"  => true,
+        "url"      => "http://tenderlovemaking.com/",
+        "blogid"   => "1",
+        "blogName" => "Tender Lovemaking",
+        "xmlrpc"   => "http://tenderlovemaking.com/xmlrpc.php"
+      }]
+
+      assert_equal expected, resp
+    end
+
     # make a request without content-type header
     def test_bad_content_type
       fh = read 'blog.xml'