1 files changed, 19 insertions, 0 deletions
diff --git a/test/-ext-/string/test_qsort.rb b/test/-ext-/string/test_qsort.rb
new file mode 100644
index 0000000000..3a58523200
--- /dev/null
+++ b/test/-ext-/string/test_qsort.rb
@@ -0,0 +1,19 @@
+require 'test/unit'
+require "-test-/string/string"
+
+class Test_StringQSort < Test::Unit::TestCase
+  def test_qsort
+    s = Bug::String.new("xxozfxx")
+    s.qsort!
+    assert_equal("foxxxxz", s)
+  end
+
+  def test_qsort_slice
+    s = Bug::String.new("xxofzx1")
+    s.qsort!(nil, nil, 3)
+    assert_equal("fzxxxo1", s)
+    s = Bug::String.new("xxofzx231")
+    s.qsort!(nil, nil, 3)
+    assert_equal("231fzxxxo", s)
+  end
+end