hamster 0.1.23 → 0.2.0

data/spec/hamster/list/product_spec.rb

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

data/spec/hamster/list/reduce_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.reduce(&:+) }.should_not raise_error
         end
 
       end

data/spec/hamster/list/remove_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) { true }
-        end
-
+      it "is lazy" do
+        lambda { Hamster.stream { fail }.send(method) { |item| false } }.should_not raise_error
       end
 
       [

data/spec/hamster/list/reverse_spec.rb

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

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

data/spec/hamster/list/sorting_spec.rb

@@ -11,20 +11,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)
-        end
-
+      it "is lazy" do
+        lambda { Hamster.stream { fail }.send(method, &comparator) }.should_not raise_error
       end
 
       [

data/spec/hamster/list/span_spec.rb

@@ -4,127 +4,10 @@ require 'hamster/list'
 
 describe Hamster::List do
 
-  shared_examples_for "#span without a block" do
-
-    describe "without a block" do
-
-      before do
-        @result = @original.span
-        @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 "#span is lazy" do
-
-    it "is lazy" do
-      count = 0
-      @original.span { |item| count += 1; true }
-      count.should <= 1
-    end
-
-  end
-
   describe "#span" 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.span { |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.span { |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 "#span without a block"
-
-      it_should_behave_like "#span 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.span { |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 "#span without a block"
-
-      it_should_behave_like "#span is lazy"
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.span { true } }.should_not raise_error
     end
 
     [
@@ -170,9 +53,27 @@ describe Hamster::List do
 
         end
 
-        it_should_behave_like "#span without a block"
+        describe "without a block" do
+
+          before do
+            @result = @original.span
+            @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 "#span is lazy"
+          it "leaves the remainder empty" do
+            @remainder.should be_empty
+          end
+
+        end
 
       end
 

data/spec/hamster/list/split_at_spec.rb

@@ -6,71 +6,8 @@ describe Hamster::List do
 
   describe "#split_at" 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.split_at(STACK_OVERFLOW_DEPTH)
-      end
-
-    end
-
-    describe "on a stream" do
-
-      before do
-        count = 0
-        counter = Hamster.stream { count += 1 }
-        @result = counter.split_at(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
-
-    describe "on an interval" do
-
-      before do
-        @original = Hamster.interval(1, 10)
-        @result = @original.split_at(5)
-        @prefix = @result.car
-        @remainder = @result.cadr
-      end
-
-      it "preserves the original" do
-        @original.should == Hamster.interval(1, 10)
-      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
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.split_at(1) }.should_not raise_error
     end
 
     [

data/spec/hamster/list/sum_spec.rb

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

data/spec/hamster/list/tails_spec.rb

@@ -0,0 +1,42 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  describe "#tails" do
+
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.tails }.should_not raise_error
+    end
+
+    [
+      [[], [[]]],
+      [["A"], [["A"], []]],
+      [["A", "B", "C"], [["A", "B", "C"], ["B", "C"], ["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.tails
+        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/take_spec.rb

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