hamster 0.1.19 → 0.1.20

data/spec/hamster/list/cadr_spec.rb

@@ -25,11 +25,16 @@ describe Hamster::List do
       describe "on #{values.inspect}" do
 
         before do
-          @list = Hamster.list(*values)
+          @original = Hamster.list(*values)
+          @result = @original.send(method)
+        end
+
+        it "preserves the original" do
+          @original.should == Hamster.list(*values)
         end
 
         it "returns #{expected.inspect}" do
-          @list.send(method).should == expected
+          @result.should == expected
         end
 
       end

data/spec/hamster/list/clear_spec.rb

@@ -0,0 +1,36 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster do
+
+  describe "#clear" do
+
+    [
+      [],
+      ["A"],
+      ["A", "B", "C"],
+    ].each do |values|
+
+      describe "on #{values}" do
+
+        before do
+          @original = Hamster.list(*values)
+          @result = @original.clear
+        end
+
+        it "preserves the original" do
+          @original.should == Hamster.list(*values)
+        end
+
+        it "returns an empty list" do
+          @result.should be_empty
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/copying_spec.rb

@@ -15,11 +15,12 @@ describe Hamster::List do
       describe "on #{values.inspect}" do
 
         before do
-          @list = Hamster.list(*values)
+          @original = Hamster.list(*values)
+          @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/cycle_spec.rb

@@ -9,11 +9,11 @@ describe Hamster 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
@@ -22,14 +22,22 @@ describe Hamster do
 
     end
 
+    it "is lazy" do
+      count = 0
+      list = Hamster.stream { count += 1 }
+      list.cycle
+      count.should <= 1
+    end
+
     describe "with an empty list" do
 
       before do
-        @list = Hamster.list.cycle
+        @original = Hamster.list
+        @result = @original.cycle
       end
 
-      it "returns the empty list" do
-        @list.should equal(Hamster.list)
+      it "returns self" do
+        @result.should equal(@original)
       end
 
     end
@@ -37,11 +45,16 @@ describe Hamster do
     describe "with a non-empty list" do
 
       before do
-        @list = Hamster.list("A", "B", "C").cycle
+        @original = Hamster.list("A", "B", "C")
+        @result = @original.cycle
+      end
+
+      it "preserves the original" do
+        @original.should == Hamster.list("A", "B", "C")
       end
 
       it "infinitely cycles through all values" do
-        @list.take(7).should == Hamster.list("A", "B", "C", "A", "B", "C", "A")
+        @result.take(7).should == Hamster.list("A", "B", "C", "A", "B", "C", "A")
       end
 
     end

data/spec/hamster/list/drop_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.drop(10000)
+        @list.drop(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.drop(number)
+        end
+
+        it "preserves the original" do
+          @original.should == Hamster.list(*values)
         end
 
         it "returns #{expected.inspect}" do
-          @list.drop(number).should == Hamster.list(*expected)
+          @result.should == Hamster.list(*expected)
         end
 
       end

data/spec/hamster/list/drop_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,21 +31,33 @@ 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.drop_while { |item| item < "C" }
+          end
+
+          it "preserves the original" do
+            @original.should == Hamster.list(*values)
+          end
+
           it "returns #{expected.inspect}" do
-            @list.drop_while { |item| item < "C" }.should == Hamster.list(*expected)
+            @result.should == Hamster.list(*expected)
           end
 
         end
 
         describe "without a block" do
 
+          before do
+            @result = @original.drop_while
+          end
+
           it "returns self" do
-            @list.drop_while.should equal(@list)
+            @result.should equal(@original)
           end
 
         end

data/spec/hamster/list/each_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,27 +31,34 @@ 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
+            @items = []
+            @result = @original.each { |value| @items << value }
+          end
+
           it "iterates over the items in order" do
-            items = []
-            @list.each { |value| items << value }
-            items.should == values
+            @items.should == values
           end
 
           it "returns nil" do
-            @list.each {}.should be_nil
+            @result.should be_nil
           end
 
         end
 
         describe "without a block" do
 
+          before do
+            @result = @original.each
+          end
+
           it "returns self" do
-            @list.each.should equal(@list)
+            @result.should equal(@original)
           end
 
         end

data/spec/hamster/list/empty_spec.rb

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

data/spec/hamster/list/eql_spec.rb

@@ -11,13 +11,13 @@ describe Hamster::List do
       describe "doesn't run out of stack space on a really big" do
 
         it "stream" do
-          @a = Hamster.interval(0, 10000)
-          @b = Hamster.interval(0, 10000)
+          @a = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
+          @b = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
         end
 
         it "list" do
-          @a = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
-          @b = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+          @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
@@ -33,11 +33,11 @@ describe Hamster::List do
         end
 
         it "an array" do
-          @list.send(method, ["A", "B", "C"]).should be_false
+          @list.send(method, ["A", "B", "C"]).should == false
         end
 
         it "an aribtrary object" do
-          @list.send(method, Object.new).should be_false
+          @list.send(method, Object.new).should == false
         end
 
       end

data/spec/hamster/list/filter_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,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 == item.upcase }
+            end
+
+            it "preserves the original" do
+              @original.should == Hamster.list(*values)
+            end
+
             it "returns #{expected.inspect}" do
-              @list.send(method) { |item| item == item.upcase }.should == Hamster.list(*expected)
+              @result.should == Hamster.list(*expected)
             end
 
             it "is lazy" do
               count = 0
-              @list.send(method) { |item| count += 1; true }
+              @original.send(method) { |item| count += 1; true }
               count.should <= 1
             end
 
@@ -55,7 +63,7 @@ describe Hamster::List do
           describe "without a block" do
 
             it "returns self" do
-              @list.send(method).should equal(@list)
+              @original.send(method).should equal(@original)
             end
 
           end

data/spec/hamster/list/find_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/grep_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
@@ -59,16 +59,21 @@ describe Hamster::List do
         describe "on #{values.inspect}" do
 
           before do
-            @list = Hamster.list(*values)
+            @original = Hamster.list(*values)
+            @result = @original.grep(String) { |item| item.downcase }
+          end
+
+          it "preserves the original" do
+            @original.should == Hamster.list(*values)
           end
 
           it "returns #{expected.inspect}" do
-            @list.grep(String) { |item| item.downcase }.should == Hamster.list(*expected)
+            @result.should == Hamster.list(*expected)
           end
 
           it "is lazy" do
             count = 0
-            @list.grep(Object) { |item| count += 1; item }
+            @original.grep(Object) { |item| count += 1; item }
             count.should <= 1
           end
 

data/spec/hamster/list/head_spec.rb

@@ -4,22 +4,26 @@ require 'hamster/list'
 
 describe Hamster::List do
 
-  describe "#head" do
+  [:head, :first].each do |method|
 
-    [
-      [[], nil],
-      [["A"], "A"],
-      [["A", "B", "C"], "A"],
-    ].each do |values, expected|
+    describe "##{method}" do
 
-      describe "on #{values.inspect}" do
+      [
+        [[], nil],
+        [["A"], "A"],
+        [["A", "B", "C"], "A"],
+      ].each do |values, expected|
 
-        before do
-          @list = Hamster.list(*values)
-        end
+        describe "on #{values.inspect}" do
+
+          before do
+            @list = Hamster.list(*values)
+          end
+
+          it "returns #{expected.inspect}" do
+            @list.send(method).should == expected
+          end
 
-        it "returns #{expected.inspect}" do
-          @list.head.should == expected
         end
 
       end