require 'spec_helper'

# these all need error messages
describe 'RSpec matchers', 'have_been_told_to(...).with { |block| }' do

  let(:dir)      { Surrogate.endow(Class.new) { define(:chdir) { nil }}}
  let(:dir_path) { '/some/dir/path' }

  it 'fails if no submitted_blocks were found' do
    dir.should_not have_been_told_to(:chdir).with(dir_path) { |block|
      block.before { raise 'this should not be executed' }
    }

    dir.chdir dir_path

    dir.should_not have_been_told_to(:chdir).with(dir_path) { |block|
      block.before { raise 'this should not be executed' }
    }

    dir.chdir(dir_path) { }
    dir.should have_been_told_to(:chdir).with(dir_path) { }
  end

  it "fails if the arguments don't match, even if the block does" do
    dir.chdir(dir_path) { }
    dir.should_not have_been_told_to(:chdir).with(dir_path.reverse) { }
    dir.should     have_been_told_to(:chdir).with(dir_path) { }
  end

  it 'yields a test_block that can make assertions' do
    dir.chdir(dir_path) { }
    block_yielded = nil
    dir.should have_been_told_to(:chdir).with(dir_path) { |block|
      block_yielded = block
    }
    block_yielded.should be
  end

  describe 'the .returns assertion' do
    it "passes if the submitted_block does return the value" do
      dir.chdir(dir_path) { 1 }
      dir.should_not have_been_told_to(:chdir).with(dir_path) { |block| block.returns 2 }
      dir.should     have_been_told_to(:chdir).with(dir_path) { |block| block.returns 1 }
    end

    specify "if given a block, it passes the return value to it for making assertions" do
      dir.chdir(dir_path) { 1 }

      dir.should_not have_been_told_to(:chdir).with(dir_path) { |block|
        block.returns { |result| result.should == 2 }
      }

      dir.should have_been_told_to(:chdir).with(dir_path) { |block|
        block.returns { |result| result.should == 1 }
      }
    end
  end


  let(:file)      { Surrogate.endow(Class.new) { define(:write) { true }}}
  let(:file_name) { 'some_file_name.ext' }
  let(:file_body) { 'some file body' }

  describe 'the .before and .after hooks' do
    specify "take blocks which it will evaluate before/after invoking the submitted_block" do
      dir.chdir(dir_path) { file.write file_name, file_body }
      dir.should have_been_told_to(:chdir).with(dir_path) { |block|
        block.before { file.should_not have_been_told_to :write }
        block.after  { file.should     have_been_told_to :write }
      }
    end

    example "multiple invocations wrong number of times" do
      dir.chdir(dir_path) { file.write file_name, file_body }
      dir.chdir(dir_path) { file.write file_name, file_body }
      dir.should_not have_been_told_to(:chdir).times(1).with(dir_path) { |block|
        block.before { file.should_not have_been_told_to :write }
        block.after  { file.should     have_been_told_to :write }
      }
    end

    example "multiple invocations correct number of times" do
      dir.chdir(dir_path) { file.write file_name, file_body }
      dir.chdir(dir_path) { file.write file_name, file_body }
      dir.should have_been_told_to(:chdir).times(2).with(dir_path) { |block|
        block.before { file.should_not have_been_told_to :write }
        block.after  { file.should     have_been_told_to :write }
      }
    end
  end

  describe 'the .arity assertion' do
    it "takes a number corresponding to the arity of the block" do
      klass = Surrogate.endow(Class.new)
      klass.define(:meth) { self }
      klass.new.meth { |a|     }.should have_been_told_to(:meth).with { |b| b.arity  1 }
      klass.new.meth { |a,b|   }.should have_been_told_to(:meth).with { |b| b.arity  2 }
      klass.new.meth { |a,b,c| }.should have_been_told_to(:meth).with { |b| b.arity  3 }
      klass.new.meth { |*a|    }.should have_been_told_to(:meth).with { |b| b.arity -1 }
      expect {
        klass.new.meth { |a|   }.should have_been_told_to(:meth).with { |b| b.arity 123 }
      }.to raise_error RSpec::Expectations::ExpectationNotMetError
    end
  end

  describe ".call_with" do
    it 'allows the user to provide arguments' do
      klass = Surrogate.endow(Class.new).define(:add) { self }
      instance = klass.new
      instance.add { |a, b, &c| a + b + c.call }
      instance.should have_been_told_to(:add).with { |block|
        block.call_with(1, 2) { 3 }
        block.returns 6
      }

      instance = klass.new
      i = 10
      instance.add { |n, &b| i += n + b.call }
      instance.should have_been_told_to(:add).with { |block|
        block.call_with(3) { 4 }
        block.after { i.should == 17 }
      }
    end
  end

  describe ".raising is like RSpec's raise_error interface" do
    it { pending 'IDK what I want this to be like yet' }
  end
end