immutable-ruby 0.0.4 → 0.1.0

data/spec/lib/immutable/hash/select_spec.rb

@@ -1,57 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  [:select, :find_all, :keep_if].each do |method|
-    describe "##{method}" do
-      let(:original) { H["A" => "aye", "B" => "bee", "C" => "see"] }
-
-      context "when everything matches" do
-        it "returns self" do
-          original.send(method) { |key, value| true }.should equal(original)
-        end
-      end
-
-      context "when only some things match" do
-        context "with a block" do
-          let(:result) { original.send(method) { |key, value| key == "A" && value == "aye" }}
-
-          it "preserves the original" do
-            original.should eql(H["A" => "aye", "B" => "bee", "C" => "see"])
-          end
-
-          it "returns a set with the matching values" do
-            result.should eql(H["A" => "aye"])
-          end
-        end
-
-        it "yields entries as [key, value] pairs" do
-          original.send(method) do |e|
-            e.should be_kind_of(Array)
-            ["A", "B", "C"].include?(e[0]).should == true
-            ["aye", "bee", "see"].include?(e[1]).should == true
-          end
-        end
-
-        context "with no block" do
-          it "returns an Enumerator" do
-            original.send(method).class.should be(Enumerator)
-            original.send(method).to_a.sort.should == [['A', 'aye'], ['B', 'bee'], ['C', 'see']]
-          end
-        end
-      end
-
-      it "works on a large hash, with many combinations of input" do
-        keys = (1..1000).to_a
-        original = H.new(keys.zip(2..1001))
-        25.times do
-          threshold = rand(1000)
-          result    = original.send(method) { |k,v| k <= threshold }
-          result.size.should == threshold
-          result.each_key { |k| k.should <= threshold }
-          (threshold+1).upto(1000) { |k| result.key?(k).should == false }
-        end
-        original.should eql(H.new(keys.zip(2..1001))) # shouldn't have changed
-      end
-    end
-  end
-end

data/spec/lib/immutable/hash/size_spec.rb

@@ -1,51 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  [:size, :length].each do |method|
-    describe "##{method}" do
-      [
-        [[], 0],
-        [["A" => "aye"], 1],
-        [["A" => "bee", "B" => "bee", "C" => "see"], 3],
-      ].each do |values, result|
-
-        it "returns #{result} for #{values.inspect}" do
-          H[*values].send(method).should == result
-        end
-      end
-
-      lots = (1..10_842).to_a
-      srand 89_533_474
-      random_things = (lots + lots).sort_by { |x|rand }
-
-      it "has the correct size after adding lots of things with colliding keys and such" do
-        h = H.empty
-        random_things.each do |thing|
-          h = h.put(thing, thing * 2)
-        end
-        h.size.should == 10_842
-      end
-
-      random_actions = (lots.map { |x|[:add, x] } + lots.map { |x|[:add, x] } + lots.map { |x|[:remove, x] }).sort_by { |x|rand }
-      ending_size = random_actions.reduce({}) do |h, (act, ob)|
-        if act == :add
-          h[ob] = 1
-        else
-          h.delete(ob)
-        end
-        h
-      end.size
-      it "has the correct size after lots of addings and removings" do
-        h = H.empty
-        random_actions.each do |(act, ob)|
-          if act == :add
-            h = h.put(ob, ob * 3)
-          else
-            h = h.delete(ob)
-          end
-        end
-        h.size.should == ending_size
-      end
-    end
-  end
-end

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

@@ -1,44 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  let(:hash) { H.new("A" => "aye", "B" => "bee", "C" => "see", nil => "NIL") }
-
-  describe "#slice" do
-    let(:slice) { hash.slice(*values) }
-
-    context "with all keys present in the Hash" do
-      let(:values) { ["B", nil] }
-
-      it "returns the sliced values" do
-        expect(slice).to eq(described_class.new("B" => "bee", nil => "NIL"))
-      end
-
-      it "doesn't modify the original Hash" do
-        slice
-        hash.should eql(H.new("A" => "aye", "B" => "bee", "C" => "see", nil => "NIL"))
-      end
-    end
-
-    context "with keys aren't present in the Hash" do
-      let(:values) { ["B", "A", 3] }
-
-      it "returns the sliced values of the matching keys" do
-        expect(slice).to eq(described_class.new("A" => "aye", "B" => "bee"))
-      end
-
-      it "doesn't modify the original Hash" do
-        slice
-        hash.should eql(H.new("A" => "aye", "B" => "bee", "C" => "see", nil => "NIL"))
-      end
-    end
-
-    context "on a Hash with a default block" do
-      let(:hash) { H.new('A' => 'aye', 'B' => 'bee') { 'nothing' }}
-      let(:values) { ["B", nil] }
-
-      it "maintains the default block" do
-        expect(slice['C']).to eq('nothing')
-      end
-    end
-  end
-end

data/spec/lib/immutable/hash/sort_spec.rb

@@ -1,26 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  let(:hash) { H[a: 3, b: 2, c: 1] }
-
-  describe "#sort" do
-    it "returns a Vector of sorted key/val pairs" do
-      hash.sort.should eql(V[[:a, 3], [:b, 2], [:c, 1]])
-    end
-
-    it "works on large hashes" do
-      array = (1..1000).map { |n| [n,n] }
-      H.new(array.shuffle).sort.should eql(V.new(array))
-    end
-
-    it "uses block as comparator to sort if passed a block" do
-      hash.sort { |a,b| b <=> a }.should eql(V[[:c, 1], [:b, 2], [:a, 3]])
-    end
-  end
-
-  describe "#sort_by" do
-    it "returns a Vector of key/val pairs, sorted using the block as a key function" do
-      hash.sort_by { |k,v| v }.should eql(V[[:c, 1], [:b, 2], [:a, 3]])
-    end
-  end
-end

data/spec/lib/immutable/hash/store_spec.rb

@@ -1,75 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  describe "#store" do
-    let(:hash) { H["A" => "aye", "B" => "bee", "C" => "see"] }
-
-    context "with a unique key" do
-      let(:result) { hash.store("D", "dee") }
-
-      it "preserves the original" do
-        result
-        hash.should eql(H["A" => "aye", "B" => "bee", "C" => "see"])
-      end
-
-      it "returns a copy with the superset of key/value pairs" do
-        result.should eql(H["A" => "aye", "B" => "bee", "C" => "see", "D" => "dee"])
-      end
-    end
-
-    context "with a duplicate key" do
-      let(:result) { hash.store("C", "sea") }
-
-      it "preserves the original" do
-        result
-        hash.should eql(H["A" => "aye", "B" => "bee", "C" => "see"])
-      end
-
-      it "returns a copy with the superset of key/value pairs" do
-        result.should eql(H["A" => "aye", "B" => "bee", "C" => "sea"])
-      end
-    end
-
-    context "with duplicate key and identical value" do
-      let(:hash) { H["X" => 1, "Y" => 2] }
-      let(:result) { hash.store("X", 1) }
-
-      it "returns the original hash unmodified" do
-        result.should be(hash)
-      end
-
-      context "with big hash (force nested tries)" do
-        let(:keys) { (0..99).map(&:to_s) }
-        let(:values) { (100..199).to_a }
-        let(:hash) { H[keys.zip(values)] }
-
-        it "returns the original hash unmodified for all changes" do
-          keys.each_with_index do |key, index|
-            result = hash.store(key, values[index])
-            result.should be(hash)
-          end
-        end
-      end
-    end
-
-    context "with unequal keys which hash to the same value" do
-      let(:hash) { H[DeterministicHash.new('a', 1) => 'aye'] }
-
-      it "stores and can retrieve both" do
-        result = hash.store(DeterministicHash.new('b', 1), 'bee')
-        result.get(DeterministicHash.new('a', 1)).should eql('aye')
-        result.get(DeterministicHash.new('b', 1)).should eql('bee')
-      end
-    end
-
-    context "when a String is inserted as key and then mutated" do
-      it "is not affected" do
-        string = "a string!"
-        hash = H.empty.store(string, 'a value!')
-        string.upcase!
-        hash['a string!'].should == 'a value!'
-        hash['A STRING!'].should be_nil
-      end
-    end
-  end
-end

data/spec/lib/immutable/hash/subset_spec.rb

@@ -1,42 +0,0 @@
-require "spec_helper"
-require "immutable/hash"
-
-describe Immutable::Hash do
-  describe "#<=" do
-    [
-      [{}, {}, true],
-      [{"A" => 1}, {}, false],
-      [{}, {"A" => 1}, true],
-      [{"A" => 1}, {"A" => 1}, true],
-      [{"A" => 1}, {"A" => 2}, false],
-      [{"B" => 2}, {"A" => 1, "B" => 2, "C" => 3}, true],
-      [{"A" => 1, "B" => 2, "C" => 3}, {"B" => 2}, false],
-      [{"B" => 0}, {"A" => 1, "B" => 2, "C" => 3}, false],
-    ].each do |a, b, expected|
-      describe "for #{a.inspect} and #{b.inspect}" do
-        it "returns #{expected}"  do
-          expect(H[a] <= H[b]).to eq(expected)
-        end
-      end
-    end
-  end
-
-  describe "#<" do
-    [
-      [{}, {}, false],
-      [{"A" => 1}, {}, false],
-      [{}, {"A" => 1}, true],
-      [{"A" => 1}, {"A" => 1}, false],
-      [{"A" => 1}, {"A" => 2}, false],
-      [{"B" => 2}, {"A" => 1, "B" => 2, "C" => 3}, true],
-      [{"A" => 1, "B" => 2, "C" => 3}, {"B" => 2}, false],
-      [{"B" => 0}, {"A" => 1, "B" => 2, "C" => 3}, false],
-    ].each do |a, b, expected|
-      describe "for #{a.inspect} and #{b.inspect}" do
-        it "returns #{expected}"  do
-          expect(H[a] < H[b]).to eq(expected)
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/hash/superset_spec.rb

@@ -1,42 +0,0 @@
-require "spec_helper"
-require "immutable/hash"
-
-describe Immutable::Hash do
-  describe "#>=" do
-    [
-      [{}, {}, true],
-      [{"A" => 1}, {}, true],
-      [{}, {"A" => 1}, false],
-      [{"A" => 1}, {"A" => 1}, true],
-      [{"A" => 1}, {"A" => 2}, false],
-      [{"A" => 1, "B" => 2, "C" => 3}, {"B" => 2}, true],
-      [{"B" => 2}, {"A" => 1, "B" => 2, "C" => 3}, false],
-      [{"A" => 1, "B" => 2, "C" => 3}, {"B" => 0}, false],
-    ].each do |a, b, expected|
-      describe "for #{a.inspect} and #{b.inspect}" do
-        it "returns #{expected}"  do
-          expect(H[a] >= H[b]).to eq(expected)
-        end
-      end
-    end
-  end
-
-  describe "#>" do
-    [
-      [{}, {}, false],
-      [{"A" => 1}, {}, true],
-      [{}, {"A" => 1}, false],
-      [{"A" => 1}, {"A" => 1}, false],
-      [{"A" => 1}, {"A" => 2}, false],
-      [{"A" => 1, "B" => 2, "C" => 3}, {"B" => 2}, true],
-      [{"B" => 2}, {"A" => 1, "B" => 2, "C" => 3}, false],
-      [{"A" => 1, "B" => 2, "C" => 3}, {"B" => 0}, false],
-    ].each do |a, b, expected|
-      describe "for #{a.inspect} and #{b.inspect}" do
-        it "returns #{expected}"  do
-          expect(H[a] > H[b]).to eq(expected)
-        end
-      end
-    end
-  end
-end

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

@@ -1,35 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  let(:hash) { H["A" => "aye", "B" => "bee", "C" => "see"] }
-
-  describe "#take" do
-    it "returns the first N key/val pairs from hash" do
-      hash.take(0).should == []
-      [[['A', 'aye']], [['B', 'bee']], [['C', 'see']]].include?(hash.take(1)).should == true
-      [['A', 'aye'], ['B', 'bee'], ['C', 'see']].combination(2).include?(hash.take(2).sort).should == true
-      hash.take(3).sort.should == [['A', 'aye'], ['B', 'bee'], ['C', 'see']]
-      hash.take(4).sort.should == [['A', 'aye'], ['B', 'bee'], ['C', 'see']]
-    end
-  end
-
-  describe "#take_while" do
-    it "passes elements to the block until the block returns nil/false" do
-      passed = nil
-      hash.take_while { |k,v| passed = k; false }
-      ['A', 'B', 'C'].include?(passed).should == true
-    end
-
-    it "returns an array of all elements before the one which returned nil/false" do
-      count = 0
-      result = hash.take_while { count += 1; count < 3 }
-      [['A', 'aye'], ['B', 'bee'], ['C', 'see']].combination(2).include?(result.sort).should == true
-    end
-
-    it "passes all elements if the block never returns nil/false" do
-      passed = []
-      hash.take_while { |k,v| passed << [k, v]; true }.should == hash.to_a
-      passed.sort.should == [['A', 'aye'], ['B', 'bee'], ['C', 'see']]
-    end
-  end
-end

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

@@ -1,13 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  describe "#to_a" do
-    it "returns an Array of [key, value] pairs in same order as #each" do
-      hash = H[:a => 1, 1 => :a, 3 => :b, :b => 5]
-      pairs = []
-      hash.each_pair { |k,v| pairs << [k,v] }
-      hash.to_a.should be_kind_of(Array)
-      hash.to_a.should == pairs
-    end
-  end
-end

data/spec/lib/immutable/hash/to_hash_spec.rb

@@ -1,21 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  [:to_hash, :to_h].each do |method|
-    describe "##{method}" do
-      it "converts an empty Immutable::Hash to an empty Ruby Hash" do
-        H.empty.send(method).should eql({})
-      end
-
-      it "converts a non-empty Immutable::Hash to a Hash with the same keys and values" do
-        H[a: 1, b: 2].send(method).should eql({a: 1, b: 2})
-      end
-
-      it "doesn't modify the receiver" do
-        hash = H[a: 1, b: 2]
-        hash.send(method)
-        hash.should eql(H[a: 1, b: 2])
-      end
-    end
-  end
-end

data/spec/lib/immutable/hash/to_proc_spec.rb

@@ -1,39 +0,0 @@
-require "spec_helper"
-require "immutable/hash"
-
-describe Immutable::Hash do
-  describe "#to_proc" do
-    context "on Hash without default proc" do
-      let(:hash) { H.new("A" => "aye") }
-
-      it "returns a Proc instance" do
-        hash.to_proc.should be_kind_of(Proc)
-      end
-
-      it "returns a Proc that returns the value of an existing key" do
-        hash.to_proc.call("A").should == "aye"
-      end
-
-      it "returns a Proc that returns nil for a missing key" do
-        hash.to_proc.call("B").should be_nil
-      end
-    end
-
-    context "on Hash with a default proc" do
-      let(:hash) { H.new("A" => "aye") { |key| "#{key}-VAL" } }
-
-      it "returns a Proc instance" do
-        hash.to_proc.should be_kind_of(Proc)
-      end
-
-      it "returns a Proc that returns the value of an existing key" do
-        hash.to_proc.call("A").should == "aye"
-      end
-
-      it "returns a Proc that returns the result of the hash's default proc for a missing key" do
-        hash.to_proc.call("B").should == "B-VAL"
-        hash.should == H.new("A" => "aye")
-      end
-    end
-  end
-end

data/spec/lib/immutable/hash/update_in_spec.rb

@@ -1,79 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  describe "#update_in" do
-    let(:hash) {
-      Immutable::Hash[
-        "A" => "aye",
-        "B" => Immutable::Hash["C" => "see", "D" => Immutable::Hash["E" => "eee"]],
-        "F" => Immutable::Vector["G", Immutable::Hash["H" => "eitch"], "I"]
-      ]
-    }
-
-    context "with one level on existing key" do
-      it "passes the value to the block" do
-        hash.update_in("A") { |value| value.should == "aye" }
-      end
-
-      it "replaces the value with the result of the block" do
-        result = hash.update_in("A") { |value| "FLIBBLE" }
-        result.get("A").should == "FLIBBLE"
-      end
-
-      it "should preserve the original" do
-        result = hash.update_in("A") { |value| "FLIBBLE" }
-        hash.get("A").should == "aye"
-      end
-    end
-
-    context "with multi-level on existing keys" do
-      it "passes the value to the block" do
-        hash.update_in("B", "D", "E") { |value| value.should == "eee" }
-      end
-
-      it "replaces the value with the result of the block" do
-        result = hash.update_in("B", "D", "E") { |value| "FLIBBLE" }
-        result["B"]["D"]["E"].should == "FLIBBLE"
-      end
-
-      it "should preserve the original" do
-        result = hash.update_in("B", "D", "E") { |value| "FLIBBLE" }
-        hash["B"]["D"]["E"].should == "eee"
-      end
-    end
-
-    context "with multi-level creating sub-hashes when keys don't exist" do
-      it "passes nil to the block" do
-        hash.update_in("B", "X", "Y") { |value| value.should be_nil }
-      end
-
-      it "creates subhashes on the way to set the value" do
-        result = hash.update_in("B", "X", "Y") { |value| "NEWVALUE" }
-        result["B"]["X"]["Y"].should == "NEWVALUE"
-        result["B"]["D"]["E"].should == "eee"
-      end
-    end
-
-    context "with multi-level including vector with existing keys" do
-      it "passes the value to the block" do
-        hash.update_in("F", 1, "H") { |value| value.should == "eitch" }
-      end
-
-      it "replaces the value with the result of the block" do
-        result = hash.update_in("F", 1, "H") { |value| "FLIBBLE" }
-        result["F"][1]["H"].should == "FLIBBLE"
-      end
-
-      it "should preserve the original" do
-        result = hash.update_in("F", 1, "H") { |value| "FLIBBLE" }
-        hash["F"][1]["H"].should == "eitch"
-      end
-    end
-
-    context "with empty key_path" do
-      it "raises ArguemntError" do
-        expect { hash.update_in() { |v| 42 } }.to raise_error(ArgumentError)
-      end
-    end
-  end
-end

data/spec/lib/immutable/hash/values_at_spec.rb

@@ -1,33 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  describe "#values_at" do
-    context "on Hash without default proc" do
-      let(:hash) { H[:a => 9, :b => 'a', :c => -10, :d => nil] }
-
-      it "returns an empty vector when no keys are given" do
-        hash.values_at.should be_kind_of(Immutable::Vector)
-        hash.values_at.should eql(V.empty)
-      end
-
-      it "returns a vector of values for the given keys" do
-        hash.values_at(:a, :d, :b).should be_kind_of(Immutable::Vector)
-        hash.values_at(:a, :d, :b).should eql(V[9, nil, 'a'])
-      end
-
-      it "fills nil when keys are missing" do
-        hash.values_at(:x, :a, :y, :b).should be_kind_of(Immutable::Vector)
-        hash.values_at(:x, :a, :y, :b).should eql(V[nil, 9, nil, 'a'])
-      end
-    end
-
-    context "on Hash with default proc" do
-      let(:hash) { Immutable::Hash.new(:a => 9) { |key| "#{key}-VAL" } }
-
-      it "fills the result of the default proc when keys are missing" do
-        hash.values_at(:x, :a, :y).should be_kind_of(Immutable::Vector)
-        hash.values_at(:x, :a, :y).should eql(V['x-VAL', 9, 'y-VAL'])
-      end
-    end
-  end
-end

data/spec/lib/immutable/hash/values_spec.rb

@@ -1,23 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Hash do
-  describe "#values" do
-    let(:hash) { H["A" => "aye", "B" => "bee", "C" => "see"] }
-    let(:result) { hash.values }
-
-    it "returns the keys as a Vector" do
-      result.should be_a Immutable::Vector
-      result.to_a.sort.should == %w(aye bee see)
-    end
-
-    context "with duplicates" do
-      let(:hash) { H[:A => 15, :B => 19, :C => 15] }
-      let(:result) { hash.values }
-
-      it "returns the keys as a Vector" do
-        result.class.should be(Immutable::Vector)
-        result.to_a.sort.should == [15, 15, 19]
-      end
-    end
-  end
-end

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

@@ -1,25 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#add" do
-    [
-      [[], "A", ["A"]],
-      [["A"], "B", %w[B A]],
-      [["A"], "A", %w[A A]],
-      [%w[A B C], "D", %w[D A B C]],
-    ].each do |values, new_value, expected|
-      context "on #{values.inspect} with #{new_value.inspect}" do
-        let(:list) { L[*values] }
-
-        it "preserves the original" do
-          list.add(new_value)
-          list.should eql(L[*values])
-        end
-
-        it "returns #{expected.inspect}" do
-          list.add(new_value).should eql(L[*expected])
-        end
-      end
-    end
-  end
-end

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

@@ -1,57 +0,0 @@
-require "spec_helper"
-
-describe Immutable::List do
-  describe "#all?" do
-    context "on a really big list" do
-      let(:list) { BigList }
-
-      it "doesn't run out of stack" do
-        -> { list.all? }.should_not raise_error
-      end
-    end
-
-    context "when empty" do
-      it "with a block returns true" do
-        L.empty.all? {}.should == true
-      end
-
-      it "with no block returns true" do
-        L.empty.all?.should == true
-      end
-    end
-
-    context "when not empty" do
-      context "with a block" do
-        let(:list) { L["A", "B", "C"] }
-
-        context "if the block always returns true" do
-          it "returns true" do
-            list.all? { |item| true }.should == true
-          end
-        end
-
-        context "if the block ever returns false" do
-          it "returns false" do
-            list.all? { |item| item == "D" }.should == false
-          end
-        end
-      end
-
-      context "with no block" do
-        context "if all values are truthy" do
-          it "returns true" do
-            L[true, "A"].all?.should == true
-          end
-        end
-
-        [nil, false].each do |value|
-          context "if any value is #{value.inspect}" do
-            it "returns false" do
-              L[value, true, "A"].all?.should == false
-            end
-          end
-        end
-      end
-    end
-  end
-end