hamster 0.4.3 → 1.0.0

data/spec/lib/hamster/list/reduce_spec.rb

@@ -0,0 +1,54 @@
+require "spec_helper"
+require "hamster/list"
+
+describe Hamster::List do
+  [:reduce, :inject].each do |method|
+    describe "##{method}" do
+      context "on a really big list" do
+        it "doesn't run out of stack" do
+          -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).send(method, &:+) }.should_not raise_error
+        end
+      end
+
+      [
+        [[], 10, 10],
+        [[1], 10, 9],
+        [[1, 2, 3], 10, 4],
+      ].each do |values, initial, expected|
+        context "on #{values.inspect}" do
+          context "with an initial value of #{initial} and a block" do
+            it "returns #{expected.inspect}" do
+              Hamster.list(*values).send(method, initial) { |memo, item| memo - item }.should == expected
+            end
+          end
+        end
+      end
+
+      [
+        [[], nil],
+        [[1], 1],
+        [[1, 2, 3], -4],
+      ].each do |values, expected|
+        context "on #{values.inspect}" do
+          context "with no initial value and a block" do
+            it "returns #{expected.inspect}" do
+              Hamster.list(*values).send(method) { |memo, item| memo - item }.should == expected
+            end
+          end
+        end
+      end
+
+      context "with no block and a symbol argument" do
+        it "uses the symbol as the name of a method to reduce with" do
+          Hamster.list(1, 2, 3).send(method, :+).should == 6
+        end
+      end
+
+      context "with no block and a string argument" do
+        it "uses the string as the name of a method to reduce with" do
+          Hamster.list(1, 2, 3).send(method, '+').should == 6
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/list/reject_spec.rb

@@ -0,0 +1,46 @@
+require "spec_helper"
+require "hamster/list"
+
+describe Hamster::List do
+  [:reject, :delete_if].each do |method|
+    describe "##{method}" do
+      it "is lazy" do
+        -> { Hamster.stream { fail }.send(method) { |item| false } }.should_not raise_error
+      end
+
+      [
+        [[], []],
+        [["A"], ["A"]],
+        [%w[A B C], %w[A B C]],
+        [%w[A b C], %w[A C]],
+        [%w[a b c], []],
+      ].each do |values, expected|
+        context "on #{values.inspect}" do
+          let(:list) { Hamster.list(*values) }
+
+          context "with a block" do
+            it "returns #{expected.inspect}" do
+              list.send(method) { |item| item == item.downcase }.should eql(Hamster.list(*expected))
+            end
+
+            it "is lazy" do
+              count = 0
+              list.send(method) do |item|
+                count += 1
+                false
+              end
+              count.should <= 1
+            end
+          end
+
+          context "without a block" do
+            it "returns an Enumerator" do
+              list.send(method).class.should be(Enumerator)
+              list.send(method).each { |item| item == item.downcase }.should eql(Hamster.list(*expected))
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/list/reverse_spec.rb

@@ -0,0 +1,35 @@
+require "spec_helper"
+require "hamster/list"
+
+describe Hamster::List do
+  describe "#reverse" do
+    context "on a really big list" do
+      it "doesn't run out of stack" do
+        -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).reverse }.should_not raise_error
+      end
+    end
+
+    it "is lazy" do
+      -> { Hamster.stream { fail }.reverse }.should_not raise_error
+    end
+
+    [
+      [[], []],
+      [["A"], ["A"]],
+      [%w[A B C], %w[C B A]],
+    ].each do |values, expected|
+      context "on #{values.inspect}" do
+        let(:list) { Hamster.list(*values) }
+
+        it "preserves the original" do
+          list.reverse { |item| item.downcase }
+          list.should eql(Hamster.list(*values))
+        end
+
+        it "returns #{expected.inspect}" do
+          list.reverse { |item| item.downcase }.should == Hamster.list(*expected)
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/list/rotate_spec.rb

@@ -0,0 +1,37 @@
+require "spec_helper"
+require "hamster/list"
+
+describe Hamster::List do
+  describe "#rotate" do
+    let(:list) { Hamster.list(1,2,3,4,5) }
+
+    context "when passed no argument" do
+      it "returns a new list with the first element moved to the end" do
+        list.rotate.should eql(Hamster.list(2,3,4,5,1))
+      end
+    end
+
+    context "with an integral argument n" do
+      it "returns a new list with the first (n % size) elements moved to the end" do
+        list.rotate(2).should eql(Hamster.list(3,4,5,1,2))
+        list.rotate(3).should eql(Hamster.list(4,5,1,2,3))
+        list.rotate(4).should eql(Hamster.list(5,1,2,3,4))
+        list.rotate(5).should eql(Hamster.list(1,2,3,4,5))
+        list.rotate(-1).should eql(Hamster.list(5,1,2,3,4))
+      end
+    end
+
+    context "with a non-numeric argument" do
+      it "raises a TypeError" do
+        -> { list.rotate('hello') }.should raise_error(TypeError)
+      end
+    end
+
+    context "with an argument of zero (or one evenly divisible by list length)" do
+      it "it returns self" do
+        list.rotate(0).should be(list)
+        list.rotate(5).should be(list)
+      end
+    end
+  end
+end

data/spec/lib/hamster/list/sample_spec.rb

@@ -0,0 +1,14 @@
+require "spec_helper"
+require "hamster/list"
+
+describe Hamster::List do
+  describe "#sample" do
+    let(:list) { Hamster.list(*(1..10)) }
+
+    it "returns a randomly chosen item" do
+      chosen = 100.times.map { list.sample }
+      chosen.each { |item| list.include?(item).should == true }
+      list.each { |item| chosen.include?(item).should == true }
+    end
+  end
+end

data/spec/lib/hamster/list/select_spec.rb

@@ -0,0 +1,71 @@
+require "spec_helper"
+require "hamster/list"
+
+describe Hamster::List do
+  let(:list) { Hamster.list(*values) }
+  let(:selected_list) { Hamster.list(*selected_values) }
+
+  describe "#select" do
+    it "is lazy" do
+      expect { Hamster.stream { fail }.select { |item| false } }.to_not raise_error
+    end
+
+    shared_examples "checking values" do
+      context "with a block" do
+        let(:select) { list.select { |item| item == item.upcase } }
+
+        it "preserves the original" do
+          expect(list).to eq(Hamster.list(*values))
+        end
+
+        it "returns the selected list" do
+          expect(select).to eq(selected_list)
+        end
+      end
+
+      context "without a block" do
+        let(:select) { list.select }
+
+        it "returns an Enumerator" do
+          expect(select.class).to be(Enumerator)
+          expect(select.each { |item| item == item.upcase }).to eq(selected_list)
+        end
+      end
+    end
+
+    context "with an empty array" do
+      let(:values) { [] }
+      let(:selected_values) { [] }
+
+      include_examples "checking values"
+    end
+
+    context "with a single item array" do
+      let(:values) { ["A"] }
+      let(:selected_values) { ["A"] }
+
+      include_examples "checking values"
+    end
+
+    context "with a multi-item array" do
+      let(:values) { %w[A B] }
+      let(:selected_values) { %w[A B] }
+
+      include_examples "checking values"
+    end
+
+    context "with a multi-item single selectable array" do
+      let(:values) { %w[A b] }
+      let(:selected_values) { ["A"] }
+
+      include_examples "checking values"
+    end
+
+    context "with a multi-item multi-selectable array" do
+      let(:values) { %w[a b] }
+      let(:selected_values) { [] }
+
+      include_examples "checking values"
+    end
+  end
+end

data/spec/lib/hamster/list/size_spec.rb

@@ -0,0 +1,26 @@
+require "spec_helper"
+require "hamster/list"
+
+describe Hamster::List do
+  [:size, :length].each do |method|
+    describe "##{method}" do
+      context "on a really big list" do
+        it "doesn't run out of stack" do
+          -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).size }.should_not raise_error
+        end
+      end
+
+      [
+        [[], 0],
+        [["A"], 1],
+        [%w[A B C], 3],
+      ].each do |values, expected|
+        context "on #{values.inspect}" do
+          it "returns #{expected.inspect}" do
+            Hamster.list(*values).send(method).should == expected
+          end
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/list/slice_spec.rb

@@ -0,0 +1,230 @@
+require "spec_helper"
+require "hamster/list"
+
+describe Hamster::List do
+  let(:list) { Hamster.list(1,2,3,4) }
+  let(:big)  { Hamster.list(*1..10000) }
+
+  [:slice, :[]].each do |method|
+    describe "##{method}" do
+      context "when passed a positive integral index" do
+        it "returns the element at that index" do
+          list.send(method, 0).should be(1)
+          list.send(method, 1).should be(2)
+          list.send(method, 2).should be(3)
+          list.send(method, 3).should be(4)
+          list.send(method, 4).should be(nil)
+          list.send(method, 10).should be(nil)
+
+          big.send(method, 0).should be(1)
+          big.send(method, 9999).should be(10000)
+        end
+
+        it "leaves the original unchanged" do
+          list.should eql(Hamster.list(1,2,3,4))
+        end
+      end
+
+      context "when passed a negative integral index" do
+        it "returns the element which is number (index.abs) counting from the end of the list" do
+          list.send(method, -1).should be(4)
+          list.send(method, -2).should be(3)
+          list.send(method, -3).should be(2)
+          list.send(method, -4).should be(1)
+          list.send(method, -5).should be(nil)
+          list.send(method, -10).should be(nil)
+
+          big.send(method, -1).should be(10000)
+          big.send(method, -10000).should be(1)
+        end
+      end
+
+      context "when passed a positive integral index and count" do
+        it "returns 'count' elements starting from 'index'" do
+          list.send(method, 0, 0).should eql(Hamster.list)
+          list.send(method, 0, 1).should eql(Hamster.list(1))
+          list.send(method, 0, 2).should eql(Hamster.list(1,2))
+          list.send(method, 0, 4).should eql(Hamster.list(1,2,3,4))
+          list.send(method, 0, 6).should eql(Hamster.list(1,2,3,4))
+          list.send(method, 0, -1).should be_nil
+          list.send(method, 0, -2).should be_nil
+          list.send(method, 0, -4).should be_nil
+          list.send(method, 2, 0).should eql(Hamster.list)
+          list.send(method, 2, 1).should eql(Hamster.list(3))
+          list.send(method, 2, 2).should eql(Hamster.list(3,4))
+          list.send(method, 2, 4).should eql(Hamster.list(3,4))
+          list.send(method, 2, -1).should be_nil
+          list.send(method, 4, 0).should eql(Hamster.list)
+          list.send(method, 4, 2).should eql(Hamster.list)
+          list.send(method, 4, -1).should be_nil
+          list.send(method, 5, 0).should be_nil
+          list.send(method, 5, 2).should be_nil
+          list.send(method, 5, -1).should be_nil
+          list.send(method, 6, 0).should be_nil
+          list.send(method, 6, 2).should be_nil
+          list.send(method, 6, -1).should be_nil
+
+          big.send(method, 0, 3).should eql(Hamster.list(1,2,3))
+          big.send(method, 1023, 4).should eql(Hamster.list(1024,1025,1026,1027))
+          big.send(method, 1024, 4).should eql(Hamster.list(1025,1026,1027,1028))
+        end
+
+        it "leaves the original unchanged" do
+          list.should eql(Hamster.list(1,2,3,4))
+        end
+      end
+
+      context "when passed a negative integral index and count" do
+        it "returns 'count' elements, starting from index which is number 'index.abs' counting from the end of the array" do
+          list.send(method, -1, 0).should eql(Hamster.list)
+          list.send(method, -1, 1).should eql(Hamster.list(4))
+          list.send(method, -1, 2).should eql(Hamster.list(4))
+          list.send(method, -1, -1).should be_nil
+          list.send(method, -2, 0).should eql(Hamster.list)
+          list.send(method, -2, 1).should eql(Hamster.list(3))
+          list.send(method, -2, 2).should eql(Hamster.list(3,4))
+          list.send(method, -2, 4).should eql(Hamster.list(3,4))
+          list.send(method, -2, -1).should be_nil
+          list.send(method, -4, 0).should eql(Hamster.list)
+          list.send(method, -4, 1).should eql(Hamster.list(1))
+          list.send(method, -4, 2).should eql(Hamster.list(1,2))
+          list.send(method, -4, 4).should eql(Hamster.list(1,2,3,4))
+          list.send(method, -4, 6).should eql(Hamster.list(1,2,3,4))
+          list.send(method, -4, -1).should be_nil
+          list.send(method, -5, 0).should be_nil
+          list.send(method, -5, 1).should be_nil
+          list.send(method, -5, 10).should be_nil
+          list.send(method, -5, -1).should be_nil
+
+          big.send(method, -1, 1).should eql(Hamster.list(10000))
+          big.send(method, -1, 2).should eql(Hamster.list(10000))
+          big.send(method, -6, 2).should eql(Hamster.list(9995,9996))
+        end
+      end
+
+      context "when passed a Range" do
+        it "returns the elements whose indexes are within the given Range" do
+          list.send(method, 0..-1).should eql(Hamster.list(1,2,3,4))
+          list.send(method, 0..-10).should eql(Hamster.list)
+          list.send(method, 0..0).should eql(Hamster.list(1))
+          list.send(method, 0..1).should eql(Hamster.list(1,2))
+          list.send(method, 0..2).should eql(Hamster.list(1,2,3))
+          list.send(method, 0..3).should eql(Hamster.list(1,2,3,4))
+          list.send(method, 0..4).should eql(Hamster.list(1,2,3,4))
+          list.send(method, 0..10).should eql(Hamster.list(1,2,3,4))
+          list.send(method, 2..-10).should eql(Hamster.list)
+          list.send(method, 2..0).should eql(Hamster.list)
+          list.send(method, 2..2).should eql(Hamster.list(3))
+          list.send(method, 2..3).should eql(Hamster.list(3,4))
+          list.send(method, 2..4).should eql(Hamster.list(3,4))
+          list.send(method, 3..0).should eql(Hamster.list)
+          list.send(method, 3..3).should eql(Hamster.list(4))
+          list.send(method, 3..4).should eql(Hamster.list(4))
+          list.send(method, 4..0).should eql(Hamster.list)
+          list.send(method, 4..4).should eql(Hamster.list)
+          list.send(method, 4..5).should eql(Hamster.list)
+          list.send(method, 5..0).should be_nil
+          list.send(method, 5..5).should be_nil
+          list.send(method, 5..6).should be_nil
+
+          big.send(method, 159..162).should eql(Hamster.list(160,161,162,163))
+          big.send(method, 160..162).should eql(Hamster.list(161,162,163))
+          big.send(method, 161..162).should eql(Hamster.list(162,163))
+          big.send(method, 9999..10100).should eql(Hamster.list(10000))
+          big.send(method, 10000..10100).should eql(Hamster.list)
+          big.send(method, 10001..10100).should be_nil
+
+          list.send(method, 0...-1).should eql(Hamster.list(1,2,3))
+          list.send(method, 0...-10).should eql(Hamster.list)
+          list.send(method, 0...0).should eql(Hamster.list)
+          list.send(method, 0...1).should eql(Hamster.list(1))
+          list.send(method, 0...2).should eql(Hamster.list(1,2))
+          list.send(method, 0...3).should eql(Hamster.list(1,2,3))
+          list.send(method, 0...4).should eql(Hamster.list(1,2,3,4))
+          list.send(method, 0...10).should eql(Hamster.list(1,2,3,4))
+          list.send(method, 2...-10).should eql(Hamster.list)
+          list.send(method, 2...0).should eql(Hamster.list)
+          list.send(method, 2...2).should eql(Hamster.list)
+          list.send(method, 2...3).should eql(Hamster.list(3))
+          list.send(method, 2...4).should eql(Hamster.list(3,4))
+          list.send(method, 3...0).should eql(Hamster.list)
+          list.send(method, 3...3).should eql(Hamster.list)
+          list.send(method, 3...4).should eql(Hamster.list(4))
+          list.send(method, 4...0).should eql(Hamster.list)
+          list.send(method, 4...4).should eql(Hamster.list)
+          list.send(method, 4...5).should eql(Hamster.list)
+          list.send(method, 5...0).should be_nil
+          list.send(method, 5...5).should be_nil
+          list.send(method, 5...6).should be_nil
+
+          big.send(method, 159...162).should eql(Hamster.list(160,161,162))
+          big.send(method, 160...162).should eql(Hamster.list(161,162))
+          big.send(method, 161...162).should eql(Hamster.list(162))
+          big.send(method, 9999...10100).should eql(Hamster.list(10000))
+          big.send(method, 10000...10100).should eql(Hamster.list)
+          big.send(method, 10001...10100).should be_nil
+
+          list.send(method, -1..-1).should eql(Hamster.list(4))
+          list.send(method, -1...-1).should eql(Hamster.list)
+          list.send(method, -1..3).should eql(Hamster.list(4))
+          list.send(method, -1...3).should eql(Hamster.list)
+          list.send(method, -1..4).should eql(Hamster.list(4))
+          list.send(method, -1...4).should eql(Hamster.list(4))
+          list.send(method, -1..10).should eql(Hamster.list(4))
+          list.send(method, -1...10).should eql(Hamster.list(4))
+          list.send(method, -1..0).should eql(Hamster.list)
+          list.send(method, -1..-4).should eql(Hamster.list)
+          list.send(method, -1...-4).should eql(Hamster.list)
+          list.send(method, -1..-6).should eql(Hamster.list)
+          list.send(method, -1...-6).should eql(Hamster.list)
+          list.send(method, -2..-2).should eql(Hamster.list(3))
+          list.send(method, -2...-2).should eql(Hamster.list)
+          list.send(method, -2..-1).should eql(Hamster.list(3,4))
+          list.send(method, -2...-1).should eql(Hamster.list(3))
+          list.send(method, -2..10).should eql(Hamster.list(3,4))
+          list.send(method, -2...10).should eql(Hamster.list(3,4))
+
+          big.send(method, -1..-1).should eql(Hamster.list(10000))
+          big.send(method, -1..9999).should eql(Hamster.list(10000))
+          big.send(method, -1...9999).should eql(Hamster.list)
+          big.send(method, -2...9999).should eql(Hamster.list(9999))
+          big.send(method, -2..-1).should eql(Hamster.list(9999,10000))
+
+          list.send(method, -4..-4).should eql(Hamster.list(1))
+          list.send(method, -4..-2).should eql(Hamster.list(1,2,3))
+          list.send(method, -4...-2).should eql(Hamster.list(1,2))
+          list.send(method, -4..-1).should eql(Hamster.list(1,2,3,4))
+          list.send(method, -4...-1).should eql(Hamster.list(1,2,3))
+          list.send(method, -4..3).should eql(Hamster.list(1,2,3,4))
+          list.send(method, -4...3).should eql(Hamster.list(1,2,3))
+          list.send(method, -4..4).should eql(Hamster.list(1,2,3,4))
+          list.send(method, -4...4).should eql(Hamster.list(1,2,3,4))
+          list.send(method, -4..0).should eql(Hamster.list(1))
+          list.send(method, -4...0).should eql(Hamster.list)
+          list.send(method, -4..1).should eql(Hamster.list(1,2))
+          list.send(method, -4...1).should eql(Hamster.list(1))
+
+          list.send(method, -5..-5).should be_nil
+          list.send(method, -5...-5).should be_nil
+          list.send(method, -5..-4).should be_nil
+          list.send(method, -5..-1).should be_nil
+          list.send(method, -5..10).should be_nil
+
+          big.send(method, -10001..-1).should be_nil
+        end
+
+        it "leaves the original unchanged" do
+          list.should eql(Hamster.list(1,2,3,4))
+        end
+      end
+    end
+
+    context "when passed a subclass of Range" do
+      it "works the same as with a Range" do
+        subclass = Class.new(Range)
+        list.send(method, subclass.new(1,2)).should eql(Hamster.list(2,3))
+        list.send(method, subclass.new(-3,-1,true)).should eql(Hamster.list(2,3))
+      end
+    end
+  end
+end