hamster 0.1.16 → 0.1.17

data/spec/hamster/list/cycle_spec.rb

@@ -0,0 +1,51 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+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, 10000)
+      end
+
+      it "list" do
+        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+      end
+
+      after do
+        @list.cycle
+      end
+
+    end
+
+    describe "with an empty list" do
+
+      before do
+        @list = Hamster.list.cycle
+      end
+
+      it "returns the empty list" do
+        @list.should equal(Hamster.list)
+      end
+
+    end
+
+    describe "with a non-empty list" do
+
+      before do
+        @list = Hamster.list("A", "B", "C").cycle
+      end
+
+      it "infinitely cycles through all values" do
+        @list.take(7).should == Hamster.list("A", "B", "C", "A", "B", "C", "A")
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/drop_spec.rb

@@ -8,16 +8,12 @@ describe Hamster::List do
 
     describe "doesn't run out of stack space on a really big" do
 
-      before do
-        @interval = Hamster.interval(0, 10000)
-      end
-
       it "stream" do
-        @list = @interval
+        @list = Hamster.interval(0, 10000)
       end
 
       it "list" do
-        @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do

data/spec/hamster/list/drop_while_spec.rb

@@ -8,16 +8,12 @@ describe Hamster::List do
 
     describe "doesn't run out of stack space on a really big" do
 
-      before do
-        @interval = Hamster.interval(0, 10000)
-      end
-
       it "stream" do
-        @list = @interval
+        @list = Hamster.interval(0, 10000)
       end
 
       it "list" do
-        @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do

data/spec/hamster/list/each_spec.rb

@@ -8,16 +8,12 @@ describe Hamster::List do
 
     describe "doesn't run out of stack space on a really big" do
 
-      before do
-        @interval = Hamster.interval(0, 10000)
-      end
-
       it "stream" do
-        @list = @interval
+        @list = Hamster.interval(0, 10000)
       end
 
       it "list" do
-        @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do
@@ -47,7 +43,7 @@ describe Hamster::List do
           end
 
           it "returns nil" do
-            @list.each { "flibble" }.should be_nil
+            @list.each {}.should be_nil
           end
 
         end

data/spec/hamster/list/empty_spec.rb

@@ -4,22 +4,26 @@ require 'hamster/list'
 
 describe Hamster::List do
 
-  describe "#empty?" do
+  [:empty?, :null?].each do |method|
 
-    [
-      [[], true],
-      [["A"], false],
-      [["A", "B", "C"], false],
-    ].each do |values, expected|
+    describe "##{method}" do
 
-      describe "on #{values.inspect}" do
+      [
+        [[], true],
+        [["A"], false],
+        [["A", "B", "C"], false],
+      ].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.empty?.should == expected
         end
 
       end

data/spec/hamster/list/eql_spec.rb

@@ -10,19 +10,14 @@ describe Hamster::List do
 
       describe "doesn't run out of stack space on a really big" do
 
-        before do
-          @interval_a = Hamster.interval(0, 10000)
-          @interval_b = Hamster.interval(0, 10000)
-        end
-
         it "stream" do
-          @a = @interval_a
-          @b = @interval_b
+          @a = Hamster.interval(0, 10000)
+          @b = Hamster.interval(0, 10000)
         end
 
         it "list" do
-          @a = @interval_a.reduce(Hamster.list) { |list, i| list.cons(i) }
-          @b = @interval_b.reduce(Hamster.list) { |list, i| list.cons(i) }
+          @a = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+          @b = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/filter_spec.rb

@@ -10,16 +10,12 @@ describe Hamster::List do
 
       describe "doesn't run out of stack space on a really big" do
 
-        before do
-          @interval = Hamster.interval(0, 10000)
-        end
-
         it "stream" do
-          @list = @interval
+          @list = Hamster.interval(0, 10000)
         end
 
         it "list" do
-          @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/find_spec.rb

@@ -10,16 +10,12 @@ describe Hamster::List do
 
       describe "doesn't run out of stack space on a really big" do
 
-        before do
-          @interval = Hamster.interval(0, 10000)
-        end
-
         it "stream" do
-          @list = @interval
+          @list = Hamster.interval(0, 10000)
         end
 
         it "list" do
-          @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/grep_spec.rb

@@ -0,0 +1,83 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+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, 10000)
+      end
+
+      it "list" do
+        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+      end
+
+      after do
+        @list.grep(Object)
+      end
+
+    end
+
+    describe "without a block" do
+
+      [
+        [[], []],
+        [["A"], ["A"]],
+        [[1], []],
+        [["A", 2, "C"], ["A", "C"]],
+      ].each do |values, expected|
+
+        describe "on #{values.inspect}" do
+
+          before do
+            @list = Hamster.list(*values)
+          end
+
+          it "returns #{expected.inspect}" do
+            @list.grep(String).should == Hamster.list(*expected)
+          end
+
+        end
+
+      end
+
+    end
+
+    describe "with a block" do
+
+      [
+        [[], []],
+        [["A"], ["a"]],
+        [[1], []],
+        [["A", 2, "C"], ["a", "c"]],
+      ].each do |values, expected|
+
+        describe "on #{values.inspect}" do
+
+          before do
+            @list = Hamster.list(*values)
+          end
+
+          it "returns #{expected.inspect}" do
+            @list.grep(String) { |item| item.downcase }.should == Hamster.list(*expected)
+          end
+
+          it "is lazy" do
+            count = 0
+            @list.grep(Object) { |item| count += 1; item }
+            count.should <= 1
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/include_spec.rb

@@ -10,16 +10,12 @@ describe Hamster::List do
 
       describe "doesn't run out of stack space on a really big" do
 
-        before do
-          @interval = Hamster.interval(0, 10000)
-        end
-
         it "stream" do
-          @list = @interval
+          @list = Hamster.interval(0, 10000)
         end
 
         it "list" do
-          @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/inspect_spec.rb

@@ -8,16 +8,12 @@ describe Hamster::List do
 
     describe "doesn't run out of stack space on a really big" do
 
-      before do
-        @interval = Hamster.interval(0, 10000)
-      end
-
       it "stream" do
-        @list = @interval
+        @list = Hamster.interval(0, 10000)
       end
 
       it "list" do
-        @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do

data/spec/hamster/list/map_spec.rb

@@ -10,16 +10,12 @@ describe Hamster::List do
 
       describe "doesn't run out of stack space on a really big" do
 
-        before do
-          @interval = Hamster.interval(0, 10000)
-        end
-
         it "stream" do
-          @list = @interval
+          @list = Hamster.interval(0, 10000)
         end
 
         it "list" do
-          @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do

data/spec/hamster/list/maximum_spec.rb

@@ -10,20 +10,16 @@ describe Hamster::List do
 
       describe "doesn't run out of stack space on a really big" do
 
-        before do
-          @interval = Hamster.interval(0, 10000)
-        end
-
         it "stream" do
-          @list = @interval
+          @list = Hamster.interval(0, 10000)
         end
 
         it "list" do
-          @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do
-          @interval.send(method)
+          @list.send(method)
         end
 
       end

data/spec/hamster/list/minimum_spec.rb

@@ -10,20 +10,16 @@ describe Hamster::List do
 
       describe "doesn't run out of stack space on a really big" do
 
-        before do
-          @interval = Hamster.interval(0, 10000)
-        end
-
         it "stream" do
-          @list = @interval
+          @list = Hamster.interval(0, 10000)
         end
 
         it "list" do
-          @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+          @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
         end
 
         after do
-          @interval.send(method)
+          @list.send(method)
         end
 
       end

data/spec/hamster/list/none_spec.rb

@@ -8,16 +8,12 @@ describe Hamster::List do
 
     describe "doesn't run out of stack space on a really big" do
 
-      before do
-        @interval = Hamster.interval(0, 10000)
-      end
-
       it "stream" do
-        @list = @interval
+        @list = Hamster.interval(0, 10000)
       end
 
       it "list" do
-        @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do

data/spec/hamster/list/one_spec.rb

@@ -8,20 +8,16 @@ describe Hamster::List do
 
     describe "doesn't run out of stack space on a really big" do
 
-      before do
-        @interval = Hamster.interval(0, 10000)
-      end
-
       it "stream" do
-        @list = @interval
+        @list = Hamster.interval(0, 10000)
       end
 
       it "list" do
-        @list = @interval.reduce(Hamster.list) { |list, i| list.cons(i) }
+        @list = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do
-        @interval.one? { false }
+        @list.one? { false }
       end
 
     end