hamster 0.1.19 → 0.1.20

data/spec/hamster/list/reverse_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
@@ -31,11 +31,16 @@ describe Hamster::List do
       describe "on #{values.inspect}" do
 
         before do
-          @list = Hamster.list(*values)
+          @original = Hamster.list(*values)
+          @result = @original.reverse { |item| item.downcase }
+        end
+
+        it "preserves the original" do
+          @original.should == Hamster.list(*values)
         end
 
         it "returns #{expected.inspect}" do
-          @list.reverse { |item| item.downcase }.should == Hamster.list(*expected)
+          @result.should == Hamster.list(*expected)
         end
 
       end

data/spec/hamster/list/size_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/span_spec.rb

@@ -0,0 +1,183 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+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"
+
+    end
+
+    [
+      [[], [], []],
+      [[1], [1], []],
+      [[1, 2], [1, 2], []],
+      [[1, 2, 3], [1, 2], [3]],
+      [[1, 2, 3, 4], [1, 2], [3, 4]],
+      [[2, 3, 4], [2], [3, 4]],
+      [[3, 4], [], [3, 4]],
+      [[4], [], [4]],
+    ].each do |values, expected_prefix, expected_remainder|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          @original = Hamster.list(*values)
+        end
+
+        describe "with a block" do
+
+          before do
+            @result = @original.span { |item| item <= 2 }
+            @prefix = @result.car
+            @remainder = @result.cadr
+          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 prefix" do
+            @prefix.should == Hamster.list(*expected_prefix)
+          end
+
+          it "correctly identifies the remainder" do
+            @remainder.should == Hamster.list(*expected_remainder)
+          end
+
+        end
+
+        it_should_behave_like "#span without a block"
+
+        it_should_behave_like "#span is lazy"
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/split_at_spec.rb

@@ -9,44 +9,58 @@ 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
-        @list.split_at(5000)
+        @list.split_at(STACK_OVERFLOW_DEPTH)
       end
 
     end
 
-    describe "on an empty list" do
+    describe "on a stream" do
 
       before do
-        splits = Hamster.list.split_at(4)
-        @prefix = splits.car
-        @remainder = splits.cadr
+        count = 0
+        counter = Hamster.stream { count += 1 }
+        @result = counter.split_at(5)
+        @prefix = @result.car
+        @remainder = @result.cadr
       end
 
-      it "returns the empty list for the prefix" do
-        @prefix.should equal(Hamster.list)
+      it "returns a list with two items" do
+        @result.size.should == 2
       end
 
-      it "returns the empty list for the remainder" do
-        @remainder.should equal(Hamster.list)
+      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 a non-empty list" do
+    describe "on an interval" do
 
       before do
-        interval = Hamster.interval(1, 11)
-        splits = interval.split_at(5)
-        @prefix = splits.car
-        @remainder = splits.cadr
+        @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
@@ -54,7 +68,44 @@ describe Hamster::List do
       end
 
       it "correctly identifies the remainder" do
-        @remainder.should == Hamster.list(6, 7, 8, 9, 10, 11)
+        @remainder.should == Hamster.list(6, 7, 8, 9, 10)
+      end
+
+    end
+
+    [
+      [[], [], []],
+      [[1], [1], []],
+      [[1, 2], [1, 2], []],
+      [[1, 2, 3], [1, 2], [3]],
+      [[1, 2, 3, 4], [1, 2], [3, 4]],
+    ].each do |values, expected_prefix, expected_remainder|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          @original = Hamster.list(*values)
+          @result = @original.split_at(2)
+          @prefix = @result.car
+          @remainder = @result.cadr
+        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
+          @prefix.should == Hamster.list(*expected_prefix)
+        end
+
+        it "correctly identifies the remainder" do
+          @remainder.should == Hamster.list(*expected_remainder)
+        end
+
       end
 
     end

data/spec/hamster/list/tail_spec.rb

@@ -15,11 +15,11 @@ describe Hamster::List do
       describe "on #{values.inspect}" do
 
         before do
-          @list = Hamster.list(*values)
+          @result = Hamster.list(*values).tail
         end
 
         it "returns #{expected.inspect}" do
-          @list.tail.should == Hamster.list(*expected)
+          @result.should == Hamster.list(*expected)
         end
 
       end

data/spec/hamster/list/take_spec.rb

@@ -9,15 +9,15 @@ 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
-        @list.take(10000)
+        @list.take(STACK_OVERFLOW_DEPTH)
       end
 
     end
@@ -33,11 +33,16 @@ describe Hamster::List do
       describe "#{number} from #{values.inspect}" do
 
         before do
-          @list = Hamster.list(*values)
+          @original = Hamster.list(*values)
+          @result = @original.take(number)
+        end
+
+        it "preserves the original" do
+          @original.should == Hamster.list(*values)
         end
 
         it "returns #{expected.inspect}" do
-          @list.take(number).should == Hamster.list(*expected)
+          @result.should == Hamster.list(*expected)
         end
 
       end

data/spec/hamster/list/take_while_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
@@ -31,18 +31,23 @@ describe Hamster::List do
       describe "on #{values.inspect}" do
 
         before do
-          @list = Hamster.list(*values)
+          @original = Hamster.list(*values)
+          @result = @original.take_while { |item| item < "C" }
         end
 
         describe "with a block" do
 
           it "returns #{expected.inspect}" do
-            @list.take_while { |item| item < "C" }.should == Hamster.list(*expected)
+            @result.should == Hamster.list(*expected)
+          end
+
+          it "preserves the original" do
+            @original.should == Hamster.list(*values)
           end
 
           it "is lazy" do
             count = 0
-            @list.take_while { |item| count += 1; true }
+            @original.take_while { |item| count += 1; true }
             count.should <= 1
           end
 
@@ -50,8 +55,12 @@ describe Hamster::List do
 
         describe "without a block" do
 
+          before do
+            @result = @original.take_while
+          end
+
           it "returns self" do
-            @list.take_while.should equal(@list)
+            @result.should equal(@original)
           end
 
         end