require_relative '../../spec_helper'
require_relative 'fixtures/classes'

EvalSpecs::A.new.c

describe "Kernel#eval" do
  it "is a private method" do
    Kernel.private_instance_methods(false).should.include?(:eval)
  end

  it "evaluates the code within" do
    eval("2 + 3").should == 5
  end

  it "coerces an object to string" do
    eval(EvalSpecs::CoercedObject.new).should == 5
  end

  it "evaluates within the scope of the eval" do
    EvalSpecs::A::B.name.should == "EvalSpecs::A::B"
  end

  it "evaluates such that constants are scoped to the class of the eval" do
    EvalSpecs::A::C.name.should == "EvalSpecs::A::C"
  end

  it "finds a local in an enclosing scope" do
    a = 1
    eval("a").should == 1
  end

  it "updates a local in an enclosing scope" do
    a = 1
    eval("a = 2")
    a.should == 2
  end

  it "updates a local in a surrounding block scope" do
    EvalSpecs.new.f do
      a = 1
      eval("a = 2")
      a.should == 2
    end
  end

  it "updates a local in a scope above a surrounding block scope" do
    a = 1
    EvalSpecs.new.f do
      eval("a = 2")
      a.should == 2
    end
    a.should == 2
  end

  it "updates a local in a scope above when modified in a nested block scope" do
    a = 1
    es = EvalSpecs.new
    eval("es.f { es.f { a = 2 } }")
    a.should == 2
  end

  it "finds locals in a nested eval" do
    eval('test = 10; eval("test")').should == 10
  end

  it "does not share locals across eval scopes" do
    code = fixture __FILE__, "eval_locals.rb"
    ruby_exe(code).chomp.should == "NameError"
  end

  it "doesn't accept a Proc object as a binding" do
    x = 1
    bind = proc {}

    -> { eval("x", bind) }.should.raise(TypeError)
  end

  it "does not make Proc locals visible to evaluated code" do
    bind = proc { inner = 4 }
    -> { eval("inner", bind.binding) }.should.raise(NameError)
  end

  # REWRITE ME: This obscures the real behavior of where locals are stored
  # in eval bindings.
  it "allows a binding to be captured inside an eval" do
    outer_binding = binding
    level1 = eval("binding", outer_binding)
    level2 = eval("binding", level1)

    eval("x = 2", outer_binding)
    eval("y = 3", level1)

    eval("w=1", outer_binding)
    eval("w", outer_binding).should == 1
    eval("w=1", level1).should == 1
    eval("w", level1).should == 1
    eval("w=1", level2).should == 1
    eval("w", level2).should == 1

    eval("x", outer_binding).should == 2
    eval("x=2", level1)
    eval("x", level1).should == 2
    eval("x=2", level2)
    eval("x", level2).should == 2

    eval("y=3", outer_binding)
    eval("y", outer_binding).should == 3
    eval("y=3", level1)
    eval("y", level1).should == 3
    eval("y=3", level2)
    eval("y", level2).should == 3
  end

  it "uses the same scope for local variables when given the same binding" do
    outer_binding = binding

    eval("if false; a = 1; end", outer_binding)
    eval("a", outer_binding).should == nil
  end

  it "allows creating a new class in a binding" do
    bind = proc {}
    eval("class EvalBindingProcA; end; EvalBindingProcA.name", bind.binding).should =~ /EvalBindingProcA$/
  end

  it "allows creating a new class in a binding created by #eval" do
    bind = eval "binding"
    eval("class EvalBindingA; end; EvalBindingA.name", bind).should =~ /EvalBindingA$/
  end

  it "includes file and line information in syntax error" do
    expected = 'speccing.rb'
    -> {
      eval('if true', TOPLEVEL_BINDING, expected)
    }.should.raise(SyntaxError) { |e|
      e.message.should =~ /#{expected}:1:.+/
    }
  end

  it "evaluates string with given filename and negative linenumber" do
    expected_file = 'speccing.rb'
    -> {
      eval('if true', TOPLEVEL_BINDING, expected_file, -100)
    }.should.raise(SyntaxError) { |e|
      e.message.should =~ /#{expected_file}:-100:.+/
    }
  end

  it "sets constants at the toplevel from inside a block" do
    # The class Object bit is needed to workaround some mspec oddness
    class Object
      [1].each { eval "Const = 1"}
      Const.should == 1
      remove_const :Const
    end
  end

  context "parameter forwarding" do
    it "allows anonymous rest parameter forwarding" do
      object = Object.new
      def object.foo(a, b, c)
        [a, b, c]
      end
      def object.bar(*)
        eval "foo(*)"
      end

      object.bar(1, 2, 3).should == [1, 2, 3]
    end

    it "allows anonymous keyword parameters forwarding" do
      object = Object.new
      def object.foo(a:, b:, c:)
        [a, b, c]
      end
      def object.bar(**)
        eval "foo(**)"
      end

      object.bar(a: 1, b: 2, c: 3).should == [1, 2, 3]
    end

    it "allows anonymous block parameter forwarding" do
      object = Object.new
      def object.foo(&block)
        block.call
      end
      def object.bar(&)
        eval "foo(&)"
      end

      object.bar { :foobar }.should == :foobar
    end

    it "allows ... forwarding" do
      object = Object.new
      def object.foo(a, b:, &block)
        [a, b, block.call]
      end
      def object.bar(...)
        eval "foo(...)"
      end

      object.bar(1, b: 2) { 3 }.should == [1, 2, 3]
    end

    it "allows parameter forwarding to super" do
      m = Module.new do
        def foo(a, b:, &block)
          [a, b, block.call]
        end
      end

      c = Class.new do
        include m

        def foo(a, b:, &block)
          eval "super"
        end
      end

      object = c.new
      object.foo(1, b: 2) { 3 }.should == [1, 2, 3]
    end
  end

  it "uses (eval at __FILE__:__LINE__) if none is provided" do
    eval("__FILE__").should == "(eval at #{__FILE__}:#{__LINE__})"
    eval("__FILE__", binding).should == "(eval at #{__FILE__}:#{__LINE__})"
    eval("__FILE__", binding, "success").should == "success"
    eval("eval '__FILE__', binding").should == "(eval at (eval at #{__FILE__}:#{__LINE__}):1)"
    eval("eval '__FILE__', binding", binding).should == "(eval at (eval at #{__FILE__}:#{__LINE__}):1)"
    eval("eval '__FILE__', binding", binding, 'success').should == "(eval at success:1)"
    eval("eval '__FILE__', binding, 'success'", binding).should == 'success'
  end

  it 'uses (eval at __FILE__:__LINE__) for __FILE__ and 1 for __LINE__ with a binding argument' do
    eval("[__FILE__, __LINE__]", binding).should == ["(eval at #{__FILE__}:#{__LINE__})", 1]
  end
  # Found via Rubinius bug github:#149
  it "does not alter the value of __FILE__ in the binding" do
    first_time =  EvalSpecs.call_eval
    second_time = EvalSpecs.call_eval

    # This bug is seen by calling the method twice and comparing the values
    # of __FILE__ each time. If the bug is present, calling eval will set the
    # value of __FILE__ to the eval's "filename" argument.

    second_time.should_not == "(eval)"
    first_time.should == second_time
  end

  it "can be aliased" do
    alias aliased_eval eval
    x = 2
    aliased_eval('x += 40')
    x.should == 42
  end

  # See http://jira.codehaus.org/browse/JRUBY-5163
  it "uses the receiver as self inside the eval" do
    eval("self").should.equal?(self)
  end

  it "does not pass the block to the method being eval'ed" do
    -> {
      eval('KernelSpecs::EvalTest.call_yield') { "content" }
    }.should.raise(LocalJumpError)
  end

  it "returns from the scope calling #eval when evaluating 'return'" do
    -> { eval("return :eval") }.call.should == :eval
  end

  it "returns from the method calling #eval when evaluating 'return'" do
    def eval_return(n)
      eval("return n*2")
    end
    -> { eval_return(3) }.call.should == 6
  end

  it "returns from the method calling #eval when evaluating 'return' in BEGIN" do
    def eval_return(n)
      eval("BEGIN {return n*3}")
    end
    -> { eval_return(4) }.call.should == 12
  end

  it "unwinds through a Proc-style closure and returns from a lambda-style closure in the closure chain" do
    code = fixture __FILE__, "eval_return_with_lambda.rb"
    ruby_exe(code).chomp.should == "a,b,c,eval,f"
  end

  it "raises a LocalJumpError if there is no lambda-style closure in the chain" do
    code = fixture __FILE__, "eval_return_without_lambda.rb"
    ruby_exe(code).chomp.should == "a,b,c,e,LocalJumpError,f"
  end

  it "can be called with Method#call" do
    method(:eval).call("2 * 3").should == 6
  end

  it "has the correct default definee when called through Method#call" do
    class EvalSpecs
      method(:eval).call("def eval_spec_method_call; end")
      EvalSpecs.should.method_defined?(:eval_spec_method_call, false)
    end
  end

  it "makes flip-flop operator work correctly" do
    ScratchPad.record []

    eval "10.times { |i| ScratchPad << i if (i == 4)...(i == 4) }"
    ScratchPad.recorded.should == [4, 5, 6, 7, 8, 9]

    ScratchPad.clear
  end

  it "returns nil if given an empty string" do
    eval("").should == nil
  end

  context "with shebang" do
    it "ignores shebang with ruby interpreter" do
      pid = eval(<<~CODE.b)
        #!/usr/bin/env ruby
        Process.pid
      CODE

      pid.should == Process.pid
    end

    it "ignores shebang with non-ruby interpreter" do
      pid = eval(<<~CODE.b)
        #!/usr/bin/env puma
        Process.pid
      CODE

      pid.should == Process.pid
    end
  end

  # See language/magic_comment_spec.rb for more magic comments specs
  describe "with a magic encoding comment" do
    it "uses the magic comment encoding for the encoding of literal strings" do
      code = "# encoding: UTF-8\n'é'.encoding".b
      code.encoding.should == Encoding::BINARY
      eval(code).should == Encoding::UTF_8
    end

    it "uses the magic comment encoding for parsing constants" do
      code = <<CODE.b
# encoding: UTF-8
class EvalSpecs
  Vπ = 3.14
end
CODE
      code.encoding.should == Encoding::BINARY
      eval(code)
      EvalSpecs.constants(false).should.include?(:"Vπ")
      EvalSpecs::Vπ.should == 3.14
    ensure
      EvalSpecs.send(:remove_const, :Vπ)
    end

    it "allows an emacs-style magic comment encoding" do
      code = <<CODE.b
# -*- encoding: UTF-8 -*-
class EvalSpecs
Vπemacs = 3.14
end
CODE
      code.encoding.should == Encoding::BINARY
      eval(code)
      EvalSpecs.constants(false).should.include?(:"Vπemacs")
      EvalSpecs::Vπemacs.should == 3.14
    ensure
      EvalSpecs.send(:remove_const, :Vπemacs)
    end

    it "allows spaces before the magic encoding comment" do
      code = <<CODE.b
\t  \t  # encoding: UTF-8
class EvalSpecs
  Vπspaces = 3.14
end
CODE
      code.encoding.should == Encoding::BINARY
      eval(code)
      EvalSpecs.constants(false).should.include?(:"Vπspaces")
      EvalSpecs::Vπspaces.should == 3.14
    ensure
      EvalSpecs.send(:remove_const, :Vπspaces)
    end

    it "allows a shebang line before the magic encoding comment" do
      code = <<CODE.b
#!/usr/bin/env ruby
# encoding: UTF-8
class EvalSpecs
  Vπshebang = 3.14
end
CODE
      code.encoding.should == Encoding::BINARY
      eval(code)
      EvalSpecs.constants(false).should.include?(:"Vπshebang")
      EvalSpecs::Vπshebang.should == 3.14
    ensure
      EvalSpecs.send(:remove_const, :Vπshebang)
    end

    it "allows a shebang line and some spaces before the magic encoding comment" do
      code = <<CODE.b
#!/usr/bin/env ruby
  # encoding: UTF-8
class EvalSpecs
  Vπshebang_spaces = 3.14
end
CODE
      code.encoding.should == Encoding::BINARY
      eval(code)
      EvalSpecs.constants(false).should.include?(:"Vπshebang_spaces")
      EvalSpecs::Vπshebang_spaces.should == 3.14
    ensure
      EvalSpecs.send(:remove_const, :Vπshebang_spaces)
    end

    it "allows a magic encoding comment and a subsequent frozen_string_literal magic comment" do
      frozen_string_default = "test".frozen?

      code = <<CODE.b
# encoding: UTF-8
# frozen_string_literal: #{!frozen_string_default}
class EvalSpecs
  Vπstring = "frozen"
end
CODE
      code.encoding.should == Encoding::BINARY
      eval(code)
      EvalSpecs.constants(false).should.include?(:"Vπstring")
      EvalSpecs::Vπstring.should == "frozen"
      EvalSpecs::Vπstring.encoding.should == Encoding::UTF_8
      EvalSpecs::Vπstring.frozen?.should == !frozen_string_default
    ensure
      EvalSpecs.send(:remove_const, :Vπstring)
    end

    it "allows a magic encoding comment and a frozen_string_literal magic comment on the same line in emacs style" do
      code = <<CODE.b
# -*- encoding: UTF-8; frozen_string_literal: true -*-
class EvalSpecs
Vπsame_line = "frozen"
end
CODE
      code.encoding.should == Encoding::BINARY
      eval(code)
      EvalSpecs.constants(false).should.include?(:"Vπsame_line")
      EvalSpecs::Vπsame_line.should == "frozen"
      EvalSpecs::Vπsame_line.encoding.should == Encoding::UTF_8
      EvalSpecs::Vπsame_line.frozen?.should == true
    ensure
      EvalSpecs.send(:remove_const, :Vπsame_line)
    end

    it "ignores the magic encoding comment if it is after a frozen_string_literal magic comment" do
      frozen_string_default = "test".frozen?
      code = <<CODE.b
# frozen_string_literal: #{!frozen_string_default}
# encoding: UTF-8
class EvalSpecs
  Vπfrozen_first = "frozen"
end
CODE
      code.encoding.should == Encoding::BINARY
      eval(code)
      EvalSpecs.constants(false).should_not.include?(:"Vπfrozen_first")
      binary_constant = "Vπfrozen_first".b.to_sym
      EvalSpecs.constants(false).should.include?(binary_constant)
      value = EvalSpecs.const_get(binary_constant)
      value.should == "frozen"
      value.encoding.should == Encoding::BINARY
      value.frozen?.should == !frozen_string_default
    ensure
      EvalSpecs.send(:remove_const, binary_constant)
    end

    it "ignores the frozen_string_literal magic comment if it appears after a token and warns if $VERBOSE is true" do
      frozen_string_default = "test".frozen?
      code = <<CODE
some_token_before_magic_comment = :anything
# frozen_string_literal: #{!frozen_string_default}
class EvalSpecs
  Vπstring_not_frozen = "not frozen"
end
CODE
      -> { eval(code) }.should complain(/warning: [`']frozen_string_literal' is ignored after any tokens/, verbose: true)
      EvalSpecs::Vπstring_not_frozen.frozen?.should == frozen_string_default
      EvalSpecs.send :remove_const, :Vπstring_not_frozen

      -> { eval(code) }.should_not complain(verbose: false)
      EvalSpecs::Vπstring_not_frozen.frozen?.should == frozen_string_default
      EvalSpecs.send :remove_const, :Vπstring_not_frozen
    end
  end

  describe 'with refinements' do
    it "activates refinements from the eval scope" do
      refinery = Module.new do
        refine EvalSpecs::A do
          def foo
            "bar"
          end
        end
      end

      result = nil

      Module.new do
        using refinery

        result = eval "EvalSpecs::A.new.foo"
      end

      result.should == "bar"
    end

    it "activates refinements from the binding" do
      refinery = Module.new do
        refine EvalSpecs::A do
          def foo
            "bar"
          end
        end
      end

      b = nil
      m = Module.new do
        using refinery
        b = binding
      end

      result = eval "EvalSpecs::A.new.foo", b

      result.should == "bar"
    end
  end
end

describe "Kernel.eval" do
  it "is a public method" do
    Kernel.public_methods(false).should.include?(:Array)
  end

  it "uses the receiver as self inside the eval" do
    Kernel.eval("self").should.equal?(Kernel)
  end
end
