hamster 0.4.3 → 1.0.0

data/spec/hamster/list/all_spec.rb

@@ -1,111 +0,0 @@
-require 'spec_helper'
-
-require 'hamster/list'
-
-describe Hamster::List do
-
-  [:all?, :forall?].each do |method|
-
-    describe "##{method}" do
-
-      describe "on a really big list" do
-
-        before do
-          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-        end
-
-        it "doesn't run out of stack" do
-          lambda { @list.send(method) }.should_not raise_error
-        end
-
-      end
-
-      describe "when empty" do
-
-        before do
-          @list = Hamster.list
-        end
-
-        it "with a block returns true" do
-          @list.send(method) {}.should == true
-        end
-
-        it "with no block returns true" do
-          @list.send(method).should == true
-        end
-
-      end
-
-      describe "when not empty" do
-
-        describe "with a block" do
-
-          before do
-            @list = Hamster.list("A", "B", "C")
-          end
-
-          describe "if the block always returns true" do
-
-            before do
-              @result = @list.send(method) { |item| true }
-            end
-
-            it "returns true" do
-              @result.should == true
-            end
-
-          end
-
-          describe "if the block ever returns false" do
-
-            before do
-              @result = @list.send(method) { |item| item == "D" }
-            end
-
-            it "returns false" do
-              @result.should == false
-            end
-
-          end
-
-        end
-
-        describe "with no block" do
-
-          describe "if all values are truthy" do
-
-            before do
-              @result = Hamster.list(true, "A").send(method)
-            end
-
-            it "returns true" do
-              @result.should == true
-            end
-
-          end
-
-          [nil, false].each do |value|
-
-            describe "if any value is #{value.inspect}" do
-
-              before do
-                @result = Hamster.list(value, true, "A").send(method)
-              end
-
-              it "returns false" do
-                @result.should == false
-              end
-
-            end
-
-          end
-
-        end
-
-      end
-
-    end
-
-  end
-
-end

data/spec/hamster/list/any_spec.rb

@@ -1,79 +0,0 @@
-require 'spec_helper'
-
-require 'hamster/list'
-
-describe Hamster::List do
-
-  [:any?, :exist?, :exists?].each do |method|
-
-    describe "##{method}" do
-
-      describe "on a really big list" do
-
-        before do
-          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-        end
-
-        it "doesn't run out of stack" do
-          lambda { @list.send(method) { false } }.should_not raise_error
-        end
-
-      end
-
-      describe "when empty" do
-
-        before do
-          @list = Hamster.list
-        end
-
-        it "with a block returns false" do
-          @list.send(method) {}.should == false
-        end
-
-        it "with no block returns false" do
-          @list.send(method).should == false
-        end
-
-      end
-
-      describe "when not empty" do
-
-        describe "with a block" do
-
-          before do
-            @list = Hamster.list("A", "B", "C", nil)
-          end
-
-          ["A", "B", "C", nil].each do |value|
-
-            it "returns true if the block ever returns true (#{value.inspect})" do
-              @list.send(method) { |item| item == value }.should == true
-            end
-
-          end
-
-          it "returns false if the block always returns false" do
-            @list.send(method) { |item| item == "D" }.should == false
-          end
-
-        end
-
-        describe "with no block" do
-
-          it "returns true if any value is truthy" do
-            Hamster.list(nil, false, "A", true).send(method).should == true
-          end
-
-          it "returns false if all values are falsey" do
-            Hamster.list(nil, false).send(method).should == false
-          end
-
-        end
-
-      end
-
-    end
-
-  end
-
-end

data/spec/hamster/list/append_spec.rb

@@ -1,50 +0,0 @@
-require 'spec_helper'
-
-require 'hamster/list'
-
-describe Hamster::List do
-
-  [:append, :concat, :cat, :+].each do |method|
-
-    describe "##{method}" do
-
-      it "is lazy" do
-        lambda { Hamster.stream { fail }.append(Hamster.stream { fail }) }.should_not raise_error
-      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
-
-    end
-
-  end
-
-end

data/spec/hamster/list/at_spec.rb

@@ -1,49 +0,0 @@
-require 'spec_helper'
-
-require 'hamster/list'
-
-describe Hamster::List do
-
-  [:at, :[]].each do |method|
-
-    describe "##{method}" do
-
-      describe "on a really big list" do
-
-        before do
-          @list = Hamster.interval(0, STACK_OVERFLOW_DEPTH)
-        end
-
-        it "doesn't run out of stack" do
-          lambda { @list.send(method, STACK_OVERFLOW_DEPTH) }.should_not raise_error
-        end
-
-      end
-
-      [
-        [[], 10, nil],
-        [["A"], 10, nil],
-        [["A", "B", "C"], 0, "A"],
-        [["A", "B", "C"], 2, "C"],
-      ].each do |values, number, expected|
-
-        describe "#{values.inspect} with #{number}" do
-
-          before do
-            @original = Hamster.list(*values)
-            @result = @original.send(method, number)
-          end
-
-          it "returns #{expected.inspect}" do
-            @result.should == expected
-          end
-
-        end
-
-      end
-
-    end
-
-  end
-
-end

data/spec/hamster/list/break_spec.rb

@@ -1,85 +0,0 @@
-require 'spec_helper'
-
-require 'hamster/tuple'
-require 'hamster/list'
-
-describe Hamster::List do
-
-  describe "#break" do
-
-    it "is lazy" do
-      lambda { Hamster.stream { fail }.break { |item| false } }.should_not raise_error
-    end
-
-    [
-      [[], [], []],
-      [[1], [1], []],
-      [[1, 2], [1, 2], []],
-      [[1, 2, 3], [1, 2], [3]],
-      [[1, 2, 3, 4], [1, 2], [3, 4]],
-      [[2, 3, 4], [2], [3, 4]],
-      [[3, 4], [], [3, 4]],
-      [[4], [], [4]],
-    ].each do |values, expected_prefix, expected_remainder|
-
-      describe "on #{values.inspect}" do
-
-        before do
-          @original = Hamster.list(*values)
-        end
-
-        describe "with a block" do
-
-          before do
-            @result = @original.break { |item| item > 2 }
-            @prefix = @result.first
-            @remainder = @result.last
-          end
-
-          it "preserves the original" do
-            @original.should == Hamster.list(*values)
-          end
-
-          it "returns a tuple with two items" do
-            @result.is_a?(Hamster::Tuple).should == true
-          end
-
-          it "correctly identifies the prefix" do
-            @prefix.should == Hamster.list(*expected_prefix)
-          end
-
-          it "correctly identifies the remainder" do
-            @remainder.should == Hamster.list(*expected_remainder)
-          end
-
-        end
-
-        describe "without a block" do
-
-          before do
-            @result = @original.break
-            @prefix = @result.first
-            @remainder = @result.last
-          end
-
-          it "returns a tuple with two items" do
-            @result.is_a?(Hamster::Tuple).should == true
-          end
-
-          it "returns self as the prefix" do
-            @prefix.should equal(@original)
-          end
-
-          it "leaves the remainder empty" do
-            @remainder.should be_empty
-          end
-
-        end
-
-      end
-
-    end
-
-  end
-
-end

data/spec/hamster/list/cadr_spec.rb

@@ -1,50 +0,0 @@
-require 'spec_helper'
-
-require 'hamster/list'
-
-describe Hamster::List do
-
-  [
-    [[], :car, nil],
-    [["A"], :car, "A"],
-    [["A", "B", "C"], :car, "A"],
-    [["A", "B", "C"], :cadr, "B"],
-    [["A", "B", "C"], :caddr, "C"],
-    [["A", "B", "C"], :cadddr, nil],
-    [["A", "B", "C"], :caddddr, nil],
-    [[], :cdr, Hamster.list],
-    [["A"], :cdr, Hamster.list],
-    [["A", "B", "C"], :cdr, Hamster.list("B", "C")],
-    [["A", "B", "C"], :cddr, Hamster.list("C")],
-    [["A", "B", "C"], :cdddr, Hamster.list],
-    [["A", "B", "C"], :cddddr, Hamster.list],
-  ].each do |values, method, expected|
-
-    describe "##{method}" do
-
-      it "is responded to" do
-        Hamster.list.respond_to?(method).should == true
-      end
-
-      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 == expected
-        end
-
-      end
-
-    end
-
-  end
-
-end

data/spec/hamster/list/chunk_spec.rb

@@ -1,40 +0,0 @@
-require 'spec_helper'
-
-require 'hamster/list'
-
-describe Hamster::List do
-
-  describe "#chunk" do
-
-    it "is lazy" do
-      lambda { Hamster.stream { fail }.chunk(2) }.should_not raise_error
-    end
-
-    [
-      [[], []],
-      [["A"], [Hamster.list("A")]],
-      [["A", "B", "C"], [Hamster.list("A", "B"), Hamster.list("C")]],
-    ].each do |values, expected|
-
-      describe "on #{values.inspect}" do
-
-        before do
-          @original = Hamster.list(*values)
-          @result = @original.chunk(2)
-        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