hamster 0.1.14 → 0.1.15

data/spec/hamster/list/any_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:any?, :exist?, :exists?].each do |method|

data/spec/hamster/list/append_spec.rb

@@ -0,0 +1,65 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  [:append, :concat, :cat, :+].each do |method|
+
+    describe "##{method}" do
+
+      describe "on two really big lists" do
+
+        before do
+          @a = Hamster.interval(0, 10000)
+          @b = Hamster.interval(0, 10000)
+        end
+
+        it "doesn't run out of stack space" do
+          @a.send(method, @b)
+        end
+
+      end
+
+      [
+        [[], [], []],
+        [["A"], [], ["A"]],
+        [[], ["A"], ["A"]],
+        [["A", "B"], ["C", "D"], ["A", "B", "C", "D"]],
+      ].each do |left_values, right_values, expected|
+
+        describe "on #{left_values.inspect} and #{right_values.inspect}" do
+
+          before do
+            @left = Hamster.list(*left_values)
+            @right = Hamster.list(*right_values)
+            @result = @left.append(@right)
+          end
+
+          it "preserves the left" do
+            @left.should == Hamster.list(*left_values)
+          end
+
+          it "preserves the right" do
+            @right.should == Hamster.list(*right_values)
+          end
+
+          it "returns #{expected.inspect}" do
+            @result.should == Hamster.list(*expected)
+          end
+
+        end
+
+      end
+
+      it "is lazy" do
+        count = 0
+        Hamster.stream { |item| count += 1 }.append(Hamster.list("A"))
+        count.should <= 1
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/cadr_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#cadr" do

data/spec/hamster/list/cons_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:cons, :>>].each do |method|

data/spec/hamster/list/construction_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster do
 
   describe ".list" do

data/spec/hamster/list/copying_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:dup, :clone].each do |method|

data/spec/hamster/list/drop_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#drop" do

data/spec/hamster/list/drop_while_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#drop_while" do

data/spec/hamster/list/each_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#each" do

data/spec/hamster/list/empty_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#empty?" do

data/spec/hamster/list/eql_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:eql?, :==].each do |method|

data/spec/hamster/list/filter_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:filter, :select, :find_all].each do |method|

data/spec/hamster/list/find_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:find, :detect].each do |method|

data/spec/hamster/list/head_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#head" do

data/spec/hamster/list/include_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:include?, :member?].each do |method|

data/spec/hamster/list/inspect_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#inspect" do

data/spec/hamster/list/map_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:map, :collect].each do |method|

data/spec/hamster/list/none_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#none?" do

data/spec/hamster/list/partition_spec.rb

@@ -0,0 +1,101 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  describe "#partition" do
+
+    describe "on a really big list" do
+
+      before do
+        @list = Hamster.interval(0, 10000)
+      end
+
+      it "doesn't run out of stack space" do
+        @list.partition {}
+      end
+
+    end
+
+    describe "on a lazy list" do
+
+      before do
+        @original = Hamster.interval(0, 10)
+      end
+
+      describe "with a block" do
+
+        before do
+          result = @original.partition { |item| (item % 2) != 0 }
+          @matching = result.car
+          @remainder = result.cadr
+        end
+
+        it "correctly identifies the matches" do
+          @matching.should == Hamster.list(1, 3, 5, 7, 9)
+        end
+
+        it "correctly identifies the remainder" do
+          @remainder.should == Hamster.list(0, 2, 4, 6, 8, 10)
+        end
+
+      end
+
+      describe "without a block" do
+
+        before do
+          @result = @original.partition
+        end
+
+        it "returns self" do
+          @result.should equal(@original)
+        end
+
+      end
+
+    end
+
+    [
+      [[], [], []],
+      [[1], [1], []],
+      [[1, 2], [1], [2]],
+      [[1, 2, 3], [1, 3], [2]],
+      [[1, 2, 3, 4], [1, 3], [2, 4]],
+      [[2, 3, 4], [3], [2, 4]],
+      [[3, 4], [3], [4]],
+      [[4], [], [4]],
+    ].each do |values, expected_matches, expected_remainder|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          @original = Hamster.list(*values)
+          @partitions = @original.partition { |item| (item % 2) != 0 }
+          @matches = @partitions.car
+          @remainder = @partitions.cadr
+        end
+
+        it "preserves the original" do
+          @original.should == Hamster.list(*values)
+        end
+
+        it "returns a list with two items" do
+          @partitions.size.should == 2
+        end
+
+        it "correctly identifies the matches" do
+          @matches.should == Hamster.list(*expected_matches)
+        end
+
+        it "correctly identifies the remainder" do
+          @remainder.should == Hamster.list(*expected_remainder)
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/reduce_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:reduce, :inject, :fold].each do |method|

data/spec/hamster/list/reject_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:reject, :delete_if].each do |method|

data/spec/hamster/list/reverse_spec.rb

@@ -0,0 +1,43 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  describe "#reverse" do
+
+    describe "on a really big list" do
+
+      before do
+        @list = Hamster.interval(0, 10000)
+      end
+
+      it "doesn't run out of stack space" do
+        @list.reverse
+      end
+
+    end
+
+    [
+      [[], []],
+      [["A"], ["A"]],
+      [["A", "B", "C"], ["C", "B", "A"]],
+    ].each do |values, expected|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          @list = Hamster.list(*values)
+        end
+
+        it "returns #{expected}" do
+          @list.reverse { |item| item.downcase }.should == Hamster.list(*expected)
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/size_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   [:size, :length].each do |method|

data/spec/hamster/list/tail_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#tail" do

data/spec/hamster/list/take_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#take" do

data/spec/hamster/list/take_while_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#take_while" do

data/spec/hamster/list/to_a_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#to_a" do

data/spec/hamster/list/to_ary_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/list'
+
 describe Hamster::List do
 
   describe "#to_ary" do

data/spec/hamster/set/add_spec.rb

@@ -1,5 +1,7 @@
 require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
+require 'hamster/set'
+
 describe Hamster::Set do
 
   [:add, :<<].each do |method|