From 8965ed167dbca9471ccc41e9bebe7e2fb1fa9fcb Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 5 Aug 2010 07:42:47 +0000
Subject: * string.c (rb_str_set_len): should fail to modify shared string.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@28865 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/-ext-/string/test_set_len.rb | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 test/-ext-/string/test_set_len.rb

(limited to 'test/-ext-/string/test_set_len.rb')

diff --git a/test/-ext-/string/test_set_len.rb b/test/-ext-/string/test_set_len.rb
new file mode 100644
index 0000000000..e257cacb83
--- /dev/null
+++ b/test/-ext-/string/test_set_len.rb
@@ -0,0 +1,25 @@
+require 'test/unit'
+require "-test-/string/string"
+
+class Test_StrSetLen < Test::Unit::TestCase
+  def setup
+    @s0 = [*"a".."z"].join("").freeze
+    @s1 = Bug::String.new(@s0)
+  end
+
+  def teardown
+    orig = [*"a".."z"].join("")
+    assert_equal(orig, @s0)
+  end
+
+  def test_non_shared
+    @s1.modify!
+    assert_equal("abc", @s1.set_len(3))
+  end
+
+  def test_shared
+    assert_raise(RuntimeError) {
+      assert_equal("abc", @s1.set_len(3))
+    }
+  end
+end
-- 
cgit v1.2.3