diff --git a/ChangeLog b/ChangeLog
index dd97990699..340ab62f60 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Tue Jan 13 14:16:35 2015  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* test/net/http/test_http.rb: get rid of accessing DNS actually
+	  for some servers returning wrong results.
+	  [ruby-core:67454] [Bug #10721]
+
 Mon Jan 12 23:21:57 2015  NAKAMURA Usaku  <usa@ruby-lang.org>
 
 	* gems/bundled_gems: update test-unit to 3.0.9.
diff --git a/test/net/http/test_http.rb b/test/net/http/test_http.rb
index 4d82fd7d1e..b72aadd54c 100644
--- a/test/net/http/test_http.rb
+++ b/test/net/http/test_http.rb
@@ -189,11 +189,14 @@ class TestNetHTTP < Test::Unit::TestCase
   end
 
   def test_failure_message_includes_failed_domain_and_port
-    begin
-      Net::HTTP.get(URI.parse("http://doesnotexist.bogus"))
-      fail "should have raised"
-    rescue => e
-      assert_includes e.message, "doesnotexist.bogus:80"
+    # hostname to be included in the error message
+    host = Struct.new(:to_s).new("<example>")
+    port = 2119
+    # hack to let TCPSocket.open fail
+    def host.to_str; raise SocketError, "open failure"; end
+    uri = Struct.new(:scheme, :hostname, :port).new("http", host, port)
+    assert_raise_with_message(SocketError, /#{host}:#{port}/) do
+      Net::HTTP.get(uri)
     end
   end