require 'guerrilla_patch/kernel.rb'

describe Kernel do

  it 'wraps commnon nil object idiom' do
    test_object = nil
    when_present(test_object) { |t| t }.should == ''
    test_object = 'I am here'
    when_present(test_object) { |t| t }.should == 'I am here'
  end

  it 'takes the block result and concatenates' do
    test_object = 'I am here'
    when_present(test_object) { |t| t * 2 }.should == 'I am hereI am here'
  end

  it 'behaves graceafully when no block is given' do
    test_object = "miki"
    when_present(test_object).should == test_object
  end

  it 'concatenates result to one string' do
    consists_of do |r|
      r.add "AAAAAA"
      r.add "BBBBBB"
    end.should == "AAAAAABBBBBB"
  end

  it 'concatenates result to one string taking care of nil objects' do
    test_object = nil
    consists_of do |r|
      r.always "AAAAAA"
      r.always "BBBBBB"
      r.when_present(test_object) { |to| to << "BABY"}
    end.should == "AAAAAABBBBBB"

    test_object = 'YEAH'
    consists_of do |r|
      r.add "AAAAAA"
      r.add "BBBBBB"
      r.when_present(test_object) { |to| to << "BABY"}
    end.should == "AAAAAABBBBBBYEAHBABY"
  end

  it 'concatenates result when item is true' do
    test_object = nil
    consists_of do |r|
      r.add "AAAAAA"
      r.when(test_object) { "BBBBBB" }
    end.should == "AAAAAA"

    test_object = true
    consists_of do |r|
      r.add "AAAAAA"
      r.when(test_object) { "BBBBBB" }
    end.should == "AAAAAABBBBBB"

    test_object = false
    consists_of do |r|
      r.add "AAAAAA"
      r.when(test_object) { "BBBBBB" }
    end.should == "AAAAAA"

  end

  it 'can allocate a number evenly' do
    100.allocate_evenly(2).should == [50, 50]
    100.allocate_evenly(3).should == [33.33, 33.33, 33.34]
  end

  it 'can allocate a number proportionaly' do
    100.allocate([1.to_d/2, 1.to_d/2]).should == [50, 50]
    100.allocate([30,30,30]).should == [33.33, 33.33, 33.34]
  end

  it 'can divide number' do
    50.divide({ '1A' => 50, '1B' => 30, '1C' => 20 }).should == { '1A' => 25, '1B' => 15, '1C' => 10 }
    50.to_d.divide({ '1A' => 50, '1B' => 30, '1C' => 20 }).should == { '1A' => 25, '1B' => 15, '1C' => 10 }
    50.to_f.divide({ '1A' => 50, '1B' => 30, '1C' => 20 }).should == { '1A' => 25, '1B' => 15, '1C' => 10 }
    33.11.divide({ '1A' => 50, '1B' => 50}).should == {"1A"=> 16.56, "1B"=> 16.55 }
  end

  class TestAssign
    attr_reader :index, :amount

    def initialize(index, amount)
      auto_assign binding
    end

  end

  it 'assigns by default' do
    subject = TestAssign.new(1, 100.0)
    subject.index.should == 1
    subject.amount.should == 100.0
  end

end

describe Array do
  it 'should know how to sum basic array' do
    [1,2,3].sum_me.should == 6
  end

  it 'should handle the zero elements case' do
    [].sum_me.should == 0
  end

  it 'can sum by name' do
    apple = stub(:price => 100)
    orange = stub(:price => 200)
    [apple, orange].sum_me(:price).should == 300
  end

end