hamster 0.1.19 → 0.1.20

data/spec/hamster/list/include_spec.rb

@@ -11,11 +11,11 @@ describe Hamster::List do
       describe "doesn't run out of stack space on a really big" do
 
         it "stream" do
-          @list = Hamster.interval(0, 10000)
+          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
         it "list" do
-          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/inspect_spec.rb

@@ -9,11 +9,11 @@ describe Hamster::List do
     describe "doesn't run out of stack space on a really big" do
 
       it "stream" do
-        @list = Hamster.interval(0, 10000)
+        @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
       end
 
       it "list" do
-        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do

data/spec/hamster/list/map_spec.rb

@@ -11,11 +11,11 @@ describe Hamster::List do
       describe "doesn't run out of stack space on a really big" do
 
         it "stream" do
-          @list = Hamster.interval(0, 10000)
+          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
         it "list" do
-          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do
@@ -33,18 +33,26 @@ describe Hamster::List do
         describe "on #{values.inspect}" do
 
           before do
-            @list = Hamster.list(*values)
+            @original = Hamster.list(*values)
           end
 
           describe "with a block" do
 
+            before do
+              @result = @original.send(method) { |item| item.downcase }
+            end
+
+            it "preserves the original" do
+              @original.should == Hamster.list(*values)
+            end
+
             it "returns #{expected.inspect}" do
-              @list.send(method) { |item| item.downcase }.should == Hamster.list(*expected)
+              @result.should == Hamster.list(*expected)
             end
 
             it "is lazy" do
               count = 0
-              @list.send(method) { |item| count += 1 }
+              @original.send(method) { |item| count += 1 }
               count.should <= 1
             end
 
@@ -52,8 +60,12 @@ describe Hamster::List do
 
           describe "without a block" do
 
+            before do
+              @result = @original.send(method)
+            end
+
             it "returns self" do
-              @list.send(method).should equal(@list)
+              @result.should equal(@original)
             end
 
           end

data/spec/hamster/list/maximum_spec.rb

@@ -11,11 +11,11 @@ describe Hamster::List do
       describe "doesn't run out of stack space on a really big" do
 
         it "stream" do
-          @list = Hamster.interval(0, 10000)
+          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
         it "list" do
-          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/minimum_spec.rb

@@ -11,11 +11,11 @@ describe Hamster::List do
       describe "doesn't run out of stack space on a really big" do
 
         it "stream" do
-          @list = Hamster.interval(0, 10000)
+          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
         it "list" do
-          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/none_spec.rb

@@ -9,11 +9,11 @@ describe Hamster::List do
     describe "doesn't run out of stack space on a really big" do
 
       it "stream" do
-        @list = Hamster.interval(0, 10000)
+        @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
       end
 
       it "list" do
-        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do
@@ -29,11 +29,11 @@ describe Hamster::List do
       end
 
       it "with a block returns true" do
-        @list.none? {}.should be_true
+        @list.none? {}.should == true
       end
 
       it "with no block returns true" do
-        @list.none?.should be_true
+        @list.none?.should == true
       end
 
     end
@@ -49,13 +49,13 @@ describe Hamster::List do
         ["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
+            @list.none? { |item| item == value }.should == false
           end
 
         end
 
         it "returns true if the block always returns false" do
-          @list.none? { |item| item == "D" }.should be_true
+          @list.none? { |item| item == "D" }.should == true
         end
 
       end
@@ -63,11 +63,11 @@ describe Hamster::List do
       describe "with no block" do
 
         it "returns false if any value is truthy" do
-          Hamster.list(nil, false, true, "A").none?.should be_false
+          Hamster.list(nil, false, true, "A").none?.should == false
         end
 
         it "returns true if all values are falsey" do
-          Hamster.list(nil, false).none?.should be_true
+          Hamster.list(nil, false).none?.should == true
         end
 
       end

data/spec/hamster/list/one_spec.rb

@@ -9,11 +9,11 @@ describe Hamster::List do
     describe "doesn't run out of stack space on a really big" do
 
       it "stream" do
-        @list = Hamster.interval(0, 10000)
+        @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
       end
 
       it "list" do
-        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do
@@ -29,11 +29,11 @@ describe Hamster::List do
       end
 
       it "with a block returns false" do
-        @list.one? {}.should be_false
+        @list.one? {}.should == false
       end
 
       it "with no block returns false" do
-        @list.one?.should be_false
+        @list.one?.should == false
       end
 
     end
@@ -47,15 +47,15 @@ describe Hamster::List do
         end
 
         it "returns false if the block returns true more than once" do
-          @list.one? { |item| true }.should be_false
+          @list.one? { |item| true }.should == false
         end
 
         it "returns fale if the block never returns true" do
-          @list.one? { |item| false }.should be_false
+          @list.one? { |item| false }.should == false
         end
 
         it "returns true if the block only returns true once" do
-          @list.one? { |item| item == "A" }.should be_true
+          @list.one? { |item| item == "A" }.should == true
         end
 
       end
@@ -63,11 +63,11 @@ describe Hamster::List do
       describe "with no block" do
 
         it "returns false if more than one value is truthy" do
-          Hamster.list(nil, true, "A").one?.should be_false
+          Hamster.list(nil, true, "A").one?.should == false
         end
 
         it "returns true if only one value is truthy" do
-          Hamster.list(nil, true, false).one?.should be_true
+          Hamster.list(nil, true, false).one?.should == true
         end
 
       end

data/spec/hamster/list/partition_spec.rb

@@ -4,16 +4,42 @@ require 'hamster/list'
 
 describe Hamster::List do
 
+  shared_examples_for "#partition without a block" do
+
+    describe "without a block" do
+
+      before do
+        @result = @original.partition
+      end
+
+      it "returns self" do
+        @result.should equal(@original)
+      end
+
+    end
+
+  end
+
+  shared_examples_for "#partition is lazy" do
+
+    it "is lazy" do
+      count = 0
+      @original.partition { |item| count += 1; true }
+      count.should <= 1
+    end
+
+  end
+
   describe "#partition" do
 
     describe "doesn't run out of stack space on a really big" do
 
       it "stream" do
-        @list = Hamster.interval(0, 10000)
+        @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
       end
 
       it "list" do
-        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do
@@ -26,20 +52,35 @@ describe Hamster::List do
 
       before do
         count = 0
-        counter = Hamster.stream { count += 1 }
-        partitions = counter.partition { |item| item %2 != 0 }
-        @matches = partitions.car
-        @remainder = partitions.cadr
+        @original = Hamster.stream { count += 1 }
       end
 
-      it "correctly identifies the matches" do
-        @matches.take(5).should == Hamster.list(1, 3, 5, 7, 9)
-      end
+      describe "with a block" do
+
+        before do
+          @result = @original.partition { |item| (item %2) != 0 }
+          @matches = @result.car
+          @remainder = @result.cadr
+        end
+
+        it "returns a list with two items" do
+          @result.size.should == 2
+        end
+
+        it "correctly identifies the matches" do
+          @matches.take(5).should == Hamster.list(1, 3, 5, 7, 9)
+        end
+
+        it "correctly identifies the remainder" do
+          @remainder.take(5).should == Hamster.list(2, 4, 6, 8, 10)
+        end
 
-      it "correctly identifies the remainder" do
-        @remainder.take(5).should == Hamster.list(2, 4, 6, 8, 10)
       end
 
+      it_should_behave_like "#partition without a block"
+
+      it_should_behave_like "#partition is lazy"
+
     end
 
     describe "on an interval" do
@@ -51,13 +92,17 @@ describe Hamster::List do
       describe "with a block" do
 
         before do
-          result = @original.partition { |item| (item % 2) != 0 }
-          @matching = result.car
-          @remainder = result.cadr
+          @result = @original.partition { |item| (item % 2) != 0 }
+          @matches = @result.car
+          @remainder = @result.cadr
+        end
+
+        it "returns a list with two items" do
+          @result.size.should == 2
         end
 
         it "correctly identifies the matches" do
-          @matching.should == Hamster.list(1, 3, 5, 7, 9)
+          @matches.should == Hamster.list(1, 3, 5, 7, 9)
         end
 
         it "correctly identifies the remainder" do
@@ -66,17 +111,9 @@ describe Hamster::List do
 
       end
 
-      describe "without a block" do
-
-        before do
-          @result = @original.partition
-        end
-
-        it "returns self" do
-          @result.should equal(@original)
-        end
+      it_should_behave_like "#partition without a block"
 
-      end
+      it_should_behave_like "#partition is lazy"
 
     end
 
@@ -95,27 +132,38 @@ describe Hamster::List do
 
         before do
           @original = Hamster.list(*values)
-          @partitions = @original.partition { |item| (item % 2) != 0 }
-          @matches = @partitions.car
-          @remainder = @partitions.cadr
         end
 
-        it "preserves the original" do
-          @original.should == Hamster.list(*values)
-        end
+        describe "with a block" do
 
-        it "returns a list with two items" do
-          @partitions.size.should == 2
-        end
+          before do
+            @result = @original.partition { |item| (item % 2) != 0 }
+            @matches = @result.car
+            @remainder = @result.cadr
+          end
 
-        it "correctly identifies the matches" do
-          @matches.should == Hamster.list(*expected_matches)
-        end
+          it "preserves the original" do
+            @original.should == Hamster.list(*values)
+          end
+
+          it "returns a list with two items" do
+            @result.size.should == 2
+          end
+
+          it "correctly identifies the matches" do
+            @matches.should == Hamster.list(*expected_matches)
+          end
+
+          it "correctly identifies the remainder" do
+            @remainder.should == Hamster.list(*expected_remainder)
+          end
 
-        it "correctly identifies the remainder" do
-          @remainder.should == Hamster.list(*expected_remainder)
         end
 
+        it_should_behave_like "#partition without a block"
+
+        it_should_behave_like "#partition is lazy"
+
       end
 
     end

data/spec/hamster/list/reduce_spec.rb

@@ -11,11 +11,11 @@ describe Hamster::List do
       describe "doesn't run out of stack space on a really big" do
 
         it "stream" do
-          @list = Hamster.interval(0, 10000)
+          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
         it "list" do
-          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/reject_spec.rb

@@ -11,11 +11,11 @@ describe Hamster::List do
       describe "doesn't run out of stack space on a really big" do
 
         it "stream" do
-          @list = Hamster.interval(0, 10000)
+          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
         it "list" do
-          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do
@@ -35,18 +35,22 @@ describe Hamster::List do
         describe "on #{values.inspect}" do
 
           before do
-            @list = Hamster.list(*values)
+            @original = Hamster.list(*values)
           end
 
           describe "with a block" do
 
+            before do
+              @result = @original.send(method) { |item| item == item.downcase }
+            end
+
             it "returns #{expected.inspect}" do
-              @list.send(method) { |item| item == item.downcase }.should == Hamster.list(*expected)
+              @result.should == Hamster.list(*expected)
             end
 
             it "is lazy" do
               count = 0
-              @list.send(method) { |item| count += 1; false }
+              @original.send(method) { |item| count += 1; false }
               count.should <= 1
             end
 
@@ -54,8 +58,12 @@ describe Hamster::List do
 
           describe "without a block" do
 
+            before do
+              @result = @original.send(method)
+            end
+
             it "returns self" do
-              @list.send(method).should equal(@list)
+              @result.should equal(@original)
             end
 
           end