From d899d2d6beee0391805e795333b0e93ec89c5cd2 Mon Sep 17 00:00:00 2001
From: "(no author)" <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 7 May 2004 09:39:13 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'ruby_1_8'.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6265 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/dbm/test_dbm.rb | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 test/dbm/test_dbm.rb

(limited to 'test/dbm')

diff --git a/test/dbm/test_dbm.rb b/test/dbm/test_dbm.rb
new file mode 100644
index 0000000000..f9198903a3
--- /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
-- 
cgit v1.2.3