immutable-ruby 0.0.1 → 0.1.0

data/spec/lib/immutable/set/any_spec.rb

@@ -1,51 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe "#any?" do
-    context "when empty" do
-      it "with a block returns false" do
-        S.empty.any? {}.should == false
-      end
-
-      it "with no block returns false" do
-        S.empty.any?.should == false
-      end
-    end
-
-    context "when not empty" do
-      context "with a block" do
-        let(:set) { S["A", "B", "C", nil] }
-
-        ["A", "B", "C", nil].each do |value|
-          it "returns true if the block ever returns true (#{value.inspect})" do
-            set.any? { |item| item == value }.should == true
-          end
-        end
-
-        it "returns false if the block always returns false" do
-          set.any? { |item| item == "D" }.should == false
-        end
-
-        it "propagates exceptions raised in the block" do
-          -> { set.any? { |k,v| raise "help" } }.should raise_error(RuntimeError)
-        end
-
-        it "stops iterating as soon as the block returns true" do
-          yielded = []
-          set.any? { |k,v| yielded << k; true }
-          yielded.size.should == 1
-        end
-      end
-
-      context "with no block" do
-        it "returns true if any value is truthy" do
-          S[nil, false, true, "A"].any?.should == true
-        end
-
-        it "returns false if all values are falsey" do
-          S[nil, false].any?.should == false
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/clear_spec.rb

@@ -1,33 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe "#clear" do
-    [
-      [],
-      ["A"],
-      %w[A B C],
-    ].each do |values|
-      describe "on #{values}" do
-        let(:set) { S[*values] }
-
-        it "preserves the original" do
-          set.clear
-          set.should eql(S[*values])
-        end
-
-        it "returns an empty set" do
-          set.clear.should equal(S.empty)
-        end
-      end
-    end
-
-    context "from a subclass" do
-      it "returns an empty instance of the subclass" do
-        subclass = Class.new(Immutable::Set)
-        instance = subclass.new([:a, :b, :c, :d])
-        instance.clear.class.should be(subclass)
-        instance.clear.should be_empty
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/compact_spec.rb

@@ -1,30 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe "#compact" do
-    [
-      [[], []],
-      [["A"], ["A"]],
-      [%w[A B C], %w[A B C]],
-      [[nil], []],
-      [[nil, "B"], ["B"]],
-      [["A", nil], ["A"]],
-      [[nil, nil], []],
-      [["A", nil, "C"], %w[A C]],
-      [[nil, "B", nil], ["B"]],
-    ].each do |values, expected|
-      describe "on #{values.inspect}" do
-        let(:set) { S[*values] }
-
-        it "preserves the original" do
-          set.compact
-          set.should eql(S[*values])
-        end
-
-        it "returns #{expected.inspect}" do
-          set.compact.should eql(S[*expected])
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/construction_spec.rb

@@ -1,18 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe ".set" do
-    context "with no values" do
-      it "returns the empty set" do
-        S.empty.should be_empty
-        S.empty.should equal(Immutable::EmptySet)
-      end
-    end
-
-    context "with a list of values" do
-      it "is equivalent to repeatedly using #add" do
-        S["A", "B", "C"].should eql(S.empty.add("A").add("B").add("C"))
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/copying_spec.rb

@@ -1,13 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  [:dup, :clone].each do |method|
-    let(:set) { S["A", "B", "C"] }
-
-    describe "##{method}" do
-      it "returns self" do
-        set.send(method).should equal(set)
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/count_spec.rb

@@ -1,36 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe "#count" do
-    [
-      [[], 0],
-      [[1], 1],
-      [[1, 2], 1],
-      [[1, 2, 3], 2],
-      [[1, 2, 3, 4], 2],
-      [[1, 2, 3, 4, 5], 3],
-    ].each do |values, expected|
-      describe "on #{values.inspect}" do
-        let(:set) { S[*values] }
-
-        context "with a block" do
-          it "returns #{expected.inspect}" do
-            set.count(&:odd?).should == expected
-          end
-        end
-
-        context "without a block" do
-          it "returns length" do
-            set.count.should == set.length
-          end
-        end
-      end
-    end
-
-    it "works on large sets" do
-      set = Immutable::Set.new(1..2000)
-      set.count.should == 2000
-      set.count(&:odd?).should == 1000
-    end
-  end
-end

data/spec/lib/immutable/set/delete_spec.rb

@@ -1,71 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  let(:set) { S["A", "B", "C"] }
-
-  describe "#delete" do
-    context "with an existing value" do
-      it "preserves the original" do
-        set.delete("B")
-        set.should eql(S["A", "B", "C"])
-      end
-
-      it "returns a copy with the remaining values" do
-        set.delete("B").should eql(S["A", "C"])
-      end
-    end
-
-    context "with a non-existing value" do
-      it "preserves the original values" do
-        set.delete("D")
-        set.should eql(S["A", "B", "C"])
-      end
-
-      it "returns self" do
-        set.delete("D").should equal(set)
-      end
-    end
-
-    context "when removing the last value in a set" do
-      it "returns the canonical empty set" do
-        set.delete("B").delete("C").delete("A").should be(Immutable::EmptySet)
-      end
-    end
-
-    it "works on large sets, with many combinations of input" do
-      array = 1000.times.map { %w[a b c d e f g h i j k l m n].sample(5).join }.uniq
-      set = S.new(array)
-      array.each do |key|
-        result = set.delete(key)
-        result.size.should == set.size - 1
-        result.include?(key).should == false
-        other = array.sample
-        (result.include?(other).should == true) if other != key
-      end
-    end
-  end
-
-  describe "#delete?" do
-    context "with an existing value" do
-      it "preserves the original" do
-        set.delete?("B")
-        set.should eql(S["A", "B", "C"])
-      end
-
-      it "returns a copy with the remaining values" do
-        set.delete?("B").should eql(S["A", "C"])
-      end
-    end
-
-    context "with a non-existing value" do
-      it "preserves the original values" do
-        set.delete?("D")
-        set.should eql(S["A", "B", "C"])
-      end
-
-      it "returns false" do
-        set.delete?("D").should be(false)
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/difference_spec.rb

@@ -1,49 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  [:difference, :subtract, :-].each do |method|
-    describe "##{method}" do
-      [
-        [[], [], []],
-        [["A"], [], ["A"]],
-        [["A"], ["A"], []],
-        [%w[A B C], ["B"], %w[A C]],
-        [%w[A B C], %w[A C], ["B"]],
-        [%w[A B C D E F G H], [], %w[A B C D E F G H]],
-        [%w[A B C M X Y Z], %w[B C D E F G H I J X], %w[A M Y Z]]
-      ].each do |a, b, expected|
-        context "for #{a.inspect} and #{b.inspect}" do
-          let(:set_a) { S[*a] }
-          let(:set_b) { S[*b] }
-          let(:result) { set_a.send(method, set_b) }
-
-          it "doesn't modify the original Sets" do
-            result
-            set_a.should eql(S.new(a))
-            set_b.should eql(S.new(b))
-          end
-
-          it "returns #{expected.inspect}"  do
-            result.should eql(S[*expected])
-          end
-        end
-
-        context "when passed a Ruby Array" do
-          it "returns the expected Set" do
-            S[*a].difference(b.freeze).should eql(S[*expected])
-          end
-        end
-      end
-
-      it "works on a wide variety of inputs" do
-        items = ('aa'..'zz').to_a
-        50.times do
-          array1 = items.sample(200)
-          array2 = items.sample(200)
-          result = S.new(array1).send(method, S.new(array2))
-          result.to_a.sort.should eql((array1 - array2).sort)
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/disjoint_spec.rb

@@ -1,25 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe "#disjoint?" do
-    [
-      [[], [], true],
-      [["A"], [], true],
-      [[], ["A"], true],
-      [["A"], ["A"], false],
-      [%w[A B C], ["B"], false],
-      [["B"], %w[A B C], false],
-      [%w[A B C], %w[D E], true],
-      [%w[F G H I], %w[A B C], true],
-      [%w[A B C], %w[A B C], false],
-      [%w[A B C], %w[A B C D], false],
-      [%w[D E F G], %w[A B C], true],
-    ].each do |a, b, expected|
-      describe "for #{a.inspect} and #{b.inspect}" do
-        it "returns #{expected}" do
-          S[*a].disjoint?(S[*b]).should be(expected)
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/each_spec.rb

@@ -1,45 +0,0 @@
-require "spec_helper"
-require "set"
-
-describe Immutable::Set do
-  let(:set) { S["A", "B", "C"] }
-
-  describe "#each" do
-    let(:each) { set.each(&block) }
-
-    context "without a block" do
-      let(:block) { nil }
-
-      it "returns an Enumerator" do
-        expect(each.class).to be(Enumerator)
-        expect(each.to_a).to eq(set.to_a)
-      end
-    end
-
-    context "with an empty block" do
-      let(:block) { ->(item) {} }
-
-      it "returns self" do
-        expect(each).to be(set)
-      end
-    end
-
-    context "with a block" do
-      let(:items)  { ::Set.new }
-      let(:values) { ::Set.new(%w[A B C]) }
-      let(:block)  { ->(item) { items << item } }
-      before(:each) { each }
-
-      it "yields all values" do
-        expect(items).to eq(values)
-      end
-    end
-
-    it "yields both of a pair of colliding keys" do
-      set = S[DeterministicHash.new('a', 1010), DeterministicHash.new('b', 1010)]
-      yielded = []
-      set.each { |obj| yielded << obj }
-      yielded.map(&:value).sort.should == ['a', 'b']
-    end
-  end
-end

data/spec/lib/immutable/set/empty_spec.rb

@@ -1,44 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe "#empty?" do
-    [
-      [[], true],
-      [["A"], false],
-      [%w[A B C], false],
-      [[nil], false],
-      [[false], false]
-    ].each do |values, expected|
-      describe "on #{values.inspect}" do
-        it "returns #{expected.inspect}" do
-          S[*values].empty?.should == expected
-        end
-      end
-    end
-  end
-
-  describe ".empty" do
-    it "returns the canonical empty set" do
-      S.empty.should be_empty
-      S.empty.object_id.should be(S[].object_id)
-      S.empty.should be(Immutable::EmptySet)
-    end
-
-    context "from a subclass" do
-      it "returns an empty instance of the subclass" do
-        subclass = Class.new(Immutable::Set)
-        subclass.empty.class.should be(subclass)
-        subclass.empty.should be_empty
-      end
-
-      it "calls overridden #initialize when creating empty Set" do
-        subclass = Class.new(Immutable::Set) do
-          def initialize
-            @variable = 'value'
-          end
-        end
-        subclass.empty.instance_variable_get(:@variable).should == 'value'
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/eqeq_spec.rb

@@ -1,103 +0,0 @@
-require "spec_helper"
-require "set"
-
-describe Immutable::Set do
-  let(:set) { S[*values] }
-  let(:comparison) { S[*comparison_values] }
-
-  describe "#==" do
-    let(:eqeq) { set == comparison }
-
-    shared_examples "comparing non-sets" do
-      let(:values) { %w[A B C] }
-
-      it "returns false" do
-        expect(eqeq).to eq(false)
-      end
-    end
-
-    context "when comparing to a standard set" do
-      let(:comparison) { ::Set.new(%w[A B C]) }
-
-      include_examples "comparing non-sets"
-    end
-
-    context "when comparing to a arbitrary object" do
-      let(:comparison) { Object.new }
-
-      include_examples "comparing non-sets"
-    end
-
-    context "with an empty set for each comparison" do
-      let(:values) { [] }
-      let(:comparison_values) { [] }
-
-      it "returns true" do
-        expect(eqeq).to eq(true)
-      end
-    end
-
-    context "with an empty set and a set with nil" do
-      let(:values) { [] }
-      let(:comparison_values) { [nil] }
-
-      it "returns false" do
-        expect(eqeq).to eq(false)
-      end
-    end
-
-    context "with a single item array and empty array" do
-      let(:values) { ["A"] }
-      let(:comparison_values) { [] }
-
-      it "returns false" do
-        expect(eqeq).to eq(false)
-      end
-    end
-
-    context "with matching single item array" do
-      let(:values) { ["A"] }
-      let(:comparison_values) { ["A"] }
-
-      it "returns true" do
-        expect(eqeq).to eq(true)
-      end
-    end
-
-    context "with mismatching single item array" do
-      let(:values) { ["A"] }
-      let(:comparison_values) { ["B"] }
-
-      it "returns false" do
-        expect(eqeq).to eq(false)
-      end
-    end
-
-    context "with a multi-item array and single item array" do
-      let(:values) { %w[A B] }
-      let(:comparison_values) { ["A"] }
-
-      it "returns false" do
-        expect(eqeq).to eq(false)
-      end
-    end
-
-    context "with matching multi-item array" do
-      let(:values) { %w[A B] }
-      let(:comparison_values) { %w[A B] }
-
-      it "returns true" do
-        expect(eqeq).to eq(true)
-      end
-    end
-
-    context "with a mismatching multi-item array" do
-      let(:values) { %w[A B] }
-      let(:comparison_values) { %w[B A] }
-
-      it "returns true" do
-        expect(eqeq).to eq(true)
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/eql_spec.rb

@@ -1,109 +0,0 @@
-require "spec_helper"
-require "set"
-
-describe Immutable::Set do
-  let(:set) { S[*values] }
-  let(:comparison) { S[*comparison_values] }
-
-  describe "#eql?" do
-    let(:eql?) { set.eql?(comparison) }
-
-    shared_examples "comparing non-sets" do
-      let(:values) { %w[A B C] }
-
-      it "returns false" do
-        expect(eql?).to eq(false)
-      end
-    end
-
-    context "when comparing to a standard set" do
-      let(:comparison) { ::Set.new(%w[A B C]) }
-
-      include_examples "comparing non-sets"
-    end
-
-    context "when comparing to a arbitrary object" do
-      let(:comparison) { Object.new }
-
-      include_examples "comparing non-sets"
-    end
-
-    context "when comparing with a subclass of Immutable::Set" do
-      let(:comparison) { Class.new(Immutable::Set).new(%w[A B C]) }
-
-      include_examples "comparing non-sets"
-    end
-
-    context "with an empty set for each comparison" do
-      let(:values) { [] }
-      let(:comparison_values) { [] }
-
-      it "returns true" do
-        expect(eql?).to eq(true)
-      end
-    end
-
-    context "with an empty set and a set with nil" do
-      let(:values) { [] }
-      let(:comparison_values) { [nil] }
-
-      it "returns false" do
-        expect(eql?).to eq(false)
-      end
-    end
-
-    context "with a single item array and empty array" do
-      let(:values) { ["A"] }
-      let(:comparison_values) { [] }
-
-      it "returns false" do
-        expect(eql?).to eq(false)
-      end
-    end
-
-    context "with matching single item array" do
-      let(:values) { ["A"] }
-      let(:comparison_values) { ["A"] }
-
-      it "returns true" do
-        expect(eql?).to eq(true)
-      end
-    end
-
-    context "with mismatching single item array" do
-      let(:values) { ["A"] }
-      let(:comparison_values) { ["B"] }
-
-      it "returns false" do
-        expect(eql?).to eq(false)
-      end
-    end
-
-    context "with a multi-item array and single item array" do
-      let(:values) { %w[A B] }
-      let(:comparison_values) { ["A"] }
-
-      it "returns false" do
-        expect(eql?).to eq(false)
-      end
-    end
-
-    context "with matching multi-item array" do
-      let(:values) { %w[A B] }
-      let(:comparison_values) { %w[A B] }
-
-      it "returns true" do
-        expect(eql?).to eq(true)
-      end
-    end
-
-    context "with a mismatching multi-item array" do
-      let(:values) { %w[A B] }
-      let(:comparison_values) { %w[B A] }
-
-      it "returns true" do
-        expect(eql?).to eq(true)
-      end
-    end
-  end
-end

data/spec/lib/immutable/set/exclusion_spec.rb

@@ -1,47 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  [:exclusion, :^].each do |method|
-    describe "##{method}" do
-      [
-        [[], [], []],
-        [["A"], [], ["A"]],
-        [["A"], ["A"], []],
-        [%w[A B C], ["B"], %w[A C]],
-        [%w[A B C], %w[B C D], %w[A D]],
-        [%w[A B C], %w[D E F], %w[A B C D E F]],
-      ].each do |a, b, expected|
-        context "for #{a.inspect} and #{b.inspect}" do
-          let(:set_a) { S[*a] }
-          let(:set_b) { S[*b] }
-          let(:result) { set_a.send(method, set_b) }
-
-          it "doesn't modify the original Sets" do
-            result
-            set_a.should eql(S.new(a))
-            set_b.should eql(S.new(b))
-          end
-
-          it "returns #{expected.inspect}"  do
-            result.should eql(S[*expected])
-          end
-        end
-
-        context "when passed a Ruby Array" do
-          it "returns the expected Set" do
-            S[*a].exclusion(b.freeze).should eql(S[*expected])
-          end
-        end
-      end
-
-      it "works for a wide variety of inputs" do
-        50.times do
-          array1 = (1..400).to_a.sample(100)
-          array2 = (1..400).to_a.sample(100)
-          result = S.new(array1) ^ S.new(array2)
-          result.to_a.sort.should eql(((array1 | array2) - (array1 & array2)).sort)
-        end
-      end
-    end
-  end
-end