hamster 0.1.13 → 0.1.14

data/spec/hamster/hash/filter_spec.rb

@@ -2,7 +2,7 @@ require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
 describe Hamster::Hash do
 
-  [:filter, :select].each do |method|
+  [:filter, :select, :find_all].each do |method|
 
     describe "##{method}" do
 

data/spec/hamster/hash/reduce_spec.rb

@@ -2,7 +2,7 @@ require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
 describe Hamster::Hash do
 
-  [:reduce, :inject].each do |method|
+  [:reduce, :inject, :fold].each do |method|
 
     describe "##{method}" do
 

data/spec/hamster/hash/reject_spec.rb

@@ -2,50 +2,54 @@ require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
 describe Hamster::Hash do
 
-  describe "#reject" do
+  [:reject, :delete_if].each do |method|
 
-    before do
-      @original = Hamster.hash("A" => "aye", "B" => "bee", "C" => "see")
-    end
-
-    describe "when nothing matches" do
+    describe "##{method}" do
 
       before do
-        @result = @original.reject { |key, value| false }
+        @original = Hamster.hash("A" => "aye", "B" => "bee", "C" => "see")
       end
 
-      it "returns self" do
-        @result.should equal(@original)
+      describe "when nothing matches" do
+
+        before do
+          @result = @original.send(method) { |key, value| false }
+        end
+
+        it "returns self" do
+          @result.should equal(@original)
+        end
+
       end
 
-    end
+      describe "when only some things match" do
 
-    describe "when only some things match" do
+        describe "with a block" do
 
-      describe "with a block" do
+          before do
+            @result = @original.send(method) { |key, value| key == "A" && value == "aye" }
+          end
 
-        before do
-          @result = @original.reject { |key, value| key == "A" && value == "aye" }
-        end
+          it "preserves the original" do
+            @original.should == Hamster.hash("A" => "aye", "B" => "bee", "C" => "see")
+          end
 
-        it "preserves the original" do
-          @original.should == Hamster.hash("A" => "aye", "B" => "bee", "C" => "see")
-        end
+          it "returns a set with the matching values" do
+            @result.should == Hamster.hash("B" => "bee", "C" => "see")
+          end
 
-        it "returns a set with the matching values" do
-          @result.should == Hamster.hash("B" => "bee", "C" => "see")
         end
 
-      end
+        describe "with no block" do
 
-      describe "with no block" do
+          before do
+            @result = @original.send(method)
+          end
 
-        before do
-          @result = @original.reject
-        end
+          it "returns self" do
+            @result.should equal(@original)
+          end
 
-        it "returns self" do
-          @result.should equal(@original)
         end
 
       end

data/spec/hamster/list/all_spec.rb

@@ -0,0 +1,73 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  describe "#all?" 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.all? { true }
+      end
+
+    end
+
+    describe "when empty" do
+
+      before do
+        @list = Hamster.list
+      end
+
+      it "with a block returns true" do
+        @list.all? {}.should be_true
+      end
+
+      it "with no block returns true" do
+        @list.all?.should be_true
+      end
+
+    end
+
+    describe "when not empty" do
+
+      describe "with a block" do
+
+        before do
+          @list = Hamster.list("A", "B", "C")
+        end
+
+        it "returns true if the block always returns true" do
+          @list.all? { |item| true }.should be_true
+        end
+
+        it "returns false if the block ever returns false" do
+          @list.all? { |item| item == "D" }.should be_false
+        end
+
+      end
+
+      describe "with no block" do
+
+        it "returns true if all values are truthy" do
+          Hamster.list(true, "A").all?.should be_true
+        end
+
+        [nil, false].each do |value|
+
+          it "returns false if any value is #{value.inspect}" do
+            Hamster.list(value, true, "A").all?.should be_false
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/any_spec.rb

@@ -0,0 +1,77 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  [:any?, :exist?, :exists?].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.any? { false }
+        end
+
+      end
+
+      describe "when empty" do
+
+        before do
+          @list = Hamster.list
+        end
+
+        it "with a block returns false" do
+          @list.send(method) {}.should be_false
+        end
+
+        it "with no block returns false" do
+          @list.send(method).should be_false
+        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 true if the block ever returns true (#{value.inspect})" do
+              @list.send(method) { |item| item == value }.should be_true
+            end
+
+          end
+
+          it "returns false if the block always returns false" do
+            @list.send(method) { |item| item == "D" }.should be_false
+          end
+
+        end
+
+        describe "with no block" do
+
+          it "returns true if any value is truthy" do
+            Hamster.list(nil, false, true, "A").send(method).should be_true
+          end
+
+          it "returns false if all values are falsey" do
+            Hamster.list(nil, false).send(method).should be_false
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/cadr_spec.rb

@@ -22,10 +22,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).should == expected
+          @list.send(method).should == expected
         end
 
       end

data/spec/hamster/list/cons_spec.rb

@@ -15,15 +15,17 @@ describe Hamster::List do
 
         describe "on #{values.inspect} with #{new_value.inspect}" do
 
-          original = Hamster.list(*values)
-          result = original.send(method, new_value)
+          before do
+            @original = Hamster.list(*values)
+            @result = @original.send(method, new_value)
+          end
 
           it "preserves the original" do
-            original.should == Hamster.list(*values)
+            @original.should == Hamster.list(*values)
           end
 
           it "returns #{expected.inspect}" do
-            result.should == Hamster.list(*expected)
+            @result.should == Hamster.list(*expected)
           end
 
         end

data/spec/hamster/list/copying_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 self" do
-          list.send(method).should equal(list)
+          @list.send(method).should equal(@list)
         end
 
       end

data/spec/hamster/list/drop_spec.rb

@@ -4,6 +4,18 @@ describe Hamster::List do
 
   describe "#drop" 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.drop(10000)
+      end
+
+    end
+
     [
       [[], 10, []],
       [["A"], 10, []],
@@ -14,10 +26,12 @@ describe Hamster::List do
 
       describe "#{number} from #{values.inspect}" do
 
-        list = Hamster.list(*values)
+        before do
+          @list = Hamster.list(*values)
+        end
 
         it "returns #{expected}" do
-          list.drop(number).should == Hamster.list(*expected)
+          @list.drop(number).should == Hamster.list(*expected)
         end
 
       end

data/spec/hamster/list/drop_while_spec.rb

@@ -4,6 +4,18 @@ describe Hamster::List do
 
   describe "#drop_while" 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.drop_while { true }
+      end
+
+    end
+
     [
       [[], []],
       [["A"], []],
@@ -12,12 +24,14 @@ 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.drop_while { |item| item < "C" }.should == Hamster.list(*expected)
+            @list.drop_while { |item| item < "C" }.should == Hamster.list(*expected)
           end
 
         end
@@ -25,7 +39,7 @@ describe Hamster::List do
         describe "without a block" do
 
           it "returns self" do
-            list.drop_while.should == list
+            @list.drop_while.should equal(@list)
           end
 
         end

data/spec/hamster/list/each_spec.rb

@@ -4,6 +4,18 @@ describe Hamster::List do
 
   describe "#each" 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.each {}
+      end
+
+    end
+
     [
       [],
       ["A"],
@@ -12,18 +24,20 @@ 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 "iterates over the items in order" do
             items = []
-            list.each { |value| items << value }
+            @list.each { |value| items << value }
             items.should == values
           end
 
           it "returns nil" do
-            list.each {}.should be_nil
+            @list.each {}.should be_nil
           end
 
         end
@@ -31,7 +45,7 @@ describe Hamster::List do
         describe "without a block" do
 
           it "returns self" do
-            list.each.should == list
+            @list.each.should equal(@list)
           end
 
         end

data/spec/hamster/list/empty_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.empty?.should == expected
+          @list.empty?.should == expected
         end
 
       end