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

describe "Enumerable#tally" do
  before :each do
    ScratchPad.record []
  end

  it "returns a hash with counts according to the value" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    enum.tally.should == { 'foo' => 2, 'bar' => 1, 'baz' => 1}
  end

  it "returns a hash without default" do
    hash = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz').tally
    hash.default_proc.should be_nil
    hash.default.should be_nil
  end

  it "returns an empty hash for empty enumerables" do
    EnumerableSpecs::Empty.new.tally.should == {}
  end

  it "counts values as gathered array when yielded with multiple arguments" do
    EnumerableSpecs::YieldsMixed2.new.tally.should == EnumerableSpecs::YieldsMixed2.gathered_yields.group_by(&:itself).transform_values(&:size)
  end

  it "does not call given block" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    enum.tally { |v| ScratchPad << v }
    ScratchPad.recorded.should == []
  end
end

describe "Enumerable#tally with a hash" do
  before :each do
    ScratchPad.record []
  end

  it "returns a hash with counts according to the value" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    enum.tally({ 'foo' => 1 }).should == { 'foo' => 3, 'bar' => 1, 'baz' => 1}
  end

  it "returns the given hash" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    hash = { 'foo' => 1 }
    enum.tally(hash).should equal(hash)
  end

  it "calls #to_hash to convert argument to Hash implicitly if passed not a Hash" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    object = Object.new
    def object.to_hash; { 'foo' => 1 }; end
    enum.tally(object).should == { 'foo' => 3, 'bar' => 1, 'baz' => 1}
  end

  it "raises a FrozenError and does not update the given hash when the hash is frozen" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    hash = { 'foo' => 1 }.freeze
    -> { enum.tally(hash) }.should raise_error(FrozenError)
    hash.should == { 'foo' => 1 }
  end

  it "raises a FrozenError even if enumerable is empty" do
    enum = EnumerableSpecs::Numerous.new()
    hash = { 'foo' => 1 }.freeze
    -> { enum.tally(hash) }.should raise_error(FrozenError)
  end

  it "does not call given block" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    enum.tally({ 'foo' => 1 }) { |v| ScratchPad << v }
    ScratchPad.recorded.should == []
  end

  it "ignores the default value" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    enum.tally(Hash.new(100)).should == { 'foo' => 2, 'bar' => 1, 'baz' => 1}
  end

  it "ignores the default proc" do
    enum = EnumerableSpecs::Numerous.new('foo', 'bar', 'foo', 'baz')
    enum.tally(Hash.new {100}).should == { 'foo' => 2, 'bar' => 1, 'baz' => 1}
  end

  it "needs the values counting each elements to be an integer" do
    enum = EnumerableSpecs::Numerous.new('foo')
    -> { enum.tally({ 'foo' => 'bar' }) }.should raise_error(TypeError)
  end
end
