hamster 1.0.1.pre.rc2 → 1.0.1.pre.rc3

data/spec/hamster/list/reduce_spec.rb

@@ -1,72 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  [:reduce, :inject, :fold, :foldr].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
-          -> { @list.reduce(&:+) }.should_not raise_error
-        end
-      end
-
-      [
-        [[], 10, 10],
-        [[1], 10, 9],
-        [[1, 2, 3], 10, 4],
-      ].each do |values, initial, expected|
-
-        describe "on #{values.inspect}" do
-          before do
-            @list = Hamster.list(*values)
-          end
-
-          describe "with an initial value of #{initial}" do
-            describe "and a block" do
-              it "returns #{expected.inspect}" do
-                @list.send(method, initial) { |memo, item| memo - item }.should == expected
-              end
-            end
-
-            describe "and no block" do
-              it "returns the memo" do
-                @list.send(method, initial).should == initial
-              end
-            end
-          end
-        end
-      end
-
-      [
-        [[], nil],
-        [[1], 1],
-        [[1, 2, 3], -4],
-      ].each do |values, expected|
-
-        describe "on #{values.inspect}" do
-          before do
-            @list = Hamster.list(*values)
-          end
-
-          describe "with no initial value" do
-            describe "and a block" do
-              it "returns #{expected.inspect}" do
-                @list.send(method) { |memo, item| memo - item }.should == expected
-              end
-            end
-
-            describe "and no block" do
-              it "returns nil" do
-                @list.send(method).should be_nil
-              end
-            end
-          end
-        end
-      end
-    end
-  end
-end

data/spec/hamster/list/slice_spec.rb

@@ -1,40 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  [:slice, :[]].each do |method|
-    describe "#slice" do
-      it "is lazy" do
-        -> { Hamster.stream { fail }.send(method, 1, 5) }.should_not raise_error
-      end
-
-      [
-        [[], 0, 10, []],
-        [[], 1, 1, []],
-        [["A"], 0, 0, []],
-        [["A"], 1, 1, []],
-        [["A"], 1, 10, []],
-        [["A"], 0, 1, ["A"]],
-        [["A"], 0, 10, ["A"]],
-        [%w[A B C], 0, 3, %w[A B C]],
-        [%w[A B C], 2, 1, ["C"]],
-      ].each do |values, from, length, expected|
-
-        describe "#{values.inspect} from #{from} for a length of #{length}" do
-          before do
-            @original = Hamster.list(*values)
-            @result = @original.send(method, from, length)
-          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
-end

data/spec/hamster/list/span_spec.rb

@@ -1,75 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe "Hamster.list#span" do
-  it "is lazy" do
-    -> { Hamster.stream { |item| fail }.span { true } }.should_not raise_error
-  end
-
-  describe <<-DESC do
-given a predicate (in the form of a block), splits the list into two lists
-  (returned as a tuple) such that elements in the first list (the prefix) are
-  taken from the head of the list while the predicate is satisfied, and elements
-  in the second list (the remainder) are the remaining elements from the list
-  once the predicate is not satisfied. For example:
-DESC
-
-    [
-      [[], [], []],
-      [[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 "given the list #{values.inspect}" do
-        before do
-          @original = Hamster.list(*values)
-        end
-
-        describe "and a predicate that returns true for values <= 2" do
-          before do
-            @result = @original.span { |item| item <= 2 }
-            @prefix = @result.first
-            @remainder = @result.last
-          end
-
-          it "preserves the original" do
-            @original.should == Hamster.list(*values)
-          end
-
-          it "returns the prefix as #{expected_prefix.inspect}" do
-            @prefix.should == Hamster.list(*expected_prefix)
-          end
-
-          it "returns the remainder as #{expected_remainder.inspect}" do
-            @remainder.should == Hamster.list(*expected_remainder)
-          end
-        end
-
-        describe "without a predicate" do
-          before do
-            @result = @original.span
-            @prefix = @result.first
-            @remainder = @result.last
-          end
-
-          it "returns a tuple" do
-            @result.is_a?(Hamster::Tuple).should == true
-          end
-
-          it "returns self as the prefix" do
-            @prefix.should equal(@original)
-          end
-
-          it "returns an empty list as the remainder" do
-            @remainder.should be_empty
-          end
-        end
-      end
-    end
-  end
-end

data/spec/hamster/list/sum_spec.rb

@@ -1,34 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#sum" 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
-        -> { @list.sum }.should_not raise_error
-      end
-    end
-
-    [
-      [[], 0],
-      [[2], 2],
-      [[1, 3, 5, 7, 11], 27],
-    ].each do |values, expected|
-
-      describe "on #{values.inspect}" do
-        before do
-          original = Hamster.list(*values)
-          @result = original.sum
-        end
-
-        it "returns #{expected.inspect}" do
-          @result.should == expected
-        end
-      end
-    end
-  end
-end

data/spec/hamster/list/tail_spec.rb

@@ -1,38 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#tail" 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
-        -> { @list.filter(&:nil?).tail }.should_not raise_error
-      end
-    end
-
-    [
-      [[], []],
-      [["A"], []],
-      [%w[A B C], %w[B C]],
-    ].each do |values, expected|
-
-      describe "on #{values.inspect}" do
-        before do
-          @original = Hamster.list(*values)
-          @result = @original.tail
-        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

data/spec/hamster/list/tails_spec.rb

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

data/spec/hamster/list/to_a_spec.rb

@@ -1,42 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  [:to_a, :entries].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
-          -> { @list.to_a }.should_not raise_error
-        end
-      end
-
-      [
-        [],
-        ["A"],
-        %w[A B C],
-      ].each do |values|
-
-        describe "on #{values.inspect}" do
-          before do
-            @list = Hamster.list(*values)
-            @result = @list.send(method)
-          end
-
-          it "returns #{values.inspect}" do
-            @result.should == values
-          end
-
-          it "returns a mutable array" do
-            expect(@result.last).to_not eq("The End")
-            @result << "The End"
-            @result.last.should == "The End"
-          end
-        end
-      end
-    end
-  end
-end

data/spec/hamster/queue/clear_spec.rb

@@ -1,28 +0,0 @@
-require "spec_helper"
-require "hamster/queue"
-
-describe Hamster::Queue do
-  describe "#clear" do
-    [
-      [],
-      ["A"],
-      %w[A B C],
-    ].each do |values|
-
-      describe "on #{values}" do
-        before do
-          @original = Hamster.queue(*values)
-          @result = @original.clear
-        end
-
-        it "preserves the original" do
-          @original.should == Hamster.queue(*values)
-        end
-
-        it "returns an empty queue" do
-          @result.should equal(Hamster.queue)
-        end
-      end
-    end
-  end
-end

data/spec/hamster/queue/construction_spec.rb

@@ -1,34 +0,0 @@
-require "spec_helper"
-require "hamster/queue"
-
-describe Hamster do
-  describe ".queue" do
-    describe "with no arguments" do
-      before do
-        @queue = Hamster.queue
-      end
-
-      it "always returns the same instance" do
-        @queue.should equal(Hamster.queue)
-      end
-
-      it "returns an empty queue" do
-        @queue.should be_empty
-      end
-    end
-
-    describe "with a number of items" do
-      before do
-        @queue = Hamster.queue("A", "B", "C")
-      end
-
-      it "always returns a different instance" do
-        @queue.should_not equal(Hamster.queue("A", "B", "C"))
-      end
-
-      it "is the same as repeatedly using #enqueue" do
-        @queue.should == Hamster.queue.enqueue("A").enqueue("B").enqueue("C")
-      end
-    end
-  end
-end

data/spec/hamster/queue/dequeue_spec.rb

@@ -1,30 +0,0 @@
-require "spec_helper"
-require "hamster/queue"
-
-describe Hamster::Queue do
-  [:dequeue, :tail].each do |method|
-    describe "##{method}" do
-      [
-        [[], []],
-        [["A"], []],
-        [%w[A B C], %w[B C]],
-      ].each do |values, expected|
-
-        describe "on #{values.inspect}" do
-          before do
-            @original = Hamster.queue(*values)
-            @result = @original.send(method)
-          end
-
-          it "preserves the original" do
-            @original.should == Hamster.queue(*values)
-          end
-
-          it "returns #{expected.inspect}" do
-            @result.should == Hamster.queue(*expected)
-          end
-        end
-      end
-    end
-  end
-end

data/spec/hamster/queue/empty_spec.rb

@@ -1,35 +0,0 @@
-require "spec_helper"
-require "hamster/queue"
-
-describe Hamster::Queue do
-  [:empty?, :null?].each do |method|
-    describe "##{method}" do
-      [
-        [[], true],
-        [["A"], false],
-        [%w[A B C], false],
-      ].each do |values, expected|
-
-        describe "on #{values.inspect}" do
-          before do
-            @result = Hamster.queue(*values).send(method)
-          end
-
-          it "returns #{expected.inspect}" do
-            @result.should == expected
-          end
-        end
-      end
-    end
-
-    describe "after dequeueing an item from #{%w[A B C].inspect}" do
-      before do
-        @result = Hamster.queue("A", "B", "C").dequeue
-      end
-
-      it "returns false" do
-        @result.should_not be_empty
-      end
-    end
-  end
-end