immutable-ruby 0.0.4 → 0.1.0

data/spec/lib/immutable/vector/new_spec.rb

@@ -1,50 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe ".new" do
-    it "accepts a single enumerable argument and creates a new vector" do
-      vector = Immutable::Vector.new([1,2,3])
-      vector.size.should be(3)
-      vector[0].should be(1)
-      vector[1].should be(2)
-      vector[2].should be(3)
-    end
-
-    it "makes a defensive copy of a non-frozen mutable Array passed in" do
-      array = [1,2,3]
-      vector = Immutable::Vector.new(array)
-      array[0] = 'changed'
-      vector[0].should be(1)
-    end
-
-    it "is amenable to overriding of #initialize" do
-      class SnazzyVector < Immutable::Vector
-        def initialize
-          super(['SNAZZY!!!'])
-        end
-      end
-
-      vector = SnazzyVector.new
-      vector.size.should be(1)
-      vector.should == ['SNAZZY!!!']
-    end
-
-    context "from a subclass" do
-      it "returns a frozen instance of the subclass" do
-        subclass = Class.new(Immutable::Vector)
-        instance = subclass.new(["some", "values"])
-        instance.class.should be subclass
-        instance.frozen?.should be true
-      end
-    end
-  end
-
-  describe ".[]" do
-    it "accepts a variable number of items and creates a new vector" do
-      vector = Immutable::Vector['a', 'b']
-      vector.size.should be(2)
-      vector[0].should == 'a'
-      vector[1].should == 'b'
-    end
-  end
-end

data/spec/lib/immutable/vector/partition_spec.rb

@@ -1,52 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#partition" do
-    [
-      [[], [], []],
-      [[1], [1], []],
-      [[1, 2], [1], [2]],
-      [[1, 2, 3], [1, 3], [2]],
-      [[1, 2, 3, 4], [1, 3], [2, 4]],
-      [[2, 3, 4], [3], [2, 4]],
-      [[3, 4], [3], [4]],
-      [[4], [], [4]],
-    ].each do |values, expected_matches, expected_remainder|
-      describe "on #{values.inspect}" do
-        let(:vector) { V[*values] }
-
-        describe "with a block" do
-          let(:result)    { vector.partition(&:odd?) }
-          let(:matches)   { result.first }
-          let(:remainder) { result.last }
-
-          it "preserves the original" do
-            result
-            vector.should eql(V[*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
-            matches.should eql(V[*expected_matches])
-          end
-
-          it "correctly identifies the remainder" do
-            remainder.should eql(V[*expected_remainder])
-          end
-        end
-
-        describe "without a block" do
-          it "returns an Enumerator" do
-            vector.partition.class.should be(Enumerator)
-            vector.partition.each(&:odd?).should eql([V.new(expected_matches), V.new(expected_remainder)])
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/permutation_spec.rb

@@ -1,91 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#permutation" do
-    let(:vector) { V[1,2,3,4] }
-
-    context "without a block or arguments" do
-      it "returns an Enumerator of all permutations" do
-        vector.permutation.class.should be(Enumerator)
-        vector.permutation.to_a.should eql(vector.to_a.permutation.to_a)
-      end
-    end
-
-    context "without a block, but with integral argument" do
-      it "returns an Enumerator of all permutations of given length" do
-        vector.permutation(2).class.should be(Enumerator)
-        vector.permutation(2).to_a.should eql(vector.to_a.permutation(2).to_a)
-        vector.permutation(3).class.should be(Enumerator)
-        vector.permutation(3).to_a.should eql(vector.to_a.permutation(3).to_a)
-      end
-    end
-
-    context "with a block" do
-      it "returns self" do
-        vector.permutation {}.should be(vector)
-      end
-
-      context "and no argument" do
-        it "yields all permutations" do
-          yielded = []
-          vector.permutation { |obj| yielded << obj }
-          yielded.sort.should eql([[1,2,3,4], [1,2,4,3], [1,3,2,4], [1,3,4,2],
-            [1,4,2,3], [1,4,3,2], [2,1,3,4], [2,1,4,3], [2,3,1,4], [2,3,4,1],
-            [2,4,1,3], [2,4,3,1], [3,1,2,4], [3,1,4,2], [3,2,1,4], [3,2,4,1],
-            [3,4,1,2], [3,4,2,1], [4,1,2,3], [4,1,3,2], [4,2,1,3], [4,2,3,1],
-            [4,3,1,2], [4,3,2,1]])
-        end
-      end
-
-      context "and an integral argument" do
-        it "yields all permutations of the given length" do
-          yielded = []
-          vector.permutation(2) { |obj| yielded << obj }
-          yielded.sort.should eql([[1,2], [1,3], [1,4], [2,1], [2,3], [2,4], [3,1],
-            [3,2], [3,4], [4,1], [4,2], [4,3]])
-        end
-      end
-    end
-
-    context "on an empty vector" do
-      it "yields the empty permutation" do
-        yielded = []
-        V.empty.permutation { |obj| yielded << obj }
-        yielded.should eql([[]])
-      end
-    end
-
-    context "with an argument of zero" do
-      it "yields the empty permutation" do
-        yielded = []
-        vector.permutation(0) { |obj| yielded << obj }
-        yielded.should eql([[]])
-      end
-    end
-
-    context "with a length greater than the size of the vector" do
-      it "yields no permutations" do
-        vector.permutation(5) { |obj| fail }
-      end
-    end
-
-    it "handles duplicate elements correctly" do
-      V[1,2,3,1].permutation(2).sort.should eql([[1,1], [1,1], [1,2], [1,2],
-        [1,3], [1,3], [2,1],[2,1],[2,3], [3,1],[3,1],[3,2]])
-    end
-
-    it "leaves the original unmodified" do
-      vector.permutation(2) {}
-      vector.should eql(V[1,2,3,4])
-    end
-
-    it "behaves like Array#permutation" do
-      10.times do
-        array  = rand(8).times.map { rand(10000) }
-        vector = V.new(array)
-        perm_size = array.size == 0 ? 0 : rand(array.size)
-        array.permutation(perm_size).to_a.should == vector.permutation(perm_size).to_a
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/pop_spec.rb

@@ -1,26 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#pop" do
-    [
-      [[], []],
-      [["A"], []],
-      [%w[A B C], %w[A B]],
-      [1..32, 1..31],
-      [1..33, 1..32]
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        let(:vector) { V[*values] }
-
-        it "preserves the original" do
-          vector.pop
-          vector.should eql(V[*values])
-        end
-
-        it "returns #{expected.inspect}" do
-          vector.pop.should eql(V[*expected])
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/product_spec.rb

@@ -1,70 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#product" do
-    context "when passed no arguments" do
-      it "multiplies all items in vector" do
-        [
-          [[], 1],
-          [[2], 2],
-          [[1, 3, 5, 7, 11], 1155],
-        ].each do |values, expected|
-          V[*values].product.should == expected
-        end
-      end
-    end
-
-    context "when passed one or more vectors" do
-      let(:vector) { V[1,2,3] }
-
-      context "when passed a block" do
-        it "yields an array for each combination of items from the vectors" do
-          yielded = []
-          vector.product(vector) { |obj| yielded << obj }
-          yielded.should eql([[1,1], [1,2], [1,3], [2,1], [2,2], [2,3], [3,1], [3,2], [3,3]])
-
-          yielded = []
-          vector.product(V[3,4,5], V[6,8]) { |obj| yielded << obj }
-          yielded.should eql(
-            [[1, 3, 6], [1, 3, 8], [1, 4, 6], [1, 4, 8], [1, 5, 6], [1, 5, 8],
-             [2, 3, 6], [2, 3, 8], [2, 4, 6], [2, 4, 8], [2, 5, 6], [2, 5, 8],
-             [3, 3, 6], [3, 3, 8], [3, 4, 6], [3, 4, 8], [3, 5, 6], [3, 5, 8]])
-        end
-
-        it "returns self" do
-          vector.product(V.empty) {}.should be(vector)
-          vector.product(V[1,2], V[3]) {}.should be(vector)
-          V.empty.product(vector) {}.should be(V.empty)
-        end
-      end
-
-      context "when not passed a block" do
-        it "returns the cartesian product in an array" do
-          V[1,2].product(V[3,4,5], V[6,8]).should eql(
-            [[1, 3, 6], [1, 3, 8], [1, 4, 6], [1, 4, 8], [1, 5, 6], [1, 5, 8],
-            [2, 3, 6], [2, 3, 8], [2, 4, 6], [2, 4, 8], [2, 5, 6], [2, 5, 8]])
-        end
-      end
-
-      context "when one of the arguments is empty" do
-        it "returns an empty array" do
-          vector.product(V.empty, V[4,5,6]).should eql([])
-        end
-      end
-
-      context "when the receiver is empty" do
-        it "returns an empty array" do
-          V.empty.product(vector, V[4,5,6]).should eql([])
-        end
-      end
-    end
-
-    context "when passed one or more Arrays" do
-      it "also calculates the cartesian product correctly" do
-        V[1,2].product([3,4,5], [6,8]).should eql(
-          [[1, 3, 6], [1, 3, 8], [1, 4, 6], [1, 4, 8], [1, 5, 6], [1, 5, 8],
-          [2, 3, 6], [2, 3, 8], [2, 4, 6], [2, 4, 8], [2, 5, 6], [2, 5, 8]])
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/reduce_spec.rb

@@ -1,55 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  [:reduce, :inject].each do |method|
-    describe "##{method}" do
-      [
-        [[], 10, 10],
-        [[1], 10, 9],
-        [[1, 2, 3], 10, 4],
-      ].each do |values, initial, expected|
-        describe "on #{values.inspect}" do
-          let(:vector) { V[*values] }
-
-          describe "with an initial value of #{initial}" do
-            describe "and a block" do
-              it "returns #{expected.inspect}" do
-                vector.send(method, initial) { |memo, item| memo - item }.should == expected
-              end
-            end
-          end
-        end
-      end
-
-      [
-        [[], nil],
-        [[1], 1],
-        [[1, 2, 3], -4],
-      ].each do |values, expected|
-        describe "on #{values.inspect}" do
-          let(:vector) { V[*values] }
-
-          describe "with no initial value" do
-            describe "and a block" do
-              it "returns #{expected.inspect}" do
-                vector.send(method) { |memo, item| memo - item }.should == expected
-              end
-            end
-          end
-        end
-      end
-
-      describe "with no block and a symbol argument" do
-        it "uses the symbol as the name of a method to reduce with" do
-          V[1, 2, 3].send(method, :+).should == 6
-        end
-      end
-
-      describe "with no block and a string argument" do
-        it "uses the string as the name of a method to reduce with" do
-          V[1, 2, 3].send(method, '+').should == 6
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/reject_spec.rb

@@ -1,43 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  [:reject, :delete_if].each do |method|
-    describe "##{method}" do
-      [
-        [[], []],
-        [["A"], ["A"]],
-        [%w[A B C], %w[A B C]],
-        [%w[A b C], %w[A C]],
-        [%w[a b c], []],
-      ].each do |values, expected|
-        describe "on #{values.inspect}" do
-          let(:vector) { V[*values] }
-
-          context "with a block" do
-            it "returns #{expected.inspect}" do
-              vector.send(method) { |item| item == item.downcase }.should eql(V[*expected])
-            end
-          end
-
-          context "without a block" do
-            it "returns an Enumerator" do
-              vector.send(method).class.should be(Enumerator)
-              vector.send(method).each { |item| item == item.downcase }.should eql(V[*expected])
-            end
-          end
-        end
-      end
-
-      it "works with a variety of inputs" do
-        [1, 2, 10, 31, 32, 33, 1023, 1024, 1025].each do |size|
-          [0, 5, 32, 50, 500, 800, 1024].each do |threshold|
-            vector = V.new(1..size)
-            result = vector.send(method) { |item| item > threshold }
-            result.size.should == [size, threshold].min
-            result.should eql(V.new(1..[size, threshold].min))
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/repeated_combination_spec.rb

@@ -1,77 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#repeated_combination" do
-    let(:vector) { V[1,2,3,4] }
-
-    context "with no block" do
-      it "returns an Enumerator" do
-        vector.repeated_combination(2).class.should be(Enumerator)
-      end
-    end
-
-    context "with a block" do
-      it "returns self" do
-        vector.repeated_combination(2) {}.should be(vector)
-      end
-    end
-
-    context "with a negative argument" do
-      it "yields nothing and returns self" do
-        result = []
-        vector.repeated_combination(-1) { |obj| result << obj }.should be(vector)
-        result.should eql([])
-      end
-    end
-
-    context "with a zero argument" do
-      it "yields an empty array" do
-        result = []
-        vector.repeated_combination(0) { |obj| result << obj }
-        result.should eql([[]])
-      end
-    end
-
-    context "with a argument of 1" do
-      it "yields each item in the vector, as single-item vectors" do
-        result = []
-        vector.repeated_combination(1) { |obj| result << obj }
-        result.should eql([[1],[2],[3],[4]])
-      end
-    end
-
-    context "on an empty vector, with an argument greater than zero" do
-      it "yields nothing" do
-        result = []
-        V.empty.repeated_combination(1) { |obj| result << obj }
-        result.should eql([])
-      end
-    end
-
-    context "with a positive argument, greater than 1" do
-      it "yields all combinations of the given size (where a single element can appear more than once in a row)" do
-        vector.repeated_combination(2).to_a.should == [[1,1], [1,2], [1,3], [1,4], [2,2], [2,3], [2,4], [3,3], [3,4], [4,4]]
-        vector.repeated_combination(3).to_a.should == [[1,1,1], [1,1,2], [1,1,3], [1,1,4],
-          [1,2,2], [1,2,3], [1,2,4], [1,3,3], [1,3,4], [1,4,4], [2,2,2], [2,2,3],
-          [2,2,4], [2,3,3], [2,3,4], [2,4,4], [3,3,3], [3,3,4], [3,4,4], [4,4,4]]
-        V[1,2,3].repeated_combination(3).to_a.should == [[1,1,1], [1,1,2],
-          [1,1,3], [1,2,2], [1,2,3], [1,3,3], [2,2,2], [2,2,3], [2,3,3], [3,3,3]]
-      end
-    end
-
-    it "leaves the original unmodified" do
-      vector.repeated_combination(2) {}
-      vector.should eql(V[1,2,3,4])
-    end
-
-    it "behaves like Array#repeated_combination" do
-      0.upto(5) do |comb_size|
-        array = 10.times.map { rand(1000) }
-        V.new(array).repeated_combination(comb_size).to_a.should == array.repeated_combination(comb_size).to_a
-      end
-
-      array = 18.times.map { rand(1000) }
-      V.new(array).repeated_combination(2).to_a.should == array.repeated_combination(2).to_a
-    end
-  end
-end

data/spec/lib/immutable/vector/repeated_permutation_spec.rb

@@ -1,93 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#repeated_permutation" do
-    let(:vector) { V[1,2,3,4] }
-
-    context "without a block" do
-      context "and without argument" do
-        it "returns an Enumerator of all repeated permutations" do
-          vector.repeated_permutation.class.should be(Enumerator)
-          vector.repeated_permutation.to_a.sort.should eql(vector.to_a.repeated_permutation(4).to_a.sort)
-        end
-      end
-
-      context "with an integral argument" do
-        it "returns an Enumerator of all repeated permutations of the given length" do
-          vector.repeated_permutation(2).class.should be(Enumerator)
-          vector.repeated_permutation(2).to_a.sort.should eql(vector.to_a.repeated_permutation(2).to_a.sort)
-          vector.repeated_permutation(3).class.should be(Enumerator)
-          vector.repeated_permutation(3).to_a.sort.should eql(vector.to_a.repeated_permutation(3).to_a.sort)
-        end
-      end
-    end
-
-    context "with a block" do
-      it "returns self" do
-        vector.repeated_permutation {}.should be(vector)
-      end
-
-      context "on an empty vector" do
-        it "yields the empty permutation" do
-          yielded = []
-          V.empty.repeated_permutation { |obj| yielded << obj }
-          yielded.should eql([[]])
-        end
-      end
-
-      context "with an argument of zero" do
-        it "yields the empty permutation" do
-          yielded = []
-          vector.repeated_permutation(0) { |obj| yielded << obj }
-          yielded.should eql([[]])
-        end
-      end
-
-      context "with no argument" do
-        it "yields all repeated permutations" do
-          yielded = []
-          V[1,2,3].repeated_permutation { |obj| yielded << obj }
-          yielded.sort.should eql([[1,1,1], [1,1,2], [1,1,3], [1,2,1], [1,2,2],
-            [1,2,3], [1,3,1], [1,3,2], [1,3,3], [2,1,1], [2,1,2], [2,1,3], [2,2,1],
-            [2,2,2], [2,2,3], [2,3,1], [2,3,2], [2,3,3], [3,1,1], [3,1,2], [3,1,3],
-            [3,2,1], [3,2,2], [3,2,3], [3,3,1], [3,3,2], [3,3,3]])
-        end
-      end
-
-      context "with a positive integral argument" do
-        it "yields all repeated permutations of the given length" do
-          yielded = []
-          vector.repeated_permutation(2) { |obj| yielded << obj }
-          yielded.sort.should eql([[1,1], [1,2], [1,3], [1,4], [2,1], [2,2], [2,3], [2,4],
-            [3,1], [3,2], [3,3], [3,4], [4,1], [4,2], [4,3], [4,4]])
-        end
-      end
-    end
-
-    it "handles duplicate elements correctly" do
-    V[10,11,10].repeated_permutation(2).sort.should eql([[10, 10], [10, 10],
-      [10, 10], [10, 10], [10, 11], [10, 11], [11, 10], [11, 10], [11, 11]])
-    end
-
-    it "allows permutations larger than the number of elements" do
-      V[1,2].repeated_permutation(3).sort.should eql(
-        [[1, 1, 1], [1, 1, 2], [1, 2, 1],
-         [1, 2, 2], [2, 1, 1], [2, 1, 2],
-         [2, 2, 1], [2, 2, 2]])
-    end
-
-    it "leaves the original unmodified" do
-      vector.repeated_permutation(2) {}
-      vector.should eql(V[1,2,3,4])
-    end
-
-    it "behaves like Array#repeated_permutation" do
-      10.times do
-        array  = rand(8).times.map { rand(10000) }
-        vector = V.new(array)
-        perm_size = array.size == 0 ? 0 : rand(array.size)
-        array.repeated_permutation(perm_size).to_a.should == vector.repeated_permutation(perm_size).to_a
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/reverse_each_spec.rb

@@ -1,31 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#reverse_each" do
-    [2, 31, 32, 33, 1000, 1024, 1025, 2000].each do |size|
-      context "on a #{size}-item vector" do
-        let(:vector) { V[1..size] }
-
-        context "with a block (internal iteration)" do
-          it "returns self" do
-            vector.reverse_each {}.should be(vector)
-          end
-
-          it "yields all items in the opposite order as #each" do
-            result = []
-            vector.reverse_each { |item| result << item }
-            result.should eql(vector.to_a.reverse)
-          end
-        end
-
-        context "with no block" do
-          it "returns an Enumerator" do
-            result = vector.reverse_each
-            result.class.should be(Enumerator)
-            result.to_a.should eql(vector.to_a.reverse)
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/reverse_spec.rb

@@ -1,21 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#reverse" do
-    [
-      [[], []],
-      [[1], [1]],
-      [[1,2], [2,1]],
-      [(1..32).to_a, (1..32).to_a.reverse],
-      [(1..33).to_a, (1..33).to_a.reverse],
-      [(1..100).to_a, (1..100).to_a.reverse],
-      [(1..1024).to_a, (1..1024).to_a.reverse]
-    ].each do |initial, expected|
-      describe "on #{initial}" do
-        it "returns #{expected}" do
-          V.new(initial).reverse.should eql(V.new(expected))
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/vector/rindex_spec.rb

@@ -1,36 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Vector do
-  describe "#rindex" do
-    let(:vector) { V[1,2,3,3,2,1] }
-
-    context "when passed an object present in the vector" do
-      it "returns the last index where the object is present" do
-        vector.rindex(1).should be(5)
-        vector.rindex(2).should be(4)
-        vector.rindex(3).should be(3)
-      end
-    end
-
-    context "when passed an object not present in the vector" do
-      it "returns nil" do
-        vector.rindex(0).should be_nil
-        vector.rindex(nil).should be_nil
-        vector.rindex('string').should be_nil
-      end
-    end
-
-    context "with a block" do
-      it "returns the last index of an object which the predicate is true for" do
-        vector.rindex { |n| n > 2 }.should be(3)
-      end
-    end
-
-    context "without an argument OR block" do
-      it "returns an Enumerator" do
-        vector.rindex.class.should be(Enumerator)
-        vector.rindex.each { |n| n > 2 }.should be(3)
-      end
-    end
-  end
-end