hamster 0.1.23 → 0.2.0

data/spec/hamster/list/filter_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
-          @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) { false }
-        end
-
+      it "is lazy" do
+        lambda { Hamster.stream { fail }.filter { |item| false } }.should_not raise_error
       end
 
       [
@@ -52,12 +40,6 @@ describe Hamster::List do
               @result.should == Hamster.list(*expected)
             end
 
-            it "is lazy" do
-              count = 0
-              @original.send(method) { |item| count += 1; true }
-              count.should <= 1
-            end
-
           end
 
           describe "without a block" do

data/spec/hamster/list/find_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) { false }
+        it "doesn't run out of stack" do
+          lambda { @list.send(method) { false } }.should_not raise_error
         end
 
       end

data/spec/hamster/list/grep_spec.rb

@@ -6,20 +6,8 @@ describe Hamster::List do
 
   describe "#grep" 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.grep(Object)
-      end
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.grep(Object) { |item| item } }.should_not raise_error
     end
 
     describe "without a block" do
@@ -71,12 +59,6 @@ describe Hamster::List do
             @result.should == Hamster.list(*expected)
           end
 
-          it "is lazy" do
-            count = 0
-            @original.grep(Object) { |item| count += 1; item }
-            count.should <= 1
-          end
-
         end
 
       end

data/spec/hamster/list/include_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, nil)
+        it "doesn't run out of stack" do
+          lambda { @list.send(method, nil) }.should_not raise_error
         end
 
       end

data/spec/hamster/list/init_spec.rb

@@ -6,6 +6,10 @@ describe Hamster::List do
 
   describe "#init" do
 
+    it "is lazy" do
+      lambda { Hamster.stream { false }.init }.should_not raise_error
+    end
+
     [
       [[], []],
       [["A"], []],

data/spec/hamster/list/inits_spec.rb

@@ -0,0 +1,42 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  describe "#inits" do
+
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.inits }.should_not raise_error
+    end
+
+    [
+      [[], [[]]],
+      [["A"], [[], ["A"]]],
+      [["A", "B", "C"], [[], ["A"], ["A", "B"], ["A", "B", "C"]]],
+    ].each do |values, expected|
+
+      expected = expected.map { |x| Hamster.list(*x) }
+
+      describe "on #{values.inspect}" do
+
+        before do
+          @original = Hamster.list(*values)
+          @result = @original.inits
+        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

data/spec/hamster/list/inspect_spec.rb

@@ -6,18 +6,14 @@ describe Hamster::List do
 
   describe "#inspect" 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.inspect
+      it "doesn't run out of stack" do
+        lambda { @list.inspect }.should_not raise_error
       end
 
     end

data/spec/hamster/list/intersperse_spec.rb

@@ -6,20 +6,8 @@ describe Hamster::List do
 
   describe "#intersperse" 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.intersperse(":")
-      end
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.intersperse("") }.should_not raise_error
     end
 
     [

data/spec/hamster/list/join_spec.rb

@@ -6,18 +6,14 @@ describe Hamster::List do
 
   describe "#join" 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.join
+      it "doesn't run out of stack" do
+        lambda { @list.join }.should_not raise_error
       end
 
     end

data/spec/hamster/list/last_spec.rb

@@ -6,18 +6,14 @@ describe Hamster::List do
 
   describe "#last" 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.last
+      it "doesn't run out of stack" do
+        lambda { @list.last }.should_not raise_error
       end
 
     end

data/spec/hamster/list/map_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
-          @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) { |item| item }
-        end
-
+      it "is lazy" do
+        lambda { Hamster.stream { fail }.map { |item| item } }.should_not raise_error
       end
 
       [

data/spec/hamster/list/maximum_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) }.should_not raise_error
         end
 
       end

data/spec/hamster/list/minimum_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) }.should_not raise_error
         end
 
       end

data/spec/hamster/list/none_spec.rb

@@ -6,18 +6,14 @@ describe Hamster::List do
 
   describe "#none?" 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.none? { false }
+      it "doesn't run out of stack" do
+        lambda { @list.none? { false } }.should_not raise_error
       end
 
     end

data/spec/hamster/list/one_spec.rb

@@ -6,18 +6,14 @@ describe Hamster::List do
 
   describe "#one?" 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.one? { false }
+      it "doesn't run out of stack" do
+        lambda { @list.one? { false } }.should_not raise_error
       end
 
     end

data/spec/hamster/list/partition_spec.rb

@@ -4,117 +4,10 @@ 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, STACK_OVERFLOW_DEPTH)
-      end
-
-      it "list" do
-        @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-      end
-
-      after do
-        @list.partition { |item| item % 2 == 0 }
-      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.partition(&:odd?)
-          @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
-
-      end
-
-      it_should_behave_like "#partition without a block"
-
-      it_should_behave_like "#partition is lazy"
-
-    end
-
-    describe "on an interval" do
-
-      before do
-        @original = Hamster.interval(0, 10)
-      end
-
-      describe "with a block" do
-
-        before do
-          @result = @original.partition(&:odd?)
-          @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.should == Hamster.list(1, 3, 5, 7, 9)
-        end
-
-        it "correctly identifies the remainder" do
-          @remainder.should == Hamster.list(0, 2, 4, 6, 8, 10)
-        end
-
-      end
-
-      it_should_behave_like "#partition without a block"
-
-      it_should_behave_like "#partition is lazy"
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.partition }.should_not raise_error
     end
 
     [
@@ -160,9 +53,17 @@ describe Hamster::List do
 
         end
 
-        it_should_behave_like "#partition without a block"
+        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 is lazy"
+        end
 
       end