RSpec.describe AST::Index do
  it 'evaluates array index' do
    expect(
      AST::Index.new(
        AST::Array.new([
          AST::Number.new(1.0),
          AST::Number.new(2.0),
          AST::Number.new(3.0),
        ]),
        AST::Number.new(2.0)
      ).execute(Environment.new)
    ).to eq(3.0)
  end

  it 'evaluates hash index' do
    expect(
      AST::Index.new(
        AST::Hash.new(
          :a => AST::Number.new(1.0),
          :b => AST::Number.new(2.0),
          :c => AST::Number.new(3.0),
        ),
        AST::Atom.new(:b)
      ).execute(Environment.new)
    ).to eq(2.0)
  end

  it 'raises for out of bounds array index' do
    expect {
      AST::Index.new(
        AST::Array.new([
          AST::Number.new(1.0),
          AST::Number.new(2.0),
          AST::Number.new(3.0),
        ]),
        AST::Number.new(3.0)
      ).execute(Environment.new)
    }.to raise_error("Array index out of bounds")
  end

  it 'raises for non-integral key on array' do
    expect {
      AST::Index.new(
        AST::Array.new([
          AST::Number.new(1.0),
          AST::Number.new(2.0),
          AST::Number.new(3.0),
        ]),
        AST::Number.new(1.5)
      ).execute(Environment.new)
    }.to raise_error("Array index requires integer key")

    expect {
      AST::Index.new(
        AST::Array.new([
          AST::Number.new(1.0),
          AST::Number.new(2.0),
          AST::Number.new(3.0),
        ]),
        AST::String.new("5")
      ).execute(Environment.new)
    }.to raise_error("Array index requires integer key")

    expect {
      AST::Index.new(
        AST::Array.new([
          AST::Number.new(1.0),
          AST::Number.new(2.0),
          AST::Number.new(3.0),
        ]),
        AST::Atom.new(:atom)
      ).execute(Environment.new)
    }.to raise_error("Array index requires integer key")
  end

  it 'raises for missing hash key' do
    expect {
      AST::Index.new(
        AST::Hash.new({
          :a => AST::Number.new(1.0),
          :b => AST::Number.new(2.0),
          :c => AST::Number.new(3.0),
        }),
        AST::Atom.new(:d)
      ).execute(Environment.new)
    }.to raise_error("Key d does not exist on object")
  end
end