From 1b51476c1be1005ff5dde27f481d442ba51afe00 Mon Sep 17 00:00:00 2001
From: knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 5 Jul 2012 03:31:36 +0000
Subject: [PATCH] * test/net/http/test_httpresponses.rb: Add a test file for  
 Net::HTTPResponses and put a test case for the previous bug.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@36317 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                           |  5 +++++
 test/net/http/test_httpresponses.rb | 24 ++++++++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 test/net/http/test_httpresponses.rb

diff --git a/ChangeLog b/ChangeLog
index 5233f41eb6..81d4eaa5c9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu Jul  5 12:28:11 2012  Akinori MUSHA  <knu@iDaemons.org>
+
+	* test/net/http/test_httpresponses.rb: Add a test file for
+	  Net::HTTPResponses and put a test case for the previous bug.
+
 Thu Jul  5 06:33:52 2012  Mark Dodwell <mark@mkdynamic.co.uk>
 
 	* lib/net/http/responses.rb: Fix 4xx classes to inherit correctly
diff --git a/test/net/http/test_httpresponses.rb b/test/net/http/test_httpresponses.rb
new file mode 100644
index 0000000000..bf7fbeef11
--- /dev/null
+++ b/test/net/http/test_httpresponses.rb
@@ -0,0 +1,24 @@
+require 'net/http'
+require 'test/unit'
+
+class HTTPResponsesTest < Test::Unit::TestCase
+  def test_status_code_classes
+    Net::HTTPResponse::CODE_TO_OBJ.each_pair { |code, klass|
+      case code
+      when /\A1\d\d\z/
+        group = Net::HTTPInformation
+      when /\A2\d\d\z/
+        group = Net::HTTPSuccess
+      when /\A3\d\d\z/
+        group = Net::HTTPRedirection
+      when /\A4\d\d\z/
+        group = Net::HTTPClientError
+      when /\A5\d\d\z/
+        group = Net::HTTPServerError
+      else
+        flunk "Unknown HTTP status code: #{code} => #{klass.name}"
+      end
+      assert(klass < group, "#{klass.name} (#{code}) must inherit from #{group.name}")
+    }
+  end
+end