hamster 0.1.23 → 0.2.0

data/spec/hamster/list/take_while_spec.rb

@@ -6,20 +6,8 @@ describe Hamster::List do
 
   describe "#take_while" 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.take_while { true }
-      end
-
+    it "is lazy" do
+      lambda { Hamster.stream { fail }.take_while { false } }.should_not raise_error
     end
 
     [

data/spec/hamster/list/to_a_spec.rb

@@ -8,18 +8,14 @@ describe Hamster::List do
 
     describe "##{method}" do
 
-      describe "doesn't run out of stack space on a really big" do
+      describe "on a really big list" do
 
-        it "stream" do
+        before 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)
+        it "doesn't run out of stack" do
+          lambda { @list.to_a }.should_not raise_error
         end
 
       end

data/spec/hamster/list/to_ary_spec.rb

@@ -6,18 +6,14 @@ describe Hamster::List do
 
   describe "#to_ary" do
 
-    describe "doesn't run out of stack space on a really big" do
+    describe "on a really big list" do
 
-      it "stream" do
+      before 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.to_ary
+      it "doesn't run out of stack" do
+        lambda { @list.to_ary }.should_not raise_error
       end
 
     end

data/spec/hamster/list/union_spec.rb

@@ -8,28 +8,8 @@ describe Hamster::List do
 
     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
+        lambda { Hamster.stream { fail }.union(Hamster.stream { fail }) }.should_not raise_error
       end
 
       [

data/spec/hamster/list/uniq_spec.rb

@@ -4,24 +4,12 @@ require 'hamster/list'
 
 describe Hamster::List do
 
-  [:uniq, :nub].each do |method|
+  [:uniq, :nub, :remove_duplicates].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
-
+      it "is lazy" do
+        lambda { Hamster.stream { fail }.uniq }.should_not raise_error
       end
 
       [

data/spec/hamster/list/zip_spec.rb

@@ -6,28 +6,8 @@ describe Hamster::List do
 
   describe "#zip" do
 
-    describe "doesn't run out of stack space on a really big" do
-
-      it "stream" do
-        @left = @right = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-      end
-
-      it "list" do
-        @left = @right = (0...STACK_OVERFLOW_DEPTH).reduce(Hamster.list) { |list, i| list.cons(i) }
-      end
-
-      after do
-        @left.zip(@right)
-      end
-
-    end
-
     it "is lazy" do
-      count = 0
-      left = Hamster.stream { count += 1 }
-      right = Hamster.stream { count += 1 }
-      result = left.zip(right)
-      count.should <= 2
+      lambda { Hamster.stream { fail }.zip(Hamster.stream { fail }) }.should_not raise_error
     end
 
     [

data/spec/hamster/set/all_spec.rb

@@ -4,52 +4,56 @@ require 'hamster/set'
 
 describe Hamster::Set do
 
-  describe "#all?" do
+  [:all?, :forall?].each do |method|
 
-    describe "when empty" do
+    describe "##{method}" do
 
-      before do
-        @set = Hamster.set
-      end
+      describe "when empty" do
 
-      it "with a block returns true" do
-        @set.all? {}.should == true
-      end
+        before do
+          @set = Hamster.set
+        end
+
+        it "with a block returns true" do
+          @set.send(method) {}.should == true
+        end
+
+        it "with no block returns true" do
+          @set.send(method).should == true
+        end
 
-      it "with no block returns true" do
-        @set.all?.should == true
       end
 
-    end
+      describe "when not empty" do
 
-    describe "when not empty" do
+        describe "with a block" do
 
-      describe "with a block" do
+          before do
+            @set = Hamster.set("A", "B", "C")
+          end
 
-        before do
-          @set = Hamster.set("A", "B", "C")
-        end
+          it "returns true if the block always returns true" do
+            @set.send(method) { |item| true }.should == true
+          end
 
-        it "returns true if the block always returns true" do
-          @set.all? { |item| true }.should == true
-        end
+          it "returns false if the block ever returns false" do
+            @set.send(method) { |item| item == "D" }.should == false
+          end
 
-        it "returns false if the block ever returns false" do
-          @set.all? { |item| item == "D" }.should == false
         end
 
-      end
+        describe "with no block" do
 
-      describe "with no block" do
+          it "returns true if all values are truthy" do
+            Hamster.set(true, "A").send(method).should == true
+          end
 
-        it "returns true if all values are truthy" do
-          Hamster.set(true, "A").all?.should == true
-        end
+          [nil, false].each do |value|
 
-        [nil, false].each do |value|
+            it "returns false if any value is #{value.inspect}" do
+              Hamster.set(value, true, "A").send(method).should == false
+            end
 
-          it "returns false if any value is #{value.inspect}" do
-            Hamster.set(value, true, "A").all?.should == false
           end
 
         end

data/spec/hamster/set/product_spec.rb

@@ -0,0 +1,32 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/set'
+
+describe Hamster::Set do
+
+  describe "#product" do
+
+    [
+      [[], 1],
+      [[2], 2],
+      [[1, 3, 5, 7, 11], 1155],
+    ].each do |values, expected|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          original = Hamster.set(*values)
+          @result = original.product
+        end
+
+        it "returns #{expected.inspect}" do
+          @result.should == expected
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/set/sum_spec.rb

@@ -0,0 +1,32 @@
+require File.expand_path(File.dirname(__FILE__) + '/../../spec_helper')
+
+require 'hamster/set'
+
+describe Hamster::Set do
+
+  describe "#sum" do
+
+    [
+      [[], 0],
+      [[2], 2],
+      [[1, 3, 5, 7, 11], 27],
+    ].each do |values, expected|
+
+      describe "on #{values.inspect}" do
+
+        before do
+          original = Hamster.set(*values)
+          @result = original.sum
+        end
+
+        it "returns #{expected.inspect}" do
+          @result.should == expected
+        end
+
+      end
+
+    end
+
+  end
+
+end

data/spec/hamster/set/uniq_spec.rb

@@ -8,7 +8,7 @@ describe Hamster::Set do
     @set = Hamster.set("A", "B", "C")
   end
 
-  [:uniq, :nub].each do |method|
+  [:uniq, :nub, :remove_duplicates].each do |method|
 
     describe "##{method}" do
 

data/spec/spec.opts

@@ -1,3 +1,2 @@
 --colour
 --loadby random
---backtrace

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: hamster
 version: !ruby/object:Gem::Version 
-  version: 0.1.23
+  version: 0.2.0
 platform: ruby
 authors: 
 - Simon Harris
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-01-11 00:00:00 +11:00
+date: 2010-01-14 00:00:00 +11:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -63,6 +63,7 @@ files:
 - spec/hamster/hash/reduce_spec.rb
 - spec/hamster/hash/remove_spec.rb
 - spec/hamster/hash/size_spec.rb
+- spec/hamster/hash/uniq_spec.rb
 - spec/hamster/list/all_spec.rb
 - spec/hamster/list/any_spec.rb
 - spec/hamster/list/append_spec.rb
@@ -70,6 +71,7 @@ files:
 - spec/hamster/list/cadr_spec.rb
 - spec/hamster/list/chunk_spec.rb
 - spec/hamster/list/clear_spec.rb
+- spec/hamster/list/combinations_spec.rb
 - spec/hamster/list/cons_spec.rb
 - spec/hamster/list/construction_spec.rb
 - spec/hamster/list/copying_spec.rb
@@ -86,6 +88,7 @@ files:
 - spec/hamster/list/head_spec.rb
 - spec/hamster/list/include_spec.rb
 - spec/hamster/list/init_spec.rb
+- spec/hamster/list/inits_spec.rb
 - spec/hamster/list/inspect_spec.rb
 - spec/hamster/list/intersperse_spec.rb
 - spec/hamster/list/join_spec.rb
@@ -106,6 +109,7 @@ files:
 - spec/hamster/list/split_at_spec.rb
 - spec/hamster/list/sum_spec.rb
 - spec/hamster/list/tail_spec.rb
+- spec/hamster/list/tails_spec.rb
 - spec/hamster/list/take_spec.rb
 - spec/hamster/list/take_while_spec.rb
 - spec/hamster/list/to_a_spec.rb
@@ -136,10 +140,12 @@ files:
 - spec/hamster/set/minimum_spec.rb
 - spec/hamster/set/none_spec.rb
 - spec/hamster/set/partition_spec.rb
+- spec/hamster/set/product_spec.rb
 - spec/hamster/set/reduce_spec.rb
 - spec/hamster/set/remove_spec.rb
 - spec/hamster/set/size_spec.rb
 - spec/hamster/set/sorting_spec.rb
+- spec/hamster/set/sum_spec.rb
 - spec/hamster/set/to_a_spec.rb
 - spec/hamster/set/to_list_spec.rb
 - spec/hamster/set/to_set_spec.rb