immutable-ruby 0.0.4 → 0.1.0

data/spec/lib/immutable/list/slice_spec.rb

@@ -1,229 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  let(:list) { L[1,2,3,4] }
-  let(:big)  { (1..10000).to_list }
-
-  [:slice, :[]].each do |method|
-    describe "##{method}" do
-      context "when passed a positive integral index" do
-        it "returns the element at that index" do
-          list.send(method, 0).should be(1)
-          list.send(method, 1).should be(2)
-          list.send(method, 2).should be(3)
-          list.send(method, 3).should be(4)
-          list.send(method, 4).should be(nil)
-          list.send(method, 10).should be(nil)
-
-          big.send(method, 0).should be(1)
-          big.send(method, 9999).should be(10000)
-        end
-
-        it "leaves the original unchanged" do
-          list.should eql(L[1,2,3,4])
-        end
-      end
-
-      context "when passed a negative integral index" do
-        it "returns the element which is number (index.abs) counting from the end of the list" do
-          list.send(method, -1).should be(4)
-          list.send(method, -2).should be(3)
-          list.send(method, -3).should be(2)
-          list.send(method, -4).should be(1)
-          list.send(method, -5).should be(nil)
-          list.send(method, -10).should be(nil)
-
-          big.send(method, -1).should be(10000)
-          big.send(method, -10000).should be(1)
-        end
-      end
-
-      context "when passed a positive integral index and count" do
-        it "returns 'count' elements starting from 'index'" do
-          list.send(method, 0, 0).should eql(L.empty)
-          list.send(method, 0, 1).should eql(L[1])
-          list.send(method, 0, 2).should eql(L[1,2])
-          list.send(method, 0, 4).should eql(L[1,2,3,4])
-          list.send(method, 0, 6).should eql(L[1,2,3,4])
-          list.send(method, 0, -1).should be_nil
-          list.send(method, 0, -2).should be_nil
-          list.send(method, 0, -4).should be_nil
-          list.send(method, 2, 0).should eql(L.empty)
-          list.send(method, 2, 1).should eql(L[3])
-          list.send(method, 2, 2).should eql(L[3,4])
-          list.send(method, 2, 4).should eql(L[3,4])
-          list.send(method, 2, -1).should be_nil
-          list.send(method, 4, 0).should eql(L.empty)
-          list.send(method, 4, 2).should eql(L.empty)
-          list.send(method, 4, -1).should be_nil
-          list.send(method, 5, 0).should be_nil
-          list.send(method, 5, 2).should be_nil
-          list.send(method, 5, -1).should be_nil
-          list.send(method, 6, 0).should be_nil
-          list.send(method, 6, 2).should be_nil
-          list.send(method, 6, -1).should be_nil
-
-          big.send(method, 0, 3).should eql(L[1,2,3])
-          big.send(method, 1023, 4).should eql(L[1024,1025,1026,1027])
-          big.send(method, 1024, 4).should eql(L[1025,1026,1027,1028])
-        end
-
-        it "leaves the original unchanged" do
-          list.should eql(L[1,2,3,4])
-        end
-      end
-
-      context "when passed a negative integral index and count" do
-        it "returns 'count' elements, starting from index which is number 'index.abs' counting from the end of the array" do
-          list.send(method, -1, 0).should eql(L.empty)
-          list.send(method, -1, 1).should eql(L[4])
-          list.send(method, -1, 2).should eql(L[4])
-          list.send(method, -1, -1).should be_nil
-          list.send(method, -2, 0).should eql(L.empty)
-          list.send(method, -2, 1).should eql(L[3])
-          list.send(method, -2, 2).should eql(L[3,4])
-          list.send(method, -2, 4).should eql(L[3,4])
-          list.send(method, -2, -1).should be_nil
-          list.send(method, -4, 0).should eql(L.empty)
-          list.send(method, -4, 1).should eql(L[1])
-          list.send(method, -4, 2).should eql(L[1,2])
-          list.send(method, -4, 4).should eql(L[1,2,3,4])
-          list.send(method, -4, 6).should eql(L[1,2,3,4])
-          list.send(method, -4, -1).should be_nil
-          list.send(method, -5, 0).should be_nil
-          list.send(method, -5, 1).should be_nil
-          list.send(method, -5, 10).should be_nil
-          list.send(method, -5, -1).should be_nil
-
-          big.send(method, -1, 1).should eql(L[10000])
-          big.send(method, -1, 2).should eql(L[10000])
-          big.send(method, -6, 2).should eql(L[9995,9996])
-        end
-      end
-
-      context "when passed a Range" do
-        it "returns the elements whose indexes are within the given Range" do
-          list.send(method, 0..-1).should eql(L[1,2,3,4])
-          list.send(method, 0..-10).should eql(L.empty)
-          list.send(method, 0..0).should eql(L[1])
-          list.send(method, 0..1).should eql(L[1,2])
-          list.send(method, 0..2).should eql(L[1,2,3])
-          list.send(method, 0..3).should eql(L[1,2,3,4])
-          list.send(method, 0..4).should eql(L[1,2,3,4])
-          list.send(method, 0..10).should eql(L[1,2,3,4])
-          list.send(method, 2..-10).should eql(L.empty)
-          list.send(method, 2..0).should eql(L.empty)
-          list.send(method, 2..2).should eql(L[3])
-          list.send(method, 2..3).should eql(L[3,4])
-          list.send(method, 2..4).should eql(L[3,4])
-          list.send(method, 3..0).should eql(L.empty)
-          list.send(method, 3..3).should eql(L[4])
-          list.send(method, 3..4).should eql(L[4])
-          list.send(method, 4..0).should eql(L.empty)
-          list.send(method, 4..4).should eql(L.empty)
-          list.send(method, 4..5).should eql(L.empty)
-          list.send(method, 5..0).should be_nil
-          list.send(method, 5..5).should be_nil
-          list.send(method, 5..6).should be_nil
-
-          big.send(method, 159..162).should eql(L[160,161,162,163])
-          big.send(method, 160..162).should eql(L[161,162,163])
-          big.send(method, 161..162).should eql(L[162,163])
-          big.send(method, 9999..10100).should eql(L[10000])
-          big.send(method, 10000..10100).should eql(L.empty)
-          big.send(method, 10001..10100).should be_nil
-
-          list.send(method, 0...-1).should eql(L[1,2,3])
-          list.send(method, 0...-10).should eql(L.empty)
-          list.send(method, 0...0).should eql(L.empty)
-          list.send(method, 0...1).should eql(L[1])
-          list.send(method, 0...2).should eql(L[1,2])
-          list.send(method, 0...3).should eql(L[1,2,3])
-          list.send(method, 0...4).should eql(L[1,2,3,4])
-          list.send(method, 0...10).should eql(L[1,2,3,4])
-          list.send(method, 2...-10).should eql(L.empty)
-          list.send(method, 2...0).should eql(L.empty)
-          list.send(method, 2...2).should eql(L.empty)
-          list.send(method, 2...3).should eql(L[3])
-          list.send(method, 2...4).should eql(L[3,4])
-          list.send(method, 3...0).should eql(L.empty)
-          list.send(method, 3...3).should eql(L.empty)
-          list.send(method, 3...4).should eql(L[4])
-          list.send(method, 4...0).should eql(L.empty)
-          list.send(method, 4...4).should eql(L.empty)
-          list.send(method, 4...5).should eql(L.empty)
-          list.send(method, 5...0).should be_nil
-          list.send(method, 5...5).should be_nil
-          list.send(method, 5...6).should be_nil
-
-          big.send(method, 159...162).should eql(L[160,161,162])
-          big.send(method, 160...162).should eql(L[161,162])
-          big.send(method, 161...162).should eql(L[162])
-          big.send(method, 9999...10100).should eql(L[10000])
-          big.send(method, 10000...10100).should eql(L.empty)
-          big.send(method, 10001...10100).should be_nil
-
-          list.send(method, -1..-1).should eql(L[4])
-          list.send(method, -1...-1).should eql(L.empty)
-          list.send(method, -1..3).should eql(L[4])
-          list.send(method, -1...3).should eql(L.empty)
-          list.send(method, -1..4).should eql(L[4])
-          list.send(method, -1...4).should eql(L[4])
-          list.send(method, -1..10).should eql(L[4])
-          list.send(method, -1...10).should eql(L[4])
-          list.send(method, -1..0).should eql(L.empty)
-          list.send(method, -1..-4).should eql(L.empty)
-          list.send(method, -1...-4).should eql(L.empty)
-          list.send(method, -1..-6).should eql(L.empty)
-          list.send(method, -1...-6).should eql(L.empty)
-          list.send(method, -2..-2).should eql(L[3])
-          list.send(method, -2...-2).should eql(L.empty)
-          list.send(method, -2..-1).should eql(L[3,4])
-          list.send(method, -2...-1).should eql(L[3])
-          list.send(method, -2..10).should eql(L[3,4])
-          list.send(method, -2...10).should eql(L[3,4])
-
-          big.send(method, -1..-1).should eql(L[10000])
-          big.send(method, -1..9999).should eql(L[10000])
-          big.send(method, -1...9999).should eql(L.empty)
-          big.send(method, -2...9999).should eql(L[9999])
-          big.send(method, -2..-1).should eql(L[9999,10000])
-
-          list.send(method, -4..-4).should eql(L[1])
-          list.send(method, -4..-2).should eql(L[1,2,3])
-          list.send(method, -4...-2).should eql(L[1,2])
-          list.send(method, -4..-1).should eql(L[1,2,3,4])
-          list.send(method, -4...-1).should eql(L[1,2,3])
-          list.send(method, -4..3).should eql(L[1,2,3,4])
-          list.send(method, -4...3).should eql(L[1,2,3])
-          list.send(method, -4..4).should eql(L[1,2,3,4])
-          list.send(method, -4...4).should eql(L[1,2,3,4])
-          list.send(method, -4..0).should eql(L[1])
-          list.send(method, -4...0).should eql(L.empty)
-          list.send(method, -4..1).should eql(L[1,2])
-          list.send(method, -4...1).should eql(L[1])
-
-          list.send(method, -5..-5).should be_nil
-          list.send(method, -5...-5).should be_nil
-          list.send(method, -5..-4).should be_nil
-          list.send(method, -5..-1).should be_nil
-          list.send(method, -5..10).should be_nil
-
-          big.send(method, -10001..-1).should be_nil
-        end
-
-        it "leaves the original unchanged" do
-          list.should eql(L[1,2,3,4])
-        end
-      end
-    end
-
-    context "when passed a subclass of Range" do
-      it "works the same as with a Range" do
-        subclass = Class.new(Range)
-        list.send(method, subclass.new(1,2)).should eql(L[2,3])
-        list.send(method, subclass.new(-3,-1,true)).should eql(L[2,3])
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/sorting_spec.rb

@@ -1,46 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  [
-    [:sort, ->(left, right) { left.length <=> right.length }],
-    [:sort_by, ->(item) { item.length }],
-  ].each do |method, comparator|
-    describe "##{method}" do
-      it "is lazy" do
-        -> { Immutable.stream { fail }.send(method, &comparator) }.should_not raise_error
-      end
-
-      [
-        [[], []],
-        [["A"], ["A"]],
-        [%w[Ichi Ni San], %w[Ni San Ichi]],
-      ].each do |values, expected|
-        context "on #{values.inspect}" do
-          let(:list) { L[*values] }
-
-          context "with a block" do
-            it "preserves the original" do
-              list.send(method, &comparator)
-              list.should == L[*values]
-            end
-
-            it "returns #{expected.inspect}" do
-              list.send(method, &comparator).should == L[*expected]
-            end
-          end
-
-          context "without a block" do
-            it "preserves the original" do
-              list.send(method)
-              list.should eql(L[*values])
-            end
-
-            it "returns #{expected.sort.inspect}" do
-              list.send(method).should == L[*expected.sort]
-            end
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/span_spec.rb

@@ -1,76 +0,0 @@
-require "spec_helper"
-
-describe "List#span" do
-  it "is lazy" do
-    -> { Immutable.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 an array) 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|
-      context "given the list #{values.inspect}" do
-        let(:list) { L[*values] }
-
-        context "and a predicate that returns true for values <= 2" do
-          let(:result) { list.span { |item| item <= 2 }}
-          let(:prefix) { result.first }
-          let(:remainder) { result.last }
-
-          it "preserves the original" do
-            result
-            list.should eql(L[*values])
-          end
-
-          it "returns the prefix as #{expected_prefix.inspect}" do
-            prefix.should eql(L[*expected_prefix])
-          end
-
-          it "returns the remainder as #{expected_remainder.inspect}" do
-            remainder.should eql(L[*expected_remainder])
-          end
-
-          it "calls the block only once for each element" do
-            count = 0
-            result = list.span { |item| count += 1; item <= 2 }
-            # force realization of lazy lists
-            result.first.size.should == expected_prefix.size
-            result.last.size.should == expected_remainder.size
-            # it may not need to call the block on every element, just up to the
-            # point where the block first returns a false value
-            count.should <= values.size
-          end
-        end
-
-        context "without a predicate" do
-          it "returns a frozen array" do
-            list.span.class.should be(Array)
-            list.span.should be_frozen
-          end
-
-          it "returns self as the prefix" do
-            list.span.first.should equal(list)
-          end
-
-          it "returns an empty list as the remainder" do
-            list.span.last.should be_empty
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/split_at_spec.rb

@@ -1,43 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#split_at" do
-    it "is lazy" do
-      -> { Immutable.stream { fail }.split_at(1) }.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]],
-    ].each do |values, expected_prefix, expected_remainder|
-      context "on #{values.inspect}" do
-        let(:list) { L[*values] }
-        let(:result) { list.split_at(2) }
-        let(:prefix) { result.first }
-        let(:remainder) { result.last }
-
-        it "preserves the original" do
-          result
-          list.should eql(L[*values])
-        end
-
-        it "returns a frozen array with two items" do
-          result.class.should be(Array)
-          result.should be_frozen
-          result.size.should be(2)
-        end
-
-        it "correctly identifies the matches" do
-          prefix.should eql(L[*expected_prefix])
-        end
-
-        it "correctly identifies the remainder" do
-          remainder.should eql(L[*expected_remainder])
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/subsequences_spec.rb

@@ -1,23 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#subsequences" do
-    let(:list) { L[1,2,3,4,5] }
-
-    it "yields all sublists with 1 or more consecutive items" do
-      result = []
-      list.subsequences { |l| result << l }
-      result.size.should == (5 + 4 + 3 + 2 + 1)
-      result.sort.should == [[1], [1,2], [1,2,3], [1,2,3,4], [1,2,3,4,5],
-        [2], [2,3], [2,3,4], [2,3,4,5], [3], [3,4], [3,4,5], [4], [4,5], [5]]
-    end
-
-    context "with no block" do
-      it "returns an Enumerator" do
-        list.subsequences.class.should be(Enumerator)
-        list.subsequences.to_a.sort.should == [[1], [1,2], [1,2,3], [1,2,3,4], [1,2,3,4,5],
-        [2], [2,3], [2,3,4], [2,3,4,5], [3], [3,4], [3,4,5], [4], [4,5], [5]]
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/sum_spec.rb

@@ -1,23 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#sum" do
-    context "on a really big list" do
-      it "doesn't run out of stack" do
-        -> { BigList.sum }.should_not raise_error
-      end
-    end
-
-    [
-      [[], 0],
-      [[2], 2],
-      [[1, 3, 5, 7, 11], 27],
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        it "returns #{expected.inspect}" do
-          L[*values].sum.should == expected
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/tail_spec.rb

@@ -1,30 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#tail" do
-    context "on a really big list" do
-      it "doesn't run out of stack" do
-        -> { BigList.select(&:nil?).tail }.should_not raise_error
-      end
-    end
-
-    [
-      [[], []],
-      [["A"], []],
-      [%w[A B C], %w[B C]],
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        let(:list) { L[*values] }
-
-        it "preserves the original" do
-          list.tail
-          list.should eql(L[*values])
-        end
-
-        it "returns #{expected.inspect}" do
-          list.tail.should eql(L[*expected])
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/tails_spec.rb

@@ -1,28 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#tails" do
-    it "is lazy" do
-      -> { Immutable.stream { fail }.tails }.should_not raise_error
-    end
-
-    [
-      [[], []],
-      [["A"], [L["A"]]],
-      [%w[A B C], [L["A", "B", "C"], L["B", "C"], L["C"]]],
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        let(:list) { L[*values] }
-
-        it "preserves the original" do
-          list.tails
-          list.should eql(L[*values])
-        end
-
-        it "returns #{expected.inspect}" do
-          list.tails.should eql(L[*expected])
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/take_spec.rb

@@ -1,30 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#take" do
-    it "is lazy" do
-      -> { Immutable.stream { fail }.take(1) }.should_not raise_error
-    end
-
-    [
-      [[], 10, []],
-      [["A"], 10, ["A"]],
-      [["A"], -1, []],
-      [%w[A B C], 0, []],
-      [%w[A B C], 2, %w[A B]],
-    ].each do |values, number, expected|
-      context "#{number} from #{values.inspect}" do
-        let(:list) { L[*values] }
-
-        it "preserves the original" do
-          list.take(number)
-          list.should eql(L[*values])
-        end
-
-        it "returns #{expected.inspect}" do
-          list.take(number).should eql(L[*expected])
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/take_while_spec.rb

@@ -1,46 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#take_while" do
-    it "is lazy" do
-      -> { Immutable.stream { fail }.take_while { false } }.should_not raise_error
-    end
-
-    [
-      [[], []],
-      [["A"], ["A"]],
-      [%w[A B C], %w[A B]],
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        let(:list) { L[*values] }
-
-        context "with a block" do
-          it "returns #{expected.inspect}" do
-            list.take_while { |item| item < "C" }.should eql(L[*expected])
-          end
-
-          it "preserves the original" do
-            list.take_while { |item| item < "C" }
-            list.should eql(L[*values])
-          end
-
-          it "is lazy" do
-            count = 0
-            list.take_while do |item|
-              count += 1
-              true
-            end
-            count.should <= 1
-          end
-        end
-
-        context "without a block" do
-          it "returns an Enumerator" do
-            list.take_while.class.should be(Enumerator)
-            list.take_while.each { |item| item < "C" }.should eql(L[*expected])
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/to_a_spec.rb

@@ -1,39 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  [:to_a, :entries].each do |method|
-    describe "##{method}" do
-      context "on a really big list" do
-        it "doesn't run out of stack" do
-          -> { BigList.to_a }.should_not raise_error
-        end
-      end
-
-      [
-        [],
-        ["A"],
-        %w[A B C],
-      ].each do |values|
-        context "on #{values.inspect}" do
-          let(:list) { L[*values] }
-
-          it "returns #{values.inspect}" do
-            list.send(method).should == values
-          end
-
-          it "leaves the original unchanged" do
-            list.send(method)
-            list.should eql(L[*values])
-          end
-
-          it "returns a mutable array" do
-            result = list.send(method)
-            expect(result.last).to_not eq("The End")
-            result << "The End"
-            result.last.should == "The End"
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/to_ary_spec.rb

@@ -1,41 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  let(:list) { L["A", "B", "C", "D"] }
-
-  describe "#to_ary" do
-    context "on a really big list" do
-      it "doesn't run out of stack" do
-        -> { BigList.to_ary }.should_not raise_error
-      end
-    end
-
-    context "enables implicit conversion to" do
-      it "block parameters" do
-        def func(&block)
-          yield(list)
-        end
-
-        func do |a, b, *c|
-          expect(a).to eq("A")
-          expect(b).to eq("B")
-          expect(c).to eq(%w[C D])
-        end
-      end
-
-      it "method arguments" do
-        def func(a, b, *c)
-          expect(a).to eq("A")
-          expect(b).to eq("B")
-          expect(c).to eq(%w[C D])
-        end
-        func(*list)
-      end
-
-      it "works with splat" do
-        array = *list
-        expect(array).to eq(%w[A B C D])
-      end
-    end
-  end
-end

data/spec/lib/immutable/list/to_list_spec.rb

@@ -1,19 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#to_list" do
-    [
-      [],
-      ["A"],
-      %w[A B C],
-    ].each do |values|
-      context "on #{values.inspect}" do
-        let(:list) { L[*values] }
-
-        it "returns self" do
-          list.to_list.should equal(list)
-        end
-      end
-    end
-  end
-end