hamster 0.1.13 → 0.1.14

data/spec/hamster/list/eql_spec.rb

@@ -6,25 +6,59 @@ describe Hamster::List do
 
     describe "##{method}" do
 
+      describe "on a really big list" do
+
+        before do
+          @a = Hamster.interval(0, 10000)
+          @b = Hamster.interval(0, 10000)
+        end
+
+        it "doesn't run out of stack space" do
+          @a.send(method, @b)
+        end
+
+      end
+
+      describe "returns false when comparing with" do
+
+        before do
+          @list = Hamster.list("A", "B", "C")
+        end
+
+        it "an array" do
+          @list.send(method, ["A", "B", "C"]).should be_false
+        end
+
+        it "an aribtrary object" do
+          @list.send(method, Object.new).should be_false
+        end
+
+      end
+
       [
         [[], [], true],
+        [[], [nil], false],
         [["A"], [], false],
-        [[], ["A"], false],
         [["A"], ["A"], true],
         [["A"], ["B"], false],
         [["A", "B"], ["A"], false],
-        [["A"], ["A", "B"], false],
         [["A", "B", "C"], ["A", "B", "C"], true],
         [["C", "A", "B"], ["A", "B", "C"], false],
       ].each do |a, b, expected|
 
-        describe "on #{a.inspect} and #{b.inspect}" do
+        describe "returns #{expected}" do
+
+          before do
+            @a = Hamster.list(*a)
+            @b = Hamster.list(*b)
+          end
 
-          a = Hamster.list(*a)
-          b = Hamster.list(*b)
+          it "for lists #{a.inspect} and #{b.inspect}" do
+            @a.send(method, @b).should == expected
+          end
 
-          it "returns #{expected}" do
-            a.send(method, b).should == expected
+          it "for lists #{b.inspect} and #{a.inspect}" do
+            @b.send(method, @a).should == expected
           end
 
         end

data/spec/hamster/list/filter_spec.rb

@@ -2,9 +2,21 @@ require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
 describe Hamster::List do
 
-  [:filter, :select].each do |method|
+  [:filter, :select, :find_all].each do |method|
 
-    describe "#filter" do
+    describe "##{method}" do
+
+      describe "on a really big list" do
+
+        before do
+          @list = Hamster.interval(0, 10000)
+        end
+
+        it "doesn't run out of stack space" do
+          @list.filter { false }
+        end
+
+      end
 
       [
         [[], []],
@@ -16,17 +28,19 @@ describe Hamster::List do
 
         describe "on #{values.inspect}" do
 
-          list = Hamster.list(*values)
+          before do
+            @list = Hamster.list(*values)
+          end
 
           describe "with a block" do
 
             it "returns #{expected}" do
-              list.send(method) { |item| item == item.upcase }.should == Hamster.list(*expected)
+              @list.send(method) { |item| item == item.upcase }.should == Hamster.list(*expected)
             end
 
             it "is lazy" do
               count = 0
-              list.send(method) { |item| count += 1; true }
+              @list.send(method) { |item| count += 1; true }
               count.should <= 1
             end
 
@@ -35,7 +49,7 @@ describe Hamster::List do
           describe "without a block" do
 
             it "returns self" do
-              list.send(method).should == list
+              @list.send(method).should equal(@list)
             end
 
           end

data/spec/hamster/list/find_spec.rb

@@ -0,0 +1,63 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  [:find, :detect].each do |method|
+
+    describe "##{method}" do
+
+      describe "on a really big list" do
+
+        before do
+          @list = Hamster.interval(0, 10000)
+        end
+
+        it "doesn't run out of stack space" do
+          @list.send(method) { false }
+        end
+
+      end
+
+      [
+        [[], "A", nil],
+        [[], nil, nil],
+        [["A"], "A", "A"],
+        [["A"], "B", nil],
+        [["A"], nil, nil],
+        [["A", "B", nil], "A", "A"],
+        [["A", "B", nil], "B", "B"],
+        [["A", "B", nil], nil, nil],
+        [["A", "B", nil], "C", nil],
+      ].each do |values, item, expected|
+
+        describe "on #{values.inspect}" do
+
+          before do
+            @list = Hamster.list(*values)
+          end
+
+          describe "with a block" do
+
+            it "returns #{expected}" do
+              @list.send(method) { |x| x == item  }.should == expected
+            end
+
+          end
+
+          describe "without a block" do
+
+            it "returns nil" do
+              @list.send(method).should be_nil
+            end
+
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/head_spec.rb

@@ -12,10 +12,12 @@ describe Hamster::List do
 
       describe "on #{values.inspect}" do
 
-        list = Hamster.list(*values)
+        before do
+          @list = Hamster.list(*values)
+        end
 
         it "returns #{expected}" do
-          list.head.should == expected
+          @list.head.should == expected
         end
 
       end

data/spec/hamster/list/include_spec.rb

@@ -6,6 +6,18 @@ describe Hamster::List do
 
     describe "##{method}" do
 
+      describe "on a really big list" do
+
+        before do
+          @list = Hamster.interval(0, 10000)
+        end
+
+        it "doesn't run out of stack space" do
+          @list.send(method, nil)
+        end
+
+      end
+
       [
         [[], "A", false],
         [[], nil, false],
@@ -20,10 +32,12 @@ describe Hamster::List do
 
         describe "on #{values.inspect}" do
 
-          list = Hamster.list(*values)
+          before do
+            @list = Hamster.list(*values)
+          end
 
           it "returns #{expected}" do
-            list.send(method, item).should == expected
+            @list.send(method, item).should == expected
           end
 
         end

data/spec/hamster/list/inspect_spec.rb

@@ -4,6 +4,18 @@ describe Hamster::List do
 
   describe "#inspect" do
 
+    describe "on a really big list" do
+
+      before do
+        @list = Hamster.interval(0, 10000)
+      end
+
+      it "doesn't run out of stack space" do
+        @list.to_a
+      end
+
+    end
+
     [
       [[], "[]"],
       [["A"], "[\"A\"]"],
@@ -12,10 +24,12 @@ describe Hamster::List do
 
       describe "on #{values.inspect}" do
 
-        list = Hamster.list(*values)
+        before do
+          @list = Hamster.list(*values)
+        end
 
         it "returns #{expected}" do
-          list.inspect.should == expected
+          @list.inspect.should == expected
         end
 
       end

data/spec/hamster/list/map_spec.rb

@@ -6,6 +6,18 @@ describe Hamster::List do
 
     describe "##{method}" do
 
+      describe "on a really big list" do
+
+        before do
+          @list = Hamster.interval(0, 10000)
+        end
+
+        it "doesn't run out of stack space" do
+          @list.send(method) { |item| item }
+        end
+
+      end
+
       [
         [[], []],
         [["A"], ["a"]],
@@ -14,17 +26,19 @@ describe Hamster::List do
 
         describe "on #{values.inspect}" do
 
-          list = Hamster.list(*values)
+          before do
+            @list = Hamster.list(*values)
+          end
 
           describe "with a block" do
 
             it "returns #{expected}" do
-              list.send(method) { |item| item.downcase }.should == Hamster.list(*expected)
+              @list.send(method) { |item| item.downcase }.should == Hamster.list(*expected)
             end
 
             it "is lazy" do
               count = 0
-              list.send(method) { |item| count += 1 }
+              @list.send(method) { |item| count += 1 }
               count.should <= 1
             end
 
@@ -33,7 +47,7 @@ describe Hamster::List do
           describe "without a block" do
 
             it "returns self" do
-              list.send(method).should == list
+              @list.send(method).should equal(@list)
             end
 
           end

data/spec/hamster/list/none_spec.rb

@@ -0,0 +1,73 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  describe "#none?" do
+
+    describe "on a really big list" do
+
+      before do
+        @list = Hamster.interval(0, 10000)
+      end
+
+      it "doesn't run out of stack space" do
+        @list.none? { false }
+      end
+
+    end
+
+    describe "when empty" do
+
+      before do
+        @list = Hamster.list
+      end
+
+      it "with a block returns true" do
+        @list.none? {}.should be_true
+      end
+
+      it "with no block returns true" do
+        @list.none?.should be_true
+      end
+
+    end
+
+    describe "when not empty" do
+
+      describe "with a block" do
+
+        before do
+          @list = Hamster.list("A", "B", "C", nil)
+        end
+
+        ["A", "B", "C", nil].each do |value|
+
+          it "returns false if the block ever returns true (#{value.inspect})" do
+            @list.none? { |item| item == value }.should be_false
+          end
+
+        end
+
+        it "returns true if the block always returns false" do
+          @list.none? { |item| item == "D" }.should be_true
+        end
+
+      end
+
+      describe "with no block" do
+
+        it "returns false if any value is truthy" do
+          Hamster.list(nil, false, true, "A").none?.should be_false
+        end
+
+        it "returns true if all values are falsey" do
+          Hamster.list(nil, false).none?.should be_true
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/reduce_spec.rb

@@ -2,32 +2,86 @@ require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
 describe Hamster::List do
 
-  [:reduce, :inject].each do |method|
+  [:reduce, :inject, :fold].each do |method|
 
     describe "##{method}" do
 
+      describe "on a really big list" do
+
+        before do
+          @list = Hamster.interval(0, 10000)
+        end
+
+        it "doesn't run out of stack space" do
+          @list.reduce(nil) { }
+        end
+
+      end
+
       [
-        [[], "@"],
-        [["A"], "@a"],
-        [["A", "B", "C"], "@abc"],
-      ].each do |values, expected|
+        [[], 10, 10],
+        [[1], 10, 9],
+        [[1, 2, 3], 10, 4],
+      ].each do |values, initial, expected|
 
         describe "on #{values.inspect}" do
 
-          list = Hamster.list(*values)
+          before do
+            @list = Hamster.list(*values)
+          end
+
+          describe "with an initial value of #{initial}" do
+
+            describe "and a block" do
+
+              it "returns #{expected.inspect}" do
+                @list.send(method, initial) { |memo, item| memo - item }.should == expected
+              end
 
-          describe "with a block" do
+            end
+
+            describe "and no block" do
+
+              it "returns the memo" do
+                @list.send(method, initial).should == initial
+              end
 
-            it "returns #{expected.inspect}" do
-              list.send(method, "@") { |memo, item| memo << item.downcase }.should == expected
             end
 
           end
 
-          describe "without a block" do
+        end
+
+      end
+
+      [
+        [[], nil],
+        [[1], 1],
+        [[1, 2, 3], -4],
+      ].each do |values, expected|
+
+        describe "on #{values.inspect}" do
+
+          before do
+            @list = Hamster.list(*values)
+          end
+
+          describe "with no initial value" do
+
+            describe "and a block" do
+
+              it "returns #{expected.inspect}" do
+                @list.send(method) { |memo, item| memo - item }.should == expected
+              end
+
+            end
+
+            describe "and no block" do
+
+              it "returns the first value in the list" do
+                @list.send(method).should == values.first
+              end
 
-            it "returns the memo" do
-              list.send(method, "@").should == "@"
             end
 
           end