hamster 0.1.23 → 0.2.0

data/spec/hamster/list/any_spec.rb

@@ -8,18 +8,14 @@ describe Hamster::List do
 
     describe "##{method}" do
 
-      describe "doesn't run out of stack space on a really big" do
+      describe "on a really big list" do
 
-        it "stream" do
+        before do
           @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
-        it "list" do
-          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-        end
-
-        after do
-          @list.any? { false }
+        it "doesn't run out of stack" do
+          lambda { @list.send(method) { false } }.should_not raise_error
         end
 
       end

data/spec/hamster/list/append_spec.rb

@@ -8,20 +8,8 @@ describe Hamster::List do
 
     describe "##{method}" do
 
-      describe "doesn't run out of stack space on a really big" do
-
-        it "stream" do
-          @a = @b = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-        end
-
-        it "list" do
-          @a = @b = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-        end
-
-        after do
-          @a.send(method, @b)
-        end
-
+      it "is lazy" do
+        lambda { Hamster.stream { fail }.append(Hamster.stream { fail }) }.should_not raise_error
       end
 
       [
@@ -55,12 +43,6 @@ describe Hamster::List do
 
       end
 
-      it "is lazy" do
-        count = 0
-        Hamster.stream { count += 1 }.append(Hamster.list("A"))
-        count.should <= 1
-      end
-
     end
 
   end

data/spec/hamster/list/break_spec.rb

@@ -4,127 +4,10 @@ require 'hamster/list'
 
 describe Hamster::List do
 
-  shared_examples_for "#break without a block" do
-
-    describe "without a block" do
-
-      before do
-        @result = @original.break
-        @prefix = @result.car
-        @remainder = @result.cadr
-      end
-
-      it "returns a list with two items" do
-        @result.size.should == 2
-      end
-
-      it "returns self as the prefix" do
-        @prefix.should equal(@original)
-      end
-
-      it "leaves the remainder empty" do
-        @remainder.should be_empty
-      end
-
-    end
-
-  end
-
-  shared_examples_for "#break is lazy" do
-
-    it "is lazy" do
-      count = 0
-      @original.break { |item| count += 1; false }
-      count.should <= 1
-    end
-
-  end
-
   describe "#break" do
 
-    describe "doesn't run out of stack space on a really big" do
-
-      it "stream" do
-        @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-      end
-
-      it "list" do
-        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-      end
-
-      after do
-        @list.break { |item| item < 5000 }
-      end
-
-    end
-
-    describe "on a stream" do
-
-      before do
-        count = 0
-        @original = Hamster.stream { count += 1 }
-      end
-
-      describe "with a block" do
-
-        before do
-          @result = @original.break { |item| item > 5 }
-          @prefix = @result.car
-          @remainder = @result.cadr
-        end
-
-        it "returns a list with two items" do
-          @result.size.should == 2
-        end
-
-        it "correctly identifies the prefix" do
-          @prefix.should == Hamster.list(1, 2, 3, 4, 5)
-        end
-
-        it "correctly identifies the remainder" do
-          @remainder.take(5).should == Hamster.list(6, 7, 8, 9, 10)
-        end
-
-      end
-
-      it_should_behave_like "#break without a block"
-
-      it_should_behave_like "#break is lazy"
-
-    end
-
-    describe "on an interval" do
-
-      before do
-        @original = Hamster.interval(1, 10)
-      end
-
-      describe "with a block" do
-
-        before do
-          @result = @original.break { |item| item > 5 }
-          @prefix = @result.car
-          @remainder = @result.cadr
-        end
-
-        it "returns a list with two items" do
-          @result.size.should == 2
-        end
-
-        it "correctly identifies the prefix" do
-          @prefix.should == Hamster.list(1, 2, 3, 4, 5)
-        end
-
-        it "correctly identifies the remainder" do
-          @remainder.should == Hamster.list(6, 7, 8, 9, 10)
-        end
-
-      end
-
-      it_should_behave_like "#break without a block"
-
-      it_should_behave_like "#break is lazy"
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.break { |item| false } }.should_not raise_error
     end
 
     [
@@ -170,9 +53,27 @@ describe Hamster::List do
 
         end
 
-        it_should_behave_like "#break without a block"
+        describe "without a block" do
+
+          before do
+            @result = @original.break
+            @prefix = @result.car
+            @remainder = @result.cadr
+          end
+
+          it "returns a list with two items" do
+            @result.size.should == 2
+          end
+
+          it "returns self as the prefix" do
+            @prefix.should equal(@original)
+          end
 
-        it_should_behave_like "#break is lazy"
+          it "leaves the remainder empty" do
+            @remainder.should be_empty
+          end
+
+        end
 
       end
 

data/spec/hamster/list/cadr_spec.rb

@@ -29,6 +29,10 @@ describe Hamster::List do
           @result = @original.send(method)
         end
 
+        it "responds to #{method}" do
+          @original.respond_to?(method, false).should == true
+        end
+
         it "preserves the original" do
           @original.should == Hamster.list(*values)
         end

data/spec/hamster/list/chunk_spec.rb

@@ -6,6 +6,12 @@ describe Hamster::List do
 
   describe "#chunk" do
 
+    it "is lazy" do
+      pending do
+        lambda { Hamster.stream { fail }.chunk(2) }.should_not raise_error
+      end
+    end
+
     [
       [[], []],
       [["A"], [Hamster.list("A")]],

data/spec/hamster/list/combinations_spec.rb

@@ -0,0 +1,51 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  [:combinations, :combination].each do |method|
+
+    describe "##{method}" do
+
+      it "is lazy" do
+        lambda { Hamster.stream { fail }.combinations(2) }.should_not raise_error
+      end
+
+      [
+        [["A", "B", "C", "D"], 1, [["A"], ["B"], ["C"], ["D"]]],
+        [["A", "B", "C", "D"], 2, [["A", "B"], ["A", "C"], ["A", "D"], ["B", "C"], ["B", "D"], ["C", "D"]]],
+        [["A", "B", "C", "D"], 3, [["A", "B", "C"], ["A", "B", "D"], ["A", "C", "D"], ["B", "C", "D"]]],
+        [["A", "B", "C", "D"], 4, [["A", "B", "C", "D"]]],
+        [["A", "B", "C", "D"], 0, [[]]],
+        [["A", "B", "C", "D"], 5, []],
+        [[], 0, [[]]],
+        [[], 1, []],
+      ].each do |values, number, expected|
+
+        expected = expected.map { |x| Hamster.list(*x) }
+
+        describe "on #{values.inspect} in groups of #{number}" do
+
+          before do
+            @original = Hamster.list(*values)
+            @result = @original.send(method, number)
+          end
+
+          it "preserves the original" do
+            @original.should == Hamster.list(*values)
+          end
+
+          it "returns #{expected.inspect}" do
+            @result.should == Hamster.list(*expected)
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/count_spec.rb

@@ -6,18 +6,14 @@ describe Hamster::List do
 
   describe "#count" do
 
-    describe "doesn't run out of stack space on a really big" do
+    describe "on a really big list" do
 
-      it "stream" do
+      before do
         @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
       end
 
-      it "list" do
-        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-      end
-
-      after do
-        @list.count { true }
+      it "doesn't run out of stack" do
+        lambda { @list.count }.should_not raise_error
       end
 
     end

data/spec/hamster/list/cycle_spec.rb

@@ -6,38 +6,19 @@ describe Hamster do
 
   describe "#cycle" do
 
-    describe "doesn't run out of stack space on a really big" do
-
-      it "stream" do
-        @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-      end
-
-      it "list" do
-        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-      end
-
-      after do
-        @list.cycle
-      end
-
-    end
-
     it "is lazy" do
-      count = 0
-      list = Hamster.stream { count += 1 }
-      list.cycle
-      count.should <= 1
+      lambda { Hamster.stream { fail }.cycle }.should_not raise_error
     end
 
     describe "with an empty list" do
 
       before do
-        @original = Hamster.list
-        @result = @original.cycle
+        original = Hamster.list
+        @result = original.cycle
       end
 
-      it "returns self" do
-        @result.should equal(@original)
+      it "returns an empty list" do
+        @result.should be_empty
       end
 
     end

data/spec/hamster/list/drop_spec.rb

@@ -6,20 +6,8 @@ describe Hamster::List do
 
   describe "#drop" do
 
-    describe "doesn't run out of stack space on a really big" do
-
-      it "stream" do
-        @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-      end
-
-      it "list" do
-        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-      end
-
-      after do
-        @list.drop(STACK_OVERFLOW_DEPTH)
-      end
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.drop(1) }.should_not raise_error
     end
 
     [

data/spec/hamster/list/drop_while_spec.rb

@@ -6,20 +6,8 @@ describe Hamster::List do
 
   describe "#drop_while" do
 
-    describe "doesn't run out of stack space on a really big" do
-
-      it "stream" do
-        @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-      end
-
-      it "list" do
-        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-      end
-
-      after do
-        @list.drop_while { true }
-      end
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.drop_while { false } }.should_not raise_error
     end
 
     [

data/spec/hamster/list/each_spec.rb

@@ -8,18 +8,14 @@ describe Hamster::List do
 
     describe "##{method}" do
 
-      describe "doesn't run out of stack space on a really big" do
+      describe "on a really big list" do
 
-        it "stream" do
+        before do
           @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
-        it "list" do
-          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-        end
-
-        after do
-          @list.send(method) { }
+        it "doesn't run out of stack" do
+          lambda { @list.send(method) { |item| } }.should_not raise_error
         end
 
       end

data/spec/hamster/list/eql_spec.rb

@@ -8,20 +8,15 @@ describe Hamster::List do
 
     describe "##{method}" do
 
-      describe "doesn't run out of stack space on a really big" do
+      describe "on a really big list" do
 
-        it "stream" do
+        before do
           @a = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
           @b = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
-        it "list" do
-          @a = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-          @b = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-        end
-
-        after do
-          @a.send(method, @b)
+        it "doesn't run out of stack" do
+          lambda { @a.send(method, @b) }.should_not raise_error
         end
 
       end
@@ -32,7 +27,7 @@ describe Hamster::List do
           @list = Hamster.list("A", "B", "C")
         end
 
-        it "an array" do
+        it "an array with the same contents" do
           @list.send(method, ["A", "B", "C"]).should == false
         end
 
@@ -42,6 +37,10 @@ describe Hamster::List do
 
       end
 
+      it "returns false when comparing an empty list with an empty array" do
+        Hamster.list.send(method, []).should == false
+      end
+
       [
         [[], [], true],
         [[], [nil], false],