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

describe "Module#module_eval" do
  # TODO: This should probably be replaced with a "should behave like" that uses
  # the many scoping/binding specs from kernel/eval_spec, since most of those
  # behaviors are the same for instance_eval. See also module_eval/class_eval.

  it "evaluates a given string in the context of self" do
    ModuleSpecs.module_eval("self").should == ModuleSpecs
    ModuleSpecs.module_eval("1 + 1").should == 2
  end

  it "does not add defined methods to other classes" do
    FalseClass.module_eval do
      def foo
        'foo'
      end
    end
    -> {42.foo}.should.raise(NoMethodError)
  end

  it "resolves constants in the caller scope" do
    ModuleSpecs::ClassEvalTest.get_constant_from_scope.should == ModuleSpecs::Lookup
  end

  it "resolves constants in the caller scope ignoring send" do
    ModuleSpecs::ClassEvalTest.get_constant_from_scope_with_send(:module_eval).should == ModuleSpecs::Lookup
  end

  it "resolves constants in the receiver's scope" do
    ModuleSpecs.module_eval("Lookup").should == ModuleSpecs::Lookup
    ModuleSpecs.module_eval("Lookup::LOOKIE").should == ModuleSpecs::Lookup::LOOKIE
  end

  it "defines constants in the receiver's scope" do
    ModuleSpecs.module_eval("module NewEvaluatedModule;end")
    ModuleSpecs.const_defined?(:NewEvaluatedModule, false).should == true
  end

  it "evaluates a given block in the context of self" do
    ModuleSpecs.module_eval { self }.should == ModuleSpecs
    ModuleSpecs.module_eval { 1 + 1 }.should == 2
  end

  it "passes the module as the first argument of the block" do
    given = nil
    ModuleSpecs.module_eval do |block_parameter|
      given = block_parameter
    end
    given.should.equal? ModuleSpecs
  end

  it "uses the optional filename and lineno parameters for error messages" do
    ModuleSpecs.module_eval("[__FILE__, __LINE__]", "test", 102).should == ["test", 102]
  end

  it "uses the caller location as default filename" do
    ModuleSpecs.module_eval("[__FILE__, __LINE__]").should == ["(eval at #{__FILE__}:#{__LINE__})", 1]
  end

  it "converts a non-string filename to a string using to_str" do
    (file = mock(__FILE__)).should_receive(:to_str).and_return(__FILE__)
    ModuleSpecs.module_eval("1+1", file)

    (file = mock(__FILE__)).should_receive(:to_str).and_return(__FILE__)
    ModuleSpecs.module_eval("1+1", file, 15)
  end

  it "raises a TypeError when the given filename can't be converted to string using to_str" do
    (file = mock('123')).should_receive(:to_str).and_return(123)
    -> { ModuleSpecs.module_eval("1+1", file) }.should raise_consistent_error(TypeError, /can't convert MockObject into String/)
  end

  it "converts non string eval-string to string using to_str" do
    (o = mock('1 + 1')).should_receive(:to_str).and_return("1 + 1")
    ModuleSpecs.module_eval(o).should == 2

    (o = mock('1 + 1')).should_receive(:to_str).and_return("1 + 1")
    ModuleSpecs.module_eval(o, "file.rb").should == 2

    (o = mock('1 + 1')).should_receive(:to_str).and_return("1 + 1")
    ModuleSpecs.module_eval(o, "file.rb", 15).should == 2
  end

  it "raises a TypeError when the given eval-string can't be converted to string using to_str" do
    o = mock('x')
    -> { ModuleSpecs.module_eval(o) }.should.raise(TypeError, "no implicit conversion of MockObject into String")

    (o = mock('123')).should_receive(:to_str).and_return(123)
    -> { ModuleSpecs.module_eval(o) }.should raise_consistent_error(TypeError, /can't convert MockObject into String/)
  end

  it "raises an ArgumentError when no arguments and no block are given" do
    -> { ModuleSpecs.module_eval }.should.raise(ArgumentError, "wrong number of arguments (given 0, expected 1..3)")
  end

  it "raises an ArgumentError when more than 3 arguments are given" do
    -> {
      ModuleSpecs.module_eval("1 + 1", "some file", 0, "bogus")
    }.should.raise(ArgumentError, "wrong number of arguments (given 4, expected 1..3)")
  end

  it "raises an ArgumentError when a block and normal arguments are given" do
    -> {
      ModuleSpecs.module_eval("1 + 1") { 1 + 1 }
    }.should.raise(ArgumentError, "wrong number of arguments (given 1, expected 0)")
  end

  # This case was found because Rubinius was caching the compiled
  # version of the string and not duping the methods within the
  # eval, causing the method addition to change the static scope
  # of the shared CompiledCode.
  it "adds methods respecting the lexical constant scope" do
    code = "def self.attribute; C; end"

    a = Class.new do
      self::C = "A"
    end

    b = Class.new do
      self::C = "B"
    end

    a.module_eval(code)
    b.module_eval(code)

    a.attribute.should == "A"
    b.attribute.should == "B"
  end

  it "activates refinements from the eval scope" do
    refinery = Module.new do
      refine ModuleSpecs::NamedClass do
        def foo
          "bar"
        end
      end
    end

    mid = :module_eval
    result = nil

    Class.new do
      using refinery

      result = send(mid, "ModuleSpecs::NamedClass.new.foo")
    end

    result.should == "bar"
  end

  it "activates refinements from the eval scope with block" do
    refinery = Module.new do
      refine ModuleSpecs::NamedClass do
        def foo
          "bar"
        end
      end
    end

    mid = :module_eval
    result = nil

    Class.new do
      using refinery

      result = send(mid) do
        ModuleSpecs::NamedClass.new.foo
      end
    end

    result.should == "bar"
  end
end
