diff --git a/ChangeLog b/ChangeLog
index 6dc025be7f..30c999032a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Feb 18 13:53:01 2012  Tanaka Akira  <akr@fsij.org>
+
+	* test/dbm/test_dbm.rb (test_dbmfile_suffix): DBM::VERSION should
+	  be Berkeley DB if foo.db is created by DBM.open.
+
 Sat Feb 18 13:40:37 2012  Tanaka Akira  <akr@fsij.org>
 
 	* test/dbm/test_dbm.rb (test_dbmfile_suffix): test dbm file suffix.
diff --git a/test/dbm/test_dbm.rb b/test/dbm/test_dbm.rb
index 582b0d7eaf..1483a604dc 100644
--- a/test/dbm/test_dbm.rb
+++ b/test/dbm/test_dbm.rb
@@ -109,6 +109,9 @@ if defined? DBM
       when /\bQDBM\b/
         assert_equal(["#{prefix}.dir", "#{prefix}.pag"], files)
       end
+      if files == ["#{prefix}.db"]
+        assert_match(/\bBerkeley DB\b/, DBM::VERSION)
+      end
     end
 
     def test_s_new_has_no_block