1 files changed, 0 insertions, 394 deletions
diff --git a/trunk/test/ruby/test_eval.rb b/trunk/test/ruby/test_eval.rb
deleted file mode 100644
index 23d34a5f81..0000000000
--- a/trunk/test/ruby/test_eval.rb
+++ /dev/null
@@ -1,394 +0,0 @@
-require 'test/unit'
-
-class TestEval < Test::Unit::TestCase
-
-  @ivar = 12
-  @@cvar = 13
-  $gvar__eval = 14
-  Const = 15
-
-  def test_eval_basic
-    assert_equal nil,   eval("nil")
-    assert_equal true,  eval("true")
-    assert_equal false, eval("false")
-    assert_equal self,  eval("self")
-    assert_equal 1,     eval("1")
-    assert_equal :sym,  eval(":sym")
-
-    assert_equal 11,    eval("11")
-    @ivar = 12
-    assert_equal 12,    eval("@ivar")
-    assert_equal 13,    eval("@@cvar")
-    assert_equal 14,    eval("$gvar__eval")
-    assert_equal 15,    eval("Const")
-
-    assert_equal 16,    eval("7 + 9")
-    assert_equal 17,    eval("17.to_i")
-    assert_equal "18",  eval(%q("18"))
-    assert_equal "19",  eval(%q("1#{9}"))
-
-    1.times {
-      assert_equal 12,  eval("@ivar")
-      assert_equal 13,  eval("@@cvar")
-      assert_equal 14,  eval("$gvar__eval")
-      assert_equal 15,  eval("Const")
-    }
-  end
-
-  def test_eval_binding_basic
-    assert_equal nil,   eval("nil", binding())
-    assert_equal true,  eval("true", binding())
-    assert_equal false, eval("false", binding())
-    assert_equal self,  eval("self", binding())
-    assert_equal 1,     eval("1", binding())
-    assert_equal :sym,  eval(":sym", binding())
-
-    assert_equal 11,    eval("11", binding())
-    @ivar = 12
-    assert_equal 12,    eval("@ivar", binding())
-    assert_equal 13,    eval("@@cvar", binding())
-    assert_equal 14,    eval("$gvar__eval", binding())
-    assert_equal 15,    eval("Const", binding())
-
-    assert_equal 16,    eval("7 + 9", binding())
-    assert_equal 17,    eval("17.to_i", binding())
-    assert_equal "18",  eval(%q("18"), binding())
-    assert_equal "19",  eval(%q("1#{9}"), binding())
-
-    1.times {
-      assert_equal 12,  eval("@ivar")
-      assert_equal 13,  eval("@@cvar")
-      assert_equal 14,  eval("$gvar__eval")
-      assert_equal 15,  eval("Const")
-    }
-  end
-
-  def test_module_eval_string_basic
-    c = self.class
-    assert_equal nil,   c.module_eval("nil")
-    assert_equal true,  c.module_eval("true")
-    assert_equal false, c.module_eval("false")
-    assert_equal c,     c.module_eval("self")
-    assert_equal :sym,  c.module_eval(":sym")
-    assert_equal 11,    c.module_eval("11")
-    @ivar = 12
-    assert_equal 12,    c.module_eval("@ivar")
-    assert_equal 13,    c.module_eval("@@cvar")
-    assert_equal 14,    c.module_eval("$gvar__eval")
-    assert_equal 15,    c.module_eval("Const")
-    assert_equal 16,    c.module_eval("7 + 9")
-    assert_equal 17,    c.module_eval("17.to_i")
-    assert_equal "18",  c.module_eval(%q("18"))
-    assert_equal "19",  c.module_eval(%q("1#{9}"))
-
-    @ivar = 12
-    1.times {
-      assert_equal 12,  c.module_eval("@ivar")
-      assert_equal 13,  c.module_eval("@@cvar")
-      assert_equal 14,  c.module_eval("$gvar__eval")
-      assert_equal 15,  c.module_eval("Const")
-    }
-  end
-
-  def test_module_eval_block_basic
-    c = self.class
-    assert_equal nil,   c.module_eval { nil }
-    assert_equal true,  c.module_eval { true }
-    assert_equal false, c.module_eval { false }
-    assert_equal c,     c.module_eval { self }
-    assert_equal :sym,  c.module_eval { :sym }
-    assert_equal 11,    c.module_eval { 11 }
-    @ivar = 12
-    assert_equal 12,    c.module_eval { @ivar }
-    assert_equal 13,    c.module_eval { @@cvar }
-    assert_equal 14,    c.module_eval { $gvar__eval }
-    assert_equal 15,    c.module_eval { Const }
-    assert_equal 16,    c.module_eval { 7 + 9 }
-    assert_equal 17,    c.module_eval { "17".to_i }
-    assert_equal "18",  c.module_eval { "18" }
-    assert_equal "19",  c.module_eval { "1#{9}" }
-
-    @ivar = 12
-    1.times {
-      assert_equal 12,  c.module_eval { @ivar }
-      assert_equal 13,  c.module_eval { @@cvar }
-      assert_equal 14,  c.module_eval { $gvar__eval }
-      assert_equal 15,  c.module_eval { Const }
-    }
-  end
-
-  def forall_TYPE(mid)
-    objects = [Object.new, [], nil, true, false, 77, :sym] # TODO: check
-    objects.each do |obj|
-      obj.instance_variable_set :@ivar, 12
-      send mid, obj
-    end
-  end
-
-  def test_instance_eval_string_basic
-    forall_TYPE :instance_eval_string_basic_i
-  end
-
-  def instance_eval_string_basic_i(o)
-    assert_equal nil,   o.instance_eval("nil")
-    assert_equal true,  o.instance_eval("true")
-    assert_equal false, o.instance_eval("false")
-    assert_equal o,     o.instance_eval("self")
-    assert_equal 1,     o.instance_eval("1")
-    assert_equal :sym,  o.instance_eval(":sym")
-
-    assert_equal 11,    o.instance_eval("11")
-    assert_equal 12,    o.instance_eval("@ivar")
-    assert_equal 13,    o.instance_eval("@@cvar")
-    assert_equal 14,    o.instance_eval("$gvar__eval")
-    assert_equal 15,    o.instance_eval("Const")
-    assert_equal 16,    o.instance_eval("7 + 9")
-    assert_equal 17,    o.instance_eval("17.to_i")
-    assert_equal "18",  o.instance_eval(%q("18"))
-    assert_equal "19",  o.instance_eval(%q("1#{9}"))
-
-    1.times {
-      assert_equal 12,  o.instance_eval("@ivar")
-      assert_equal 13,  o.instance_eval("@@cvar")
-      assert_equal 14,  o.instance_eval("$gvar__eval")
-      assert_equal 15,  o.instance_eval("Const")
-    }
-  end
-
-  def test_instance_eval_block_basic
-    forall_TYPE :instance_eval_block_basic_i
-  end
-
-  def instance_eval_block_basic_i(o)
-    assert_equal nil,   o.instance_eval { nil }
-    assert_equal true,  o.instance_eval { true }
-    assert_equal false, o.instance_eval { false }
-    assert_equal o,     o.instance_eval { self }
-    assert_equal 1,     o.instance_eval { 1 }
-    assert_equal :sym,  o.instance_eval { :sym }
-
-    assert_equal 11,    o.instance_eval { 11 }
-    assert_equal 12,    o.instance_eval { @ivar }
-    assert_equal 13,    o.instance_eval { @@cvar }
-    assert_equal 14,    o.instance_eval { $gvar__eval }
-    assert_equal 15,    o.instance_eval { Const }
-    assert_equal 16,    o.instance_eval { 7 + 9 }
-    assert_equal 17,    o.instance_eval { 17.to_i }
-    assert_equal "18",  o.instance_eval { "18" }
-    assert_equal "19",  o.instance_eval { "1#{9}" }
-
-    1.times {
-      assert_equal 12,  o.instance_eval { @ivar }
-      assert_equal 13,  o.instance_eval { @@cvar }
-      assert_equal 14,  o.instance_eval { $gvar__eval }
-      assert_equal 15,  o.instance_eval { Const }
-    }
-  end
-
-  def test_instance_eval_cvar
-    [Object.new, [], 7, :sym, true, false, nil].each do |obj|
-      assert_equal(13, obj.instance_eval("@@cvar"))
-      assert_equal(13, obj.instance_eval{@@cvar})
-      # assert_raise(NameError){obj.instance_eval("@@cvar")}
-      # assert_raise(NameError){obj.instance_eval{@@cvar}}
-    end
-  end
-
-  # 
-  # From ruby/test/ruby/test_eval.rb
-  #
-
-  def test_ev
-    local1 = "local1"
-    lambda {
-      local2 = "local2"
-      return binding
-    }.call
-  end
-
-  def test_eval_orig
-    assert_nil(eval(""))
-    $bad=false
-    eval 'while false; $bad = true; print "foo\n" end'
-    assert(!$bad)
-
-    assert(eval('TRUE'))
-    assert(eval('true'))
-    assert(!eval('NIL'))
-    assert(!eval('nil'))
-    assert(!eval('FALSE'))
-    assert(!eval('false'))
-
-    $foo = 'assert(true)'
-    begin
-      eval $foo
-    rescue
-      assert(false)
-    end
-
-    assert_equal('assert(true)', eval("$foo"))
-    assert_equal(true, eval("true"))
-    i = 5
-    assert(eval("i == 5"))
-    assert_equal(5, eval("i"))
-    assert(eval("defined? i"))
-
-    $x = test_ev
-    assert_equal("local1", eval("local1", $x)) # normal local var
-    assert_equal("local2", eval("local2", $x)) # nested local var
-    $bad = true
-    begin
-      p eval("local1")
-    rescue NameError		# must raise error
-      $bad = false
-    end
-    assert(!$bad)
-
-    # !! use class_eval to avoid nested definition
-    self.class.class_eval %q(
-      module EvTest
-	EVTEST1 = 25
-	evtest2 = 125
-	$x = binding
-      end
-    )
-    assert_equal(25, eval("EVTEST1", $x))	# constant in module
-    assert_equal(125, eval("evtest2", $x))	# local var in module
-    $bad = true
-    begin
-      eval("EVTEST1")
-    rescue NameError		# must raise error
-      $bad = false
-    end
-    assert(!$bad)
-
-    if false
-      # Ruby 2.0 doesn't see Proc as Binding
-      x = proc{}
-      eval "i4 = 1", x
-      assert_equal(1, eval("i4", x))
-      x = proc{proc{}}.call
-      eval "i4 = 22", x
-      assert_equal(22, eval("i4", x))
-      $x = []
-      x = proc{proc{}}.call
-      eval "(0..9).each{|i5| $x[i5] = proc{i5*2}}", x
-      assert_equal(8, $x[4].call)
-    end
-
-    x = binding
-    eval "i = 1", x
-    assert_equal(1, eval("i", x))
-    x = proc{binding}.call
-    eval "i = 22", x
-    assert_equal(22, eval("i", x))
-    $x = []
-    x = proc{binding}.call
-    eval "(0..9).each{|i5| $x[i5] = proc{i5*2}}", x
-    assert_equal(8, $x[4].call)
-    x = proc{binding}.call
-    eval "for i6 in 1..1; j6=i6; end", x
-    assert(eval("defined? i6", x))
-    assert(eval("defined? j6", x))
-
-    proc {
-      p = binding
-      eval "foo11 = 1", p
-      foo22 = 5
-      proc{foo11=22}.call
-      proc{foo22=55}.call
-      # assert_equal(eval("foo11"), eval("foo11", p))
-      # assert_equal(1, eval("foo11"))
-      assert_equal(eval("foo22"), eval("foo22", p))
-      assert_equal(55, eval("foo22"))
-    }.call
-
-    if false
-      # Ruby 2.0 doesn't see Proc as Binding
-      p1 = proc{i7 = 0; proc{i7}}.call
-      assert_equal(0, p1.call)
-      eval "i7=5", p1
-      assert_equal(5, p1.call)
-      assert(!defined?(i7))
-    end
-
-    if false
-      # Ruby 2.0 doesn't see Proc as Binding
-      p1 = proc{i7 = 0; proc{i7}}.call
-      i7 = nil
-      assert_equal(0, p1.call)
-      eval "i7=1", p1
-      assert_equal(1, p1.call)
-      eval "i7=5", p1
-      assert_equal(5, p1.call)
-      assert_nil(i7)
-    end
-  end
-
-  def test_nil_instance_eval_cvar
-    def nil.test_binding
-      binding
-    end
-    bb = eval("nil.instance_eval \"binding\"", nil.test_binding)
-    assert_raise(NameError, "[ruby-dev:24103]") { eval("@@a", bb) }
-    class << nil
-      remove_method :test_binding
-    end
-  end
-
-  def test_fixnum_instance_eval_cvar
-    assert_raise(NameError, "[ruby-dev:24213]") { 1.instance_eval "@@a" }
-  end
-
-  def test_cvar_scope_with_instance_eval
-    # TODO: check
-    Fixnum.class_eval "@@test_cvar_scope_with_instance_eval = 1" # depends on [ruby-dev:24229]
-    @@test_cvar_scope_with_instance_eval = 4
-    assert_equal(4, 1.instance_eval("@@test_cvar_scope_with_instance_eval"), "[ruby-dev:24223]")
-    Fixnum.__send__(:remove_class_variable, :@@test_cvar_scope_with_instance_eval)
-  end
-
-  def test_eval_and_define_method
-    assert_nothing_raised("[ruby-dev:24228]") {
-      def temporally_method_for_test_eval_and_define_method(&block)
-        lambda {
-          class << Object.new; self end.send(:define_method, :zzz, &block)
-        }
-      end
-      v = eval("temporally_method_for_test_eval_and_define_method {}")
-      {}[0] = {}
-      v.call
-    }
-  end
-
-  def test_define_method_block
-    cc = Class.new do
-      define_method(:foo) {|&block|
-        block.call if block
-      }
-    end
-
-    c = cc.new
-    x = "ng"
-    c.foo() {x = "ok"}
-    assert_equal("ok", x)
-  end
-
-  def test_eval_using_integer_as_binding
-    assert_raise(TypeError) { eval("", 1) }
-  end
-
-  def test_eval_raise
-    assert_raise(RuntimeError) { eval("raise ''") }
-  end
-
-  def test_eval_using_untainted_binding_under_safe4
-    assert_raise(SecurityError) do
-      Thread.new do
-        b = binding
-        $SAFE = 4
-        eval("", b)
-      end.join
-    end
-  end
-end