require 'test_helper'

describe Triad, '#<<' do
  let(:triad){ Triad.new }

  it 'shovels 3 item arrays' do
    assert triad << [:test, 'Test', Object.new]
  end

  it 'rejects arrays with more than 3 items' do
    error = assert_raises(Triad::InvalidAddition){
      triad << [:test, 'Test', Object.new, 'Other']
    }
    assert_match /array length must be 3/, error.message
  end

  it 'rejects arrays with fewer than 3 items' do
    assert_raises(Triad::InvalidAddition){
      triad << [:test, 'Test']
    }
  end

  it 'rejects arrays with an existing key' do
    triad << [:test, 'Test', Object.new]
    assert_raises(Triad::InvalidAddition){
      triad << [:test, 'More', Object.new]
    }
  end

  it 'assigns symbol as key' do
    object = Object.new
    triad << ['OutOfOrder', object, :surprise]
    assert_equal [:surprise], triad.keys('OutOfOrder')
    assert_equal [:surprise], triad.keys(object)
  end

  it 'assigns string as descriptor' do
    object = Object.new
    triad << ['OutOfOrder', object, :surprise]
    assert_equal ['OutOfOrder'], triad.descriptors(:surprise)
    assert_equal ['OutOfOrder'], triad.descriptors(object)
  end

  it 'assigns non-symbol, non-string objects as value' do
    object = Object.new
    triad << ['OutOfOrder', object, :surprise]
    assert_equal [object], triad.values(:surprise)
    assert_equal [object], triad.values('OutOfOrder')
  end
end

describe Triad, '#keys' do
  let(:user){ Object.new }
  let(:triad){
    tri = Triad.new
    tri << [:admin, 'Admin', user]
    tri
  }

  it 'returns the key for the given descriptor' do
    assert_equal [:admin], triad.keys('Admin')
  end

  it 'returns the key for the given value' do
    assert_equal [:admin], triad.keys(user)
  end

  it 'returns the keys for the given key' do
    assert_equal [:admin], triad.keys(:admin)
  end

  it 'errors when the given key is not found' do
    assert_raises(Triad::KeyNotPresent){
      triad.keys(:invalid_key)
    }
  end

  it 'errors when the given descriptor is not found' do
    assert_raises(Triad::DescriptorNotPresent){
      triad.keys('Invalid Descriptor')
    }
  end

  it 'errors when the given value is not found' do
    assert_raises(Triad::ValueNotPresent){
      triad.keys(Object.new)
    }
  end
end

describe Triad, '#descriptors' do
  let(:user){ Object.new }
  let(:triad){
    tri = Triad.new
    tri << [:admin, 'Admin', user]
    tri
  }

  it 'returns the descriptor for the given key' do
    assert_equal ['Admin'], triad.descriptors(:admin)
  end

  it 'returns the descriptor for the given value' do
    assert_equal ['Admin'], triad.descriptors(user)
  end

  it 'returns the descriptors for the given descriptor' do
    assert_equal ['Admin'], triad.descriptors('Admin')
  end

  it 'errors when the given descriptor is not found' do
    assert_raises(Triad::DescriptorNotPresent){
      triad.descriptors('Not Present')
    }
  end

  it 'errors when the given key is not found' do
    assert_raises(Triad::KeyNotPresent){
      triad.descriptors(:invalid_key)
    }
  end

  it 'errors when the given value is not found' do
    assert_raises(Triad::ValueNotPresent){
      triad.descriptors(Object.new)
    }
  end
end

describe Triad, '#values' do
  let(:user){ Object.new }
  let(:triad){
    tri = Triad.new
    tri << [:admin, 'Admin', user]
    tri
  }

  it 'returns the value for the given key' do
    assert_equal [user], triad.values(:admin)
  end

  it 'returns the value for the given descriptor' do
    assert_equal [user], triad.values('Admin')
  end

  it 'errors when the given key is not found' do
    assert_raises(Triad::KeyNotPresent){
      triad.values(:invalid_key)
    }
  end

  it 'errors when the given descriptor is not found' do
    assert_raises(Triad::DescriptorNotPresent){
      triad.values('Invalid Descriptor')
    }
  end
end

describe Triad, 'enumeration' do
  let(:user){ Object.new }
  let(:triad){
    tri = Triad.new
    tri << [:admin, 'Admin', user]
    tri
  }
  it 'yields each triad as 3 block variables' do
    result = ''
    triad.each do |key, descriptor, value|
      result << "key: #{key}, descriptor: #{descriptor}, value: #{value.class.name}"
    end
    assert_equal 'key: admin, descriptor: Admin, value: Object', result
  end
end