require_relative '../../spec_helper'
require_relative 'fixtures/classes'
require_relative 'shared/slice'

describe "Array#slice!" do
  it "removes and return the element at index" do
    a = [1, 2, 3, 4]
    a.slice!(10).should == nil
    a.should == [1, 2, 3, 4]
    a.slice!(-10).should == nil
    a.should == [1, 2, 3, 4]
    a.slice!(2).should == 3
    a.should == [1, 2, 4]
    a.slice!(-1).should == 4
    a.should == [1, 2]
    a.slice!(1).should == 2
    a.should == [1]
    a.slice!(-1).should == 1
    a.should == []
    a.slice!(-1).should == nil
    a.should == []
    a.slice!(0).should == nil
    a.should == []
  end

  it "removes and returns length elements beginning at start" do
    a = [1, 2, 3, 4, 5, 6]
    a.slice!(2, 3).should == [3, 4, 5]
    a.should == [1, 2, 6]
    a.slice!(1, 1).should == [2]
    a.should == [1, 6]
    a.slice!(1, 0).should == []
    a.should == [1, 6]
    a.slice!(2, 0).should == []
    a.should == [1, 6]
    a.slice!(0, 4).should == [1, 6]
    a.should == []
    a.slice!(0, 4).should == []
    a.should == []

    a = [1]
    a.slice!(0, 1).should == [1]
    a.should == []
    a[-1].should == nil

    a = [1, 2, 3]
    a.slice!(0,1).should == [1]
    a.should == [2, 3]
  end

  it "returns nil if length is negative" do
    a = [1, 2, 3]
    a.slice!(2, -1).should == nil
    a.should == [1, 2, 3]
  end

  it "properly handles recursive arrays" do
    empty = ArraySpecs.empty_recursive_array
    empty.slice(0).should == empty

    array = ArraySpecs.recursive_array
    array.slice(4).should == array
    array.slice(0..3).should == [1, 'two', 3.0, array]
  end

  it "calls to_int on start and length arguments" do
    obj = mock('2')
    def obj.to_int() 2 end

    a = [1, 2, 3, 4, 5]
    a.slice!(obj).should == 3
    a.should == [1, 2, 4, 5]
    a.slice!(obj, obj).should == [4, 5]
    a.should == [1, 2]
    a.slice!(0, obj).should == [1, 2]
    a.should == []
  end

  it "removes and return elements in range" do
    a = [1, 2, 3, 4, 5, 6, 7, 8]
    a.slice!(1..4).should == [2, 3, 4, 5]
    a.should == [1, 6, 7, 8]
    a.slice!(1...3).should == [6, 7]
    a.should == [1, 8]
    a.slice!(-1..-1).should == [8]
    a.should == [1]
    a.slice!(0...0).should == []
    a.should == [1]
    a.slice!(0..0).should == [1]
    a.should == []

    a = [1,2,3]
    a.slice!(0..3).should == [1,2,3]
    a.should == []
  end

  it "removes and returns elements in end-exclusive ranges" do
    a = [1, 2, 3, 4, 5, 6, 7, 8]
    a.slice!(4...a.length).should == [5, 6, 7, 8]
    a.should == [1, 2, 3, 4]
  end

  it "calls to_int on range arguments" do
    from = mock('from')
    to = mock('to')

    # So we can construct a range out of them...
    def from.<=>(o) 0 end
    def to.<=>(o) 0 end

    def from.to_int() 1 end
    def to.to_int() -2 end

    a = [1, 2, 3, 4, 5]

    a.slice!(from .. to).should == [2, 3, 4]
    a.should == [1, 5]

    -> { a.slice!("a" .. "b")  }.should raise_error(TypeError)
    -> { a.slice!(from .. "b") }.should raise_error(TypeError)
  end

  it "returns last element for consecutive calls at zero index" do
    a = [ 1, 2, 3 ]
    a.slice!(0).should == 1
    a.slice!(0).should == 2
    a.slice!(0).should == 3
    a.should == []
  end

  it "does not expand array with indices out of bounds" do
    a = [1, 2]
    a.slice!(4).should == nil
    a.should == [1, 2]
    a.slice!(4, 0).should == nil
    a.should == [1, 2]
    a.slice!(6, 1).should == nil
    a.should == [1, 2]
    a.slice!(8...8).should == nil
    a.should == [1, 2]
    a.slice!(10..10).should == nil
    a.should == [1, 2]
  end

  it "does not expand array with negative indices out of bounds" do
    a = [1, 2]
    a.slice!(-3, 1).should == nil
    a.should == [1, 2]
    a.slice!(-3..2).should == nil
    a.should == [1, 2]
  end

  it "raises a FrozenError on a frozen array" do
    -> { ArraySpecs.frozen_array.slice!(0, 0) }.should raise_error(FrozenError)
  end

  it "works with endless ranges" do
    a = [1, 2, 3]
    a.slice!(eval("(1..)")).should == [2, 3]
    a.should == [1]

    a = [1, 2, 3]
    a.slice!(eval("(2...)")).should == [3]
    a.should == [1, 2]

    a = [1, 2, 3]
    a.slice!(eval("(-2..)")).should == [2, 3]
    a.should == [1]

    a = [1, 2, 3]
    a.slice!(eval("(-1...)")).should == [3]
    a.should == [1, 2]
  end

  it "works with beginless ranges" do
    a = [0,1,2,3,4]
    a.slice!((..3)).should == [0, 1, 2, 3]
    a.should == [4]

    a = [0,1,2,3,4]
    a.slice!((...-2)).should == [0, 1, 2]
    a.should == [3, 4]
  end

  describe "with a subclass of Array" do
    before :each do
      @array = ArraySpecs::MyArray[1, 2, 3, 4, 5]
    end

    it "returns a Array instance with [n, m]" do
      @array.slice!(0, 2).should be_an_instance_of(Array)
    end

    it "returns a Array instance with [-n, m]" do
      @array.slice!(-3, 2).should be_an_instance_of(Array)
    end

    it "returns a Array instance with [n..m]" do
      @array.slice!(1..3).should be_an_instance_of(Array)
    end

    it "returns a Array instance with [n...m]" do
      @array.slice!(1...3).should be_an_instance_of(Array)
    end

    it "returns a Array instance with [-n..-m]" do
      @array.slice!(-3..-1).should be_an_instance_of(Array)
    end

    it "returns a Array instance with [-n...-m]" do
      @array.slice!(-3...-1).should be_an_instance_of(Array)
    end
  end
end

describe "Array#slice" do
  it_behaves_like :array_slice, :slice
end