hamster 0.1.16 → 0.1.17

data/spec/hamster/list/partition_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
@@ -32,16 +28,16 @@ describe Hamster::List do
         count = 0
         counter = Hamster.stream { count += 1 }
         partitions = counter.partition { |item| item %2 != 0 }
-        @odds = partitions.car.take(5).to_a
-        @evens = partitions.cadr.take(5).to_a
+        @matches = partitions.car
+        @remainder = partitions.cadr
       end
 
       it "correctly identifies the matches" do
-        @odds.should == [1, 3, 5, 7, 9]
+        @matches.take(5).should == Hamster.list(1, 3, 5, 7, 9)
       end
 
       it "correctly identifies the remainder" do
-        @evens.should == [2, 4, 6, 8, 10]
+        @remainder.take(5).should == Hamster.list(2, 4, 6, 8, 10)
       end
 
     end
@@ -56,16 +52,16 @@ describe Hamster::List do
 
         before do
           result = @original.partition { |item| (item % 2) != 0 }
-          @matching = result.car.to_a
-          @remainder = result.cadr.to_a
+          @matching = result.car
+          @remainder = result.cadr
         end
 
         it "correctly identifies the matches" do
-          @matching.should == [1, 3, 5, 7, 9]
+          @matching.should == Hamster.list(1, 3, 5, 7, 9)
         end
 
         it "correctly identifies the remainder" do
-          @remainder.should == [0, 2, 4, 6, 8, 10]
+          @remainder.should == Hamster.list(0, 2, 4, 6, 8, 10)
         end
 
       end

data/spec/hamster/list/reduce_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/reject_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/reverse_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/size_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/split_at_spec.rb

@@ -0,0 +1,64 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  describe "#split_at" 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.split_at(5000)
+      end
+
+    end
+
+    describe "on an empty list" do
+
+      before do
+        splits = Hamster.list.split_at(4)
+        @prefix = splits.car
+        @remainder = splits.cadr
+      end
+
+      it "returns the empty list for the prefix" do
+        @prefix.should equal(Hamster.list)
+      end
+
+      it "returns the empty list for the remainder" do
+        @remainder.should equal(Hamster.list)
+      end
+
+    end
+
+    describe "on a non-empty list" do
+
+      before do
+        interval = Hamster.interval(1, 11)
+        splits = interval.split_at(5)
+        @prefix = splits.car
+        @remainder = splits.cadr
+      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, 11)
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/take_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/take_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/to_a_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/to_ary_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/zip_spec.rb

@@ -0,0 +1,50 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/list'
+
+describe Hamster::List do
+
+  describe "#zip" do
+
+    describe "doesn't run out of stack space on a really big" do
+
+      it "stream" do
+        @a = @b = Hamster.interval(0, 10000)
+      end
+
+      it "list" do
+        @a = @b = (0..10000).reduce(Hamster.list) { |list, i| list.cons(i) }
+      end
+
+      after do
+        @a.zip(@b)
+      end
+
+    end
+
+    [
+      [[], [], []],
+      [["A"], ["aye"], [Hamster.list("A", "aye")]],
+      [["A"], [], [Hamster.list("A", nil)]],
+      [[], ["A"], [Hamster.list(nil, "A")]],
+      [["A", "B", "C"], ["aye", "bee", "see"], [Hamster.list("A", "aye"), Hamster.list("B", "bee"), Hamster.list("C", "see")]],
+    ].each do |a, b, expected|
+
+      describe "on #{a.inspect} and #{b.inspect}" do
+
+        before do
+          @a = Hamster.list(*a)
+          @b = Hamster.list(*b)
+        end
+
+        it "returns #{expected.inspect}" do
+          @a.zip(@b).should == Hamster.list(*expected)
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/set/empty_spec.rb

@@ -4,16 +4,28 @@ require 'hamster/set'
 
 describe Hamster::Set do
 
-  describe "#empty?" do
+  [:empty?, :null?].each do |method|
 
-    [
-      [[], true],
-      [["A"], false],
-      [["A", "B", "C"], false],
-    ].each do |values, result|
+    describe "##{method}" do
+
+      [
+        [[], true],
+        [["A"], false],
+        [["A", "B", "C"], false],
+      ].each do |values, expected|
+
+        describe "on #{values.inspect}" do
+
+          before do
+            @set = Hamster.set(*values)
+          end
+
+          it "returns #{expected.inspect}" do
+            @set.send(method).should == expected
+          end
+
+        end
 
-      it "returns #{result} for #{values.inspect}" do
-        Hamster.set(*values).empty?.should == result
       end
 
     end

data/spec/hamster/set/grep_spec.rb

@@ -0,0 +1,62 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/set'
+
+describe Hamster::Set do
+
+  describe "#grep" do
+
+    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.set(*values)
+          end
+
+          it "returns #{expected.inspect}" do
+            @list.grep(String).should == Hamster.set(*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.set(*values)
+          end
+
+          it "returns #{expected.inspect}" do
+            @list.grep(String) { |item| item.downcase }.should == Hamster.set(*expected)
+          end
+
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/set/to_list.rb

@@ -0,0 +1,46 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/set'
+
+describe Hamster::Set do
+
+  describe "#to_list" do
+
+    [
+      [],
+      ["A"],
+      ["A", "B", "C"],
+    ].each do |values|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          set = Hamster.set(*values)
+          @list = set.to_list
+        end
+
+        it "returns a list" do
+          @list.is_a?(Hamster::List).should be_true
+        end
+
+        describe "the returned list" do
+
+          it "has the correct length" do
+            @list.size.should == values.size
+          end
+
+          it "contains all values" do
+            values.each do |value|
+              @list.should include(value)
+            end
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end