* bootstraptest/test_knownbug.rb, test_block.rb:

  move fixed bug.
* bootstraptest/test_m17n.rb: added.



git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@14325 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

4 files changed, 224 insertions, 221 deletions

diff --git a/ChangeLog b/ChangeLog
index becef83fd5..e979107bfd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Wed Dec 19 17:12:59 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* bootstraptest/test_knownbug.rb, test_block.rb: 
+	  move fixed bug.
+
+	* bootstraptest/test_m17n.rb: added.
+
 Wed Dec 19 16:59:55 2007  Koichi Sasada  <ko1@atdot.net>
 
 	* eval.c (errinfo_place): skip if error is Fixnum.  [ruby-dev:32608]
diff --git a/bootstraptest/test_block.rb b/bootstraptest/test_block.rb
index b4334ee44f..97fcdd4bef 100644
--- a/bootstraptest/test_block.rb
+++ b/bootstraptest/test_block.rb
@@ -455,3 +455,20 @@ assert_equal 'ok', %q{
   vs1 == vs2 ? :ok : :ng
 }, '[ruby-dev:32329]'
 
+assert_normal_exit %q{
+  e = [1,2,3].each
+  10000.times {
+    e = [e].each
+  }
+  Thread.new { GC.start }.join
+}, '[ruby-dev:32604]'
+
+
+assert_equal '[nil, []]', %q{
+  def m() yield nil,[] end
+  l = lambda {|*v| v}
+  GC.stress=true
+  r = m(&l)      
+  GC.stress=false
+  r.inspect             
+}, '[ruby-dev:32567]'
diff --git a/bootstraptest/test_knownbug.rb b/bootstraptest/test_knownbug.rb
index c50377ac59..30a83259f0 100644
--- a/bootstraptest/test_knownbug.rb
+++ b/bootstraptest/test_knownbug.rb
@@ -10,10 +10,6 @@ assert_equal '0', %q{
   $?.to_i
 }, '[ruby-dev:32404]'
 
-assert_normal_exit %q{
-  "abcdefghij\xf0".force_encoding("utf-8").reverse.inspect
-}, '[ruby-dev:32448]'
-
 assert_equal 'ok', %q{
   class C
     define_method(:foo) do |arg, &block|
@@ -46,220 +42,3 @@ assert_equal 'ok', %q{
   :ok
 }, '[ruby-dev:32525]'
 
-## encoding
-
-assert_equal 'ok', %q{
-  begin
-    if ("\xa1\xa2\xa1\xa3").force_encoding("euc-jp").split(//) ==
-      ["\xa1\xa2".force_encoding("euc-jp"), "\xa1\xa3".force_encoding("euc-jp")]
-      :ok
-    else
-      :ng
-    end
-  rescue
-    :ng
-  end
-}, '[ruby-dev:32452]'
-
-assert_equal 'ok', %q{
-  begin
-    "\xa1\xa1".force_encoding("euc-jp") + "\xa1".force_encoding("ascii-8bit")
-    :ng
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal 'ok', %q{
-  s1 = "\x81\x41".force_encoding("sjis")
-  s2 = "\x81\x61".force_encoding("sjis")
-  s1.casecmp(s2) == 0 ? :ng : :ok
-}
-
-assert_equal 'EUC-JP', %q{ ("\xc2\xa1 %s".force_encoding("EUC-JP") % "foo").encoding.name }
-assert_equal 'true', %q{ "\xa1\xa2\xa3\xa4".force_encoding("euc-jp")["\xa2\xa3".force_encoding("euc-jp")] == nil }
-assert_equal 'ok', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  begin
-    s["\xb0\xa3"] = "foo"
-    :ng
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal 'EUC-JP', %q{ "\xa3\xb0".force_encoding("EUC-JP").center(10).encoding.name }
-
-assert_equal 'ok', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  begin
-    s.chomp("\xa3\xb4".force_encoding("shift_jis"))
-    :ng
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal 'ok', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  begin
-    s.count("\xa3\xb0".force_encoding("ascii-8bit"))
-    :ng
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal 'ok', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  begin
-    s.delete("\xa3\xb2".force_encoding("ascii-8bit")) 
-    :ng
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal 'ok', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  begin
-    s.each_line("\xa3\xb1".force_encoding("ascii-8bit")) {|l| }    
-    :ng
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal 'true', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  s.gsub(/\xa3\xb1/e, "z") == "\xa3\xb0z\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-}
-
-assert_equal 'false', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  s.include?("\xb0\xa3".force_encoding("euc-jp"))
-}
-
-assert_equal 'ok', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  s.index("\xb3\xa3".force_encoding("euc-jp")) or :ok
-}
-
-assert_equal 'ok', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  s.insert(-1, "a")
-  :ok
-}
-
-assert_finish 1, %q{ "\xa3\xfe".force_encoding("euc-jp").next }
-
-assert_equal 'ok', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  begin
-    s.rindex("\xb1\xa3".force_encoding("ascii-8bit"))
-    :ng
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal 'true', %q{
-  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  s.split("\xa3\xb1".force_encoding("euc-jp")) == [
-    "\xa3\xb0".force_encoding("euc-jp"),
-    "\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")
-  ]
-}, '[ruby-dev:32452]'
-
-assert_normal_exit %q{ // =~ :a }
-
-assert_equal '[nil, []]', %q{
-  def m() yield nil,[] end
-  l = lambda {|*v| v}
-  GC.stress=true
-  r = m(&l)      
-  GC.stress=false
-  r.inspect             
-}, '[ruby-dev:32567]'
-
-assert_normal_exit %q{
-  e = [1,2,3].each
-  10000.times {
-    e = [e].each
-  }
-  Thread.new { GC.start }.join
-}, '[ruby-dev:32604]'
-
-assert_equal 'true', %q{
-  "abc".sub(/b/, "\xa1\xa1".force_encoding("euc-jp")) ==
-  "a\xa1\xa1c".force_encoding("euc-jp")
-}
-
-assert_equal 'ok', %q{
-  begin
-    "%s%s" % ["\xc2\xa1".force_encoding("sjis"), "\xc2\xa1".force_encoding("euc-jp")]
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal '0', %q{
-  "\xa1\xa2".force_encoding("euc-jp").count("z")
-}
-
-assert_equal '1', %q{
-  "\xa1\xa2".force_encoding("euc-jp").delete("z").length
-}
-
-assert_equal 'false', %q{
-  "\xa1\xa2\xa3\xa4".force_encoding("euc-jp").include?("\xa3".force_encoding("euc-jp"))
-}
-
-assert_equal 'ok', %q{
-  "\xa1\xa2\xa3\xa4".force_encoding("euc-jp").index("\xa3".force_encoding("euc-jp")) or :ok
-}
-
-assert_equal 'ok', %q{
-  "\xa1\xa2\xa3\xa4".force_encoding("euc-jp").rindex("\xa3".force_encoding("euc-jp")) or :ok
-}
-
-assert_equal 'false', %q{
-  s1 = "\xa1\xa1".force_encoding("euc-jp")
-  s2 = s1.dup
-  (94*94+94).times { s2.next! }
-  s1 == s2
-}
-
-assert_equal 'ok', %q{
-  "\xa1\xa2a\xa3\xa4".force_encoding("euc-jp").scan(/a/)
-  :ok
-}
-
-assert_equal 'ok', %q{
-  "\xa1\xa2a\xa3\xa4".force_encoding("euc-jp").split(/a/)
-  :ok
-}
-
-assert_equal 'ok', %q{
-  s1 = "\xa1\xa2".force_encoding("euc-jp")
-  s2 = "\xa1\xa2".force_encoding("sjis")
-  begin
-    s1.upto(s2) {|x| break }
-    :ng
-  rescue ArgumentError
-    :ok
-  end
-}
-
-assert_equal 'true', %q{
-  "%s" % "\xa1\xa1".force_encoding("euc-jp") ==
-  "\xa1\xa1".force_encoding("euc-jp")
-}
-
-assert_equal 'a', %q{
-  s = "a".dup.force_encoding("EUC-JP")
-  s.length
-  s[0,2]
-}
-
-
diff --git a/bootstraptest/test_m17n.rb b/bootstraptest/test_m17n.rb
new file mode 100644
index 0000000000..eb7c032bb7
--- /dev/null
+++ b/bootstraptest/test_m17n.rb
@@ -0,0 +1,200 @@
+assert_normal_exit %q{

+  "abcdefghij\xf0".force_encoding("utf-8").reverse.inspect

+}, '[ruby-dev:32448]'

+

+assert_equal 'true', %q{

+  "abc".sub(/b/, "\xa1\xa1".force_encoding("euc-jp")) ==

+  "a\xa1\xa1c".force_encoding("euc-jp")

+}

+

+assert_equal 'ok', %q{

+  begin

+    if ("\xa1\xa2\xa1\xa3").force_encoding("euc-jp").split(//) ==

+      ["\xa1\xa2".force_encoding("euc-jp"), "\xa1\xa3".force_encoding("euc-jp")]

+      :ok

+    else

+      :ng

+    end

+  rescue

+    :ng

+  end

+}, '[ruby-dev:32452]'

+

+assert_equal 'ok', %q{

+  begin

+    "\xa1\xa1".force_encoding("euc-jp") + "\xa1".force_encoding("ascii-8bit")

+    :ng

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal 'ok', %q{

+  begin

+    "%s%s" % ["\xc2\xa1".force_encoding("sjis"), "\xc2\xa1".force_encoding("euc-jp")]

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal '0', %q{

+  "\xa1\xa2".force_encoding("euc-jp").count("z")

+}

+

+assert_equal '1', %q{

+  "\xa1\xa2".force_encoding("euc-jp").delete("z").length

+}

+

+assert_equal 'false', %q{

+  "\xa1\xa2\xa3\xa4".force_encoding("euc-jp").include?("\xa3".force_encoding("euc-jp"))

+}

+

+assert_equal 'ok', %q{

+  "\xa1\xa2\xa3\xa4".force_encoding("euc-jp").index("\xa3".force_encoding("euc-jp")) or :ok

+}

+

+assert_equal 'ok', %q{

+  "\xa1\xa2\xa3\xa4".force_encoding("euc-jp").rindex("\xa3".force_encoding("euc-jp")) or :ok

+}

+

+assert_equal 'false', %q{

+  s1 = "\xa1\xa1".force_encoding("euc-jp")

+  s2 = s1.dup

+  (94*94+94).times { s2.next! }

+  s1 == s2

+}

+

+assert_equal 'ok', %q{

+  "\xa1\xa2a\xa3\xa4".force_encoding("euc-jp").scan(/a/)

+  :ok

+}

+

+assert_equal 'ok', %q{

+  "\xa1\xa2a\xa3\xa4".force_encoding("euc-jp").split(/a/)

+  :ok

+}

+

+assert_equal 'ok', %q{

+  s1 = "\xa1\xa2".force_encoding("euc-jp")

+  s2 = "\xa1\xa2".force_encoding("sjis")

+  begin

+    s1.upto(s2) {|x| break }

+    :ng

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal 'true', %q{

+  "%s" % "\xa1\xa1".force_encoding("euc-jp") ==

+  "\xa1\xa1".force_encoding("euc-jp")

+}

+

+assert_equal 'a', %q{

+  s = "a".dup.force_encoding("EUC-JP")

+  s.length

+  s[0,2]

+}

+

+assert_equal 'ok', %q{

+  s1 = "\x81\x41".force_encoding("sjis")

+  s2 = "\x81\x61".force_encoding("sjis")

+  s1.casecmp(s2) == 0 ? :ng : :ok

+}

+

+assert_equal 'EUC-JP', %q{ ("\xc2\xa1 %s".force_encoding("EUC-JP") % "foo").encoding.name }

+assert_equal 'true', %q{ "\xa1\xa2\xa3\xa4".force_encoding("euc-jp")["\xa2\xa3".force_encoding("euc-jp")] == nil }

+assert_equal 'ok', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  begin

+    s["\xb0\xa3"] = "foo"

+    :ng

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal 'EUC-JP', %q{ "\xa3\xb0".force_encoding("EUC-JP").center(10).encoding.name }

+

+assert_equal 'ok', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  begin

+    s.chomp("\xa3\xb4".force_encoding("shift_jis"))

+    :ng

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal 'ok', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  begin

+    s.count("\xa3\xb0".force_encoding("ascii-8bit"))

+    :ng

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal 'ok', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  begin

+    s.delete("\xa3\xb2".force_encoding("ascii-8bit")) 

+    :ng

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal 'ok', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  begin

+    s.each_line("\xa3\xb1".force_encoding("ascii-8bit")) {|l| }    

+    :ng

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal 'true', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  s.gsub(/\xa3\xb1/e, "z") == "\xa3\xb0z\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+}

+

+assert_equal 'false', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  s.include?("\xb0\xa3".force_encoding("euc-jp"))

+}

+

+assert_equal 'ok', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  s.index("\xb3\xa3".force_encoding("euc-jp")) or :ok

+}

+

+assert_equal 'ok', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  s.insert(-1, "a")

+  :ok

+}

+

+assert_finish 1, %q{ "\xa3\xfe".force_encoding("euc-jp").next }

+

+assert_equal 'ok', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  begin

+    s.rindex("\xb1\xa3".force_encoding("ascii-8bit"))

+    :ng

+  rescue ArgumentError

+    :ok

+  end

+}

+

+assert_equal 'true', %q{

+  s = "\xa3\xb0\xa3\xb1\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  s.split("\xa3\xb1".force_encoding("euc-jp")) == [

+    "\xa3\xb0".force_encoding("euc-jp"),

+    "\xa3\xb2\xa3\xb3\xa3\xb4".force_encoding("euc-jp")

+  ]

+}, '[ruby-dev:32452]'

+

+assert_normal_exit %q{ // =~ :a }