hamster 0.1.21 → 0.1.22

data/spec/hamster/list/last_spec.rb

@@ -0,0 +1,34 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  describe "#last" do
+
+    [
+      [[], nil],
+      [["A"], ["A"]],
+      [["A", "B", "C"], "C"],
+    ].each do |values, expected|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          original = Hamster.list(*values)
+          pending do
+            @result = original.last
+          end
+        end
+
+        it "returns #{expected.inspect}" do
+          @result.should == Hamster.list(*expected)
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/maximum_spec.rb

@@ -29,17 +29,18 @@ describe Hamster::List do
         [
           [[], nil],
           [["A"], "A"],
-          [["A", "B", "C"], "A"],
+          [["Ichi", "Ni", "San"], "Ichi"],
         ].each do |values, expected|
 
           describe "on #{values.inspect}" do
 
             before do
-              @list = Hamster.list(*values)
+              original = Hamster.list(*values)
+              @result = original.send(method) { |maximum, item| item.length <=> maximum.length }
             end
 
             it "returns #{expected.inspect}" do
-              @list.send(method) { |maximum, item| maximum <=> item }.should == expected
+              @result.should == expected
             end
 
           end
@@ -53,17 +54,18 @@ describe Hamster::List do
         [
           [[], nil],
           [["A"], "A"],
-          [["A", "B", "C"], "C"],
+          [["Ichi", "Ni", "San"], "San"],
         ].each do |values, expected|
 
           describe "on #{values.inspect}" do
 
             before do
-              @list = Hamster.list(*values)
+              original = Hamster.list(*values)
+              @result = original.send(method)
             end
 
             it "returns #{expected.inspect}" do
-              @list.send(method).should == expected
+              @result.should == expected
             end
 
           end

data/spec/hamster/list/minimum_spec.rb

@@ -29,17 +29,18 @@ describe Hamster::List do
         [
           [[], nil],
           [["A"], "A"],
-          [["A", "B", "C"], "C"],
+          [["Ichi", "Ni", "San"], "Ni"],
         ].each do |values, expected|
 
           describe "on #{values.inspect}" do
 
             before do
-              @list = Hamster.list(*values)
+              original = Hamster.list(*values)
+              @result = original.send(method) { |maximum, item| item.length <=> maximum.length }
             end
 
             it "returns #{expected.inspect}" do
-              @list.send(method) { |minimum, item| minimum <=> item }.should == expected
+              @result.should == expected
             end
 
           end
@@ -53,17 +54,18 @@ describe Hamster::List do
         [
           [[], nil],
           [["A"], "A"],
-          [["A", "B", "C"], "A"],
+          [["Ichi", "Ni", "San"], "Ichi"],
         ].each do |values, expected|
 
           describe "on #{values.inspect}" do
 
             before do
-              @list = Hamster.list(*values)
+              original = Hamster.list(*values)
+              @result = original.send(method)
             end
 
             it "returns #{expected.inspect}" do
-              @list.send(method).should == expected
+              @result.should == expected
             end
 
           end

data/spec/hamster/list/partition_spec.rb

@@ -58,7 +58,7 @@ describe Hamster::List do
       describe "with a block" do
 
         before do
-          @result = @original.partition { |item| (item %2) != 0 }
+          @result = @original.partition(&:odd?)
           @matches = @result.car
           @remainder = @result.cadr
         end
@@ -92,7 +92,7 @@ describe Hamster::List do
       describe "with a block" do
 
         before do
-          @result = @original.partition { |item| (item % 2) != 0 }
+          @result = @original.partition(&:odd?)
           @matches = @result.car
           @remainder = @result.cadr
         end
@@ -137,7 +137,7 @@ describe Hamster::List do
         describe "with a block" do
 
           before do
-            @result = @original.partition { |item| (item % 2) != 0 }
+            @result = @original.partition(&:odd?)
             @matches = @result.car
             @remainder = @result.cadr
           end

data/spec/hamster/list/sorting_spec.rb

@@ -0,0 +1,82 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  [
+    [:sort, lambda { |left, right| left.length <=> right.length }],
+    [:sort_by, lambda { |item| item.length }],
+  ].each do |method, comparator|
+
+    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
+
+      end
+
+      [
+        [[], []],
+        [["A"], ["A"]],
+        [["Ichi", "Ni", "San"], ["Ni", "San", "Ichi"]],
+      ].each do |values, expected|
+
+        describe "on #{values.inspect}" do
+
+          before do
+            @original = Hamster.list(*values)
+          end
+
+          describe "with a block" do
+
+            before do
+              @result = @original.send(method, &comparator)
+            end
+
+            it "preserves the original" do
+              @original.should == Hamster.list(*values)
+            end
+
+            it "returns #{expected.inspect}" do
+              @result.should == Hamster.list(*expected)
+            end
+
+          end
+
+          describe "without a block" do
+
+            before do
+              @result = @original.send(method)
+            end
+
+            it "preserves the original" do
+              @original.should == Hamster.list(*values)
+            end
+
+            it "returns #{expected.sort.inspect}" do
+              @result.should == Hamster.list(*expected.sort)
+            end
+
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/tail_spec.rb

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

data/spec/hamster/list/union_spec.rb

@@ -0,0 +1,68 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  [:union, :|].each do |method|
+
+    describe "#union" do
+
+      describe "doesn't run out of stack space on a really big" do
+
+        it "stream" do
+          @a = @b = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
+        end
+
+        it "list" do
+          @a = @b = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
+        end
+
+        after do
+          @a.send(method, @b)
+        end
+
+      end
+
+      it "is lazy" do
+        count = 0
+        a = Hamster.stream { count += 1 }
+        b = Hamster.stream { count += 1 }
+        result = a.send(method, b)
+        count.should <= 2
+      end
+
+      [
+        [[], [], []],
+        [["A"], [], ["A"]],
+        [["A", "B", "C"], [], ["A", "B", "C"]],
+      ].each do |a, b, expected|
+
+        describe "returns #{expected.inspect}" do
+
+          before do
+            @a = Hamster.list(*a)
+            @b = Hamster.list(*b)
+          end
+
+          it "for #{a.inspect} and #{b.inspect}"  do
+            @result = @a.send(method, @b)
+          end
+
+          it "for #{b.inspect} and #{a.inspect}"  do
+            @result = @b.send(method, @a)
+          end
+
+          after  do
+            @result.should == Hamster.list(*expected)
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/uniq_spec.rb

@@ -0,0 +1,57 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  [:uniq, :nub].each do |method|
+
+    describe "##{method}" do
+
+      describe "doesn't run out of stack space on a really big" do
+
+        it "stream" do
+          @list = Hamster.replicate(STACK_OVERFLOW_DEPTH, 0)
+        end
+
+        it "list" do
+          @list = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(0) }
+        end
+
+        after do
+          @list.send(method).each {}
+        end
+
+      end
+
+      [
+        [[], []],
+        [["A"], ["A"]],
+        [["A", "B", "C"], ["A", "B", "C"]],
+        [["A", "B", "A", "C", "C"], ["A", "B", "C"]],
+      ].each do |values, expected|
+
+        describe "on #{values.inspect}" do
+
+          before do
+            @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
+            @result.should == Hamster.list(*expected)
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/zip_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
-        @a = @b = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
+        @left = @right = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
       end
 
       it "list" do
-        @a = @b = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
+        @left = @right = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
       end
 
       after do
-        @a.zip(@b)
+        @left.zip(@right)
       end
 
     end

data/spec/hamster/set/count_spec.rb

@@ -0,0 +1,54 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/set'
+
+describe Hamster::Set do
+
+  describe "#count" do
+
+    [
+      [[], 0],
+      [[1], 1],
+      [[1, 2], 1],
+      [[1, 2, 3], 2],
+      [[1, 2, 3, 4], 2],
+      [[1, 2, 3, 4, 5], 3],
+    ].each do |values, expected|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          @original = Hamster.set(*values)
+        end
+
+        describe "with a block" do
+
+          before do
+            @result = @original.count(&:odd?)
+          end
+
+          it "returns #{expected.inspect}" do
+            @result.should == expected
+          end
+
+        end
+
+        describe "without a block" do
+
+          before do
+            @result = @original.count
+          end
+
+          it "returns length" do
+            @result.should == @original.length
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end