hamster 0.1.8 → 0.1.11

data/spec/hamster/list/each_spec.rb

@@ -4,38 +4,38 @@ describe Hamster::List do
 
   describe "#each" do
 
-    before do
-      @expected_values = (0..100).to_a
-      @list = Hamster::List.new
-      @expected_values.reverse.each { |value| @list = @list.cons(value) }
-    end
+    [
+      [],
+      ["A"],
+      ["A", "B", "C"],
+    ].each do |values|
 
-    describe "with a block (internal iteration)" do
+      describe "on #{values.inspect}" do
 
-      it "returns self" do
-        @list.each {}.should equal(@list)
-      end
+        list = Hamster.list(*values)
+
+        describe "with a block" do
+
+          it "iterates over the items in order" do
+            items = []
+            list.each { |value| items << value }
+            items.should == values
+          end
+
+          it "returns nil" do
+            list.each {}.should be_nil
+          end
 
-      it "yields all key value pairs" do
-        actual_values = []
-        @list.each do |value|
-          actual_values << value
         end
-        actual_values.should == @expected_values
-      end
 
-    end
+        describe "without a block" do
 
-    describe "with no block (external iteration)" do
+          it "returns self" do
+            list.each.should == list
+          end
 
-      it "returns an enumerator over all key value pairs" do
-        actual_values = []
-        enum = @list.each
-        loop do
-          value = enum.next
-          actual_values << value
         end
-        actual_values.should == @expected_values
+
       end
 
     end

data/spec/hamster/list/empty_spec.rb

@@ -4,13 +4,22 @@ describe Hamster::List do
 
   describe "#empty?" do
 
-    it "initially returns true" do
-      Hamster::List.new.should be_empty
-    end
+    [
+      [[], true],
+      [["A"], false],
+      [["A", "B", "C"], false],
+    ].each do |values, result|
+
+      describe "on #{values.inspect}" do
+
+        list = Hamster.list(*values)
+
+        it "returns #{result}" do
+          list.empty?.should == result
+        end
+
+      end
 
-    it "returns false once items have been added" do
-      list = Hamster::List.new.cons("A")
-      list.should_not be_empty
     end
 
   end

data/spec/hamster/list/eql_spec.rb

@@ -2,15 +2,35 @@ require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
 describe Hamster::List do
 
-  describe "#eql?" do
+  [:eql?, :==].each do |method|
 
-    it "is true for the same instance" do
-      list = Hamster::List.new
-      list.should eql(list)
-    end
+    describe "##{method}" do
+
+      [
+        [[], [], true],
+        [["A"], [], false],
+        [[], ["A"], false],
+        [["A"], ["A"], true],
+        [["A"], ["B"], false],
+        [["A", "B"], ["A"], false],
+        [["A"], ["A", "B"], false],
+        [["A", "B", "C"], ["A", "B", "C"], true],
+        [["C", "A", "B"], ["A", "B", "C"], false],
+      ].each do |a, b, result|
+
+        describe "on #{a.inspect} and #{b.inspect}" do
+
+          a = Hamster.list(*a)
+          b = Hamster.list(*b)
+
+          it "returns #{result}" do
+            a.send(method, b).should == result
+          end
+
+        end
+
+      end
 
-    it "is true for two empty instances" do
-      Hamster::List.new.should eql(Hamster::List.new)
     end
 
   end

data/spec/hamster/list/filter_spec.rb

@@ -0,0 +1,51 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  [:filter, :select].each do |method|
+
+    describe "#filter" do
+
+      [
+        [[], []],
+        [["A"], ["A"]],
+        [["A", "B", "C"], ["A", "B", "C"]],
+        [["A", "b", "C"], ["A", "C"]],
+        [["a", "b", "c"], []],
+      ].each do |values, result|
+
+        describe "on #{values.inspect}" do
+
+          list = Hamster.list(*values)
+
+          describe "with a block" do
+
+            it "returns #{result}" do
+              list.send(method) { |item| item == item.upcase }.should == Hamster.list(*result)
+            end
+
+            it "is lazy" do
+              count = 0
+              list.send(method) { |item| count += 1; true }
+              count.should <= 1
+            end
+
+          end
+
+          describe "without a block" do
+
+            it "returns self" do
+              list.send(method).should == list
+            end
+
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/head_spec.rb

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

data/spec/hamster/list/include_spec.rb

@@ -0,0 +1,37 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  [:include?, :member?].each do |method|
+
+    describe "##{method}" do
+
+      [
+        [[], "A", false],
+        [[], nil, false],
+        [["A"], "A", true],
+        [["A"], "B", false],
+        [["A"], nil, false],
+        [["A", "B", nil], "A", true],
+        [["A", "B", nil], "B", true],
+        [["A", "B", nil], nil, true],
+        [["A", "B", nil], "C", false],
+      ].each do |values, item, result|
+
+        describe "on #{values.inspect}" do
+
+          list = Hamster.list(*values)
+
+          it "returns #{result}" do
+            list.send(method, item).should == result
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/lazy_spec.rb

@@ -0,0 +1,21 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  describe "laziness" do
+
+    def prime?(n)
+      2.upto(Math.sqrt(n).round) { |i| return false if n % i == 0 }
+      true
+    end
+
+    it "primes" do
+      numbers = Hamster.interval(10000, 1000000)
+      primes = numbers.filter { |i| prime?(i) }
+      primes.take(3)
+
+    end
+
+  end
+
+end

data/spec/hamster/list/map_spec.rb

@@ -4,34 +4,36 @@ describe Hamster::List do
 
   describe "#map" do
 
-    it "initially returns self" do
-      list = Hamster::List.new
-      list.map {}.should equal(list)
-    end
+    [
+      [[], []],
+      [["A"], ["a"]],
+      [["A", "B", "C"], ["a", "b", "c"]],
+    ].each do |values, result|
 
-    describe "when not empty" do
+      describe "on #{values.inspect}" do
 
-      before do
-        @original = Hamster::List.new.cons(1).cons(2).cons(3).cons(4)
-        @copy = @original.map { |i| i + 5 }
-      end
+        list = Hamster.list(*values)
 
-      it "returns a modified copy" do
-        @copy.should_not equal(@original)
-      end
+        describe "with a block" do
 
-      describe "the original" do
+          it "returns #{result}" do
+            list.map { |item| item.downcase }.should == Hamster.list(*result)
+          end
+
+          it "is lazy" do
+            count = 0
+            list.map { |item| count += 1 }
+            count.should <= 1
+          end
 
-        it "has the original values" do
-          @original.to_enum.to_a.should == [4, 3, 2, 1]
         end
 
-      end
+        describe "without a block" do
 
-      describe "the modified copy" do
+          it "returns self" do
+            list.map.should == list
+          end
 
-        it "has the mapped values" do
-          @copy.to_enum.to_a.should == [9, 8, 7, 6]
         end
 
       end

data/spec/hamster/list/reduce_spec.rb

@@ -2,26 +2,38 @@ require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
 
 describe Hamster::List do
 
-  describe "#reduce" do
+  [:reduce, :inject].each do |method|
 
-    it "initially returns memo" do
-      Hamster::List.new.reduce(0).should == 0
-    end
-    
-    describe "with values" do
+    describe "##{method}" do
 
-      before do
-        @list = Hamster::List.new.cons(1).cons(2).cons(3).cons(4)
-      end
+      [
+        [[], "@"],
+        [["A"], "@a"],
+        [["A", "B", "C"], "@abc"],
+      ].each do |values, result|
 
-      it "works with an initial value" do
-        @list.reduce(0) { |memo, i| memo + i }.should == 10
-      end
+        describe "on #{values.inspect}" do
+
+          list = Hamster.list(*values)
+
+          describe "with a block" do
+
+            it "returns #{result.inspect}" do
+              list.send(method, "@") { |memo, item| memo << item.downcase }.should == result
+            end
+
+          end
+
+          describe "without a block" do
+
+            it "returns the memo" do
+              list.send(method, "@").should == "@"
+            end
+
+          end
 
-      it "defaults to the first item in the list" do
-        pending do
-          @list.reduce { |memo, i| memo + i }.should == 10
         end
+
       end
 
     end

data/spec/hamster/list/reject_spec.rb

@@ -0,0 +1,47 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  describe "#reject" do
+
+    [
+      [[], []],
+      [["A"], ["A"]],
+      [["A", "B", "C"], ["A", "B", "C"]],
+      [["A", "b", "C"], ["A", "C"]],
+      [["a", "b", "c"], []],
+    ].each do |values, result|
+
+      describe "on #{values.inspect}" do
+
+        list = Hamster.list(*values)
+
+        describe "with a block" do
+
+          it "returns #{result}" do
+            list.reject { |item| item == item.downcase }.should == Hamster.list(*result)
+          end
+
+          it "is lazy" do
+            count = 0
+            list.reject { |item| count += 1; false }
+            count.should <= 1
+          end
+
+        end
+
+        describe "without a block" do
+
+          it "returns self" do
+            list.reject.should == list
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/list/size_spec.rb

@@ -0,0 +1,31 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+describe Hamster::List do
+
+  [:size, :length].each do |method|
+
+    describe "##{method}" do
+
+      [
+        [[], 0],
+        [["A"], 1],
+        [["A", "B", "C"], 3],
+      ].each do |values, result|
+
+        describe "on #{values.inspect}" do
+
+          list = Hamster.list(*values)
+
+          it "returns #{result}" do
+            list.send(method).should == result
+          end
+
+        end
+
+      end
+
+    end
+
+  end
+
+end