From bde0ac9539e599d6cf3bebf84ca0ff6700638ff6 Mon Sep 17 00:00:00 2001
From: akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 7 May 2004 09:39:12 +0000
Subject: add freeze test for dbm and gdbm.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@6264 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog              |  2 +-
 MANIFEST               |  1 +
 test/dbm/test_dbm.rb   | 31 +++++++++++++++++++++++++++++++
 test/gdbm/test_gdbm.rb |  7 +++++++
 4 files changed, 40 insertions(+), 1 deletion(-)
 create mode 100644 test/dbm/test_dbm.rb

diff --git a/ChangeLog b/ChangeLog
index 4648a0ebe..1463e25a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2204,7 +2204,7 @@ Sun Feb  1 05:30:06 2004  Tanaka Akira  <akr@m17n.org>
 
 	* lib/open-uri.rb (URI::Generic#find_proxy): warn HTTP_PROXY.
 	 raise an errror on non-http proxy URI.
-	 (OpenURI::Buffer#<<): make a tempfile binmode.  [ruby-talk:90792]
+	 (OpenURI::Buffer#<<): make a tempfile binmode.  [ruby-talk:90793]
 
 Sun Feb  1 00:57:41 2004  Kouhei Sutou  <kou@cozmixng.org>
 
diff --git a/MANIFEST b/MANIFEST
index 244f91767..910e0d2e6 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -774,6 +774,7 @@ sample/wsdl/googleSearch/wsdlDriver.rb
 sample/wsdl/raa/raa.wsdl
 sample/wsdl/raa/soap4r.rb
 test/csv/test_csv.rb
+test/dbm/test_dbm.rb
 test/digest/test_digest.rb
 test/drb/drbtest.rb
 test/drb/test_acl.rb
diff --git a/test/dbm/test_dbm.rb b/test/dbm/test_dbm.rb
new file mode 100644
index 000000000..f9198903a
--- /dev/null
+++ b/test/dbm/test_dbm.rb
@@ -0,0 +1,31 @@
+require 'test/unit/testsuite'
+require 'test/unit/testcase'
+
+begin
+  require 'dbm'
+rescue LoadError
+end
+
+if defined? DBM
+  require 'tmpdir'
+  require 'fileutils'
+
+  class TestDBM < Test::Unit::TestCase
+    TMPROOT = "#{Dir.tmpdir}/ruby-gdbm.#{$$}"
+
+    def setup
+      Dir.mkdir TMPROOT
+    end
+
+    def teardown
+      FileUtils.rm_rf TMPROOT if File.directory?(TMPROOT)
+    end
+
+    def test_freeze
+      DBM.open("#{TMPROOT}/a.dbm") {|d|
+        d.freeze
+        assert_raises(TypeError) { d["k"] = "v" }
+      }
+    end
+  end
+end
diff --git a/test/gdbm/test_gdbm.rb b/test/gdbm/test_gdbm.rb
index a4bddfe07..ca0110cd9 100644
--- a/test/gdbm/test_gdbm.rb
+++ b/test/gdbm/test_gdbm.rb
@@ -29,5 +29,12 @@ if defined? GDBM
       }
       assert(v)
     end
+
+    def test_freeze
+      GDBM.open("#{TMPROOT}/a.dbm") {|d|
+        d.freeze
+        assert_raises(TypeError) { d["k"] = "v" }
+      }
+    end
   end
 end
-- 
cgit