require 'yarvtest/yarvtest'

class TestEval < YarvTestBase
  def test_eval
    ae %q{
      eval('1')
    }
    ae %q{
      eval('a=1; a')
    }
    ae %q{
      a = 1
      eval('a')
    }
  end

  def test_eval_with_send
    ae %q{
      __send! :eval, %{
        :ok
      }
    }
    ae %q{
      1.__send! :instance_eval, %{
        :ok
      }
    }
  end

  def test_module_eval
    ae %q{
      Const = :top
      class C
        Const = :C
      end
      C.module_eval{
        Const
      }
    }
    ae %q{
      Const = :top
      class C
        Const = :C
      end
      C.module_eval %{
        Const
      }
    } if false # TODO: Ruby 1.9 error

    ae %q{
      Const = :top
      class C
        Const = :C
      end
      C.class_eval %{
        def m
          Const
        end
      }
      C.new.m
    }
    ae %q{
      Const = :top
      class C
        Const = :C
      end
      C.class_eval{
        def m
          Const
        end
      }
      C.new.m
    }
  end

  def test_instance_eval
    ae %q{
      1.instance_eval{
        self
      }
    }
    ae %q{
      'foo'.instance_eval{
        self
      }
    }
    ae %q{
      class Fixnum
        Const = 1
      end
      1.instance_eval %{
        Const
      }
    }
  end
  
  def test_nest_eval
    ae %q{
      Const = :top
      class C
        Const = :C
      end
      $nest = false
      $ans = []
      def m
        $ans << Const
        C.module_eval %{
          $ans << Const
          Boo = false unless defined? Boo
          unless $nest
            $nest = true
            m
          end
        }
      end
      m
      $ans
    }
    ae %q{
      $nested = false
      $ans = []
      $pr = proc{
        $ans << self
        unless $nested
          $nested = true
          $pr.call
        end
      }
      class C
        def initialize &b
          10.instance_eval(&b)
        end
      end
      C.new(&$pr)
      $ans
    }
  end

  def test_binding
    ae %q{
      def m
        a = :ok
        $b = binding
      end
      m
      eval('a', $b)
    }
    ae %q{
      def m
        a = :ok
        $b = binding
      end
      m
      eval('b = :ok2', $b)
      eval('[a, b]', $b)
    }
    ae %q{
      $ans = []
      def m
        $b = binding
      end
      m
      $ans << eval(%q{
        $ans << eval(%q{
          a
        }, $b)
        a = 1
      }, $b)
      $ans
    }
    ae %q{
      Const = :top
      class C
        Const = :C
        def m
          binding
        end
      end
      eval('Const', C.new.m)
    }
    ae %q{
      Const = :top
      a = 1
      class C
        Const = :C
        def m
          eval('Const', TOPLEVEL_BINDING)
        end
      end
      C.new.m
    }
    ae %q{
      class C
        $b = binding
      end
      eval %q{
        def m
          :ok
        end
      }, $b
      p C.new.m
    }
    ae %q{
      b = proc{
        a = :ok
        binding
      }.call
      a = :ng
      eval("a", b)
    }
  end
end