immutable-ruby 0.0.4 → 0.2.0

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

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

@@ -1,35 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  [:find, :detect].each do |method|
-    describe "##{method}" do
-      [
-        [[], "A", nil],
-        [[], nil, nil],
-        [["A"], "A", "A"],
-        [["A"], "B", nil],
-        [["A"], nil, nil],
-        [["A", "B", nil], "A", "A"],
-        [["A", "B", nil], "B", "B"],
-        [["A", "B", nil], nil, nil],
-        [["A", "B", nil], "C", nil],
-      ].each do |values, item, expected|
-        describe "on #{values.inspect}" do
-          context "with a block" do
-            it "returns #{expected.inspect}" do
-              S[*values].send(method) { |x| x == item }.should == expected
-            end
-          end
-
-          context "without a block" do
-            it "returns an Enumerator" do
-              result = S[*values].send(method)
-              result.class.should be(Enumerator)
-              result.each { |x| x == item}.should == expected
-            end
-          end
-        end
-      end
-    end
-  end
-end

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

@@ -1,28 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe "#first" do
-    context "on an empty set" do
-      it "returns nil" do
-        S.empty.first.should be_nil
-      end
-    end
-
-    context "on a non-empty set" do
-      it "returns an arbitrary value from the set" do
-        %w[A B C].include?(S["A", "B", "C"].first).should == true
-      end
-    end
-
-    it "returns nil if only member of set is nil" do
-      S[nil].first.should be(nil)
-    end
-
-    it "returns the first item yielded by #each" do
-      10.times do
-        set = S.new((rand(10)+1).times.collect { rand(10000 )})
-        set.each { |item| break item }.should be(set.first)
-      end
-    end
-  end
-end

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

@@ -1,46 +0,0 @@
-require "spec_helper"
-
-describe Immutable do
-  describe "#flatten" do
-    [
-      [["A"], ["A"]],
-      [%w[A B C], %w[A B C]],
-      [["A", S["B"], "C"], %w[A B C]],
-      [[S["A"], S["B"], S["C"]], %w[A B C]],
-    ].each do |values, expected|
-      describe "on #{values}" do
-        let(:set) { S[*values] }
-
-        it "preserves the original" do
-          set.flatten
-          set.should eql(S[*values])
-        end
-
-        it "returns the inlined values" do
-          set.flatten.should eql(S[*expected])
-        end
-      end
-    end
-
-    context "on an empty set" do
-      it "returns an empty set" do
-        S.empty.flatten.should equal(S.empty)
-      end
-    end
-
-    context "on a set with multiple levels of nesting" do
-      it "inlines lower levels of nesting" do
-        set = S[S[S[1]], S[S[2]]]
-        set.flatten.should eql(S[1, 2])
-      end
-    end
-
-    context "from a subclass" do
-      it "returns an instance of the subclass" do
-        subclass = Class.new(Immutable::Set)
-        subclass.new.flatten.class.should be(subclass)
-        subclass.new([S[1], S[2]]).flatten.class.should be(subclass)
-      end
-    end
-  end
-end

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

@@ -1,57 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  let(:set) { S[*values] }
-
-  describe "#grep" do
-    let(:grep) { set.grep(String, &block) }
-
-    shared_examples "check filtered values" do
-      it "returns the filtered values" do
-        expect(grep).to eq(S[*filtered])
-      end
-    end
-
-    shared_examples "check different types of inputs" do
-      context "with an empty set" do
-        let(:values) { [] }
-        let(:filtered) { [] }
-
-        include_examples "check filtered values"
-      end
-
-      context "with a single item set" do
-        let(:values) { ["A"] }
-        let(:filtered) { ["A"] }
-
-        include_examples "check filtered values"
-      end
-
-      context "with a single item set that doesn't contain match" do
-        let(:values) { [1] }
-        let(:filtered) { [] }
-
-        include_examples "check filtered values"
-      end
-
-      context "with a multi-item set where one isn't a match" do
-        let(:values) { ["A", 2, "C"] }
-        let(:filtered) { %w[A C] }
-
-        include_examples "check filtered values"
-      end
-    end
-
-    context "without a block" do
-      let(:block) { nil }
-
-      include_examples "check different types of inputs"
-    end
-
-    describe "with a block" do
-      let(:block) { ->(item) { item }}
-
-      include_examples "check different types of inputs"
-    end
-  end
-end

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

@@ -1,59 +0,0 @@
-require "spec_helper"
-require "immutable/set"
-
-describe Immutable::Set do
-  let(:set) { S[*values] }
-
-  describe "#grep_v" do
-    let(:grep_v) { set.grep_v(String, &block) }
-
-    shared_examples "check filtered values" do
-      it "returns the filtered values" do
-        expect(grep_v).to eq(S[*filtered])
-      end
-    end
-
-    context "without a block" do
-      let(:block) { nil }
-
-      context "with an empty set" do
-        let(:values) { [] }
-        let(:filtered) { [] }
-
-        include_examples "check filtered values"
-      end
-
-      context "with a single item set" do
-        let(:values) { ["A"] }
-        let(:filtered) { [] }
-
-        include_examples "check filtered values"
-      end
-
-      context "with a single item set that doesn't contain match" do
-        let(:values) { [1] }
-        let(:filtered) { [1] }
-
-        include_examples "check filtered values"
-      end
-
-      context "with a multi-item set where one isn't a match" do
-        let(:values) { [2, "C", 4] }
-        let(:filtered) { [2, 4] }
-
-        include_examples "check filtered values"
-      end
-    end
-
-    describe "with a block" do
-      let(:block) { ->(item) { item + 100 }}
-
-      context "resulting items are processed with the block" do
-        let(:values) { [2, "C", 4] }
-        let(:filtered) { [102, 104] }
-
-        include_examples "check filtered values"
-      end
-    end
-  end
-end

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

@@ -1,59 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  [:group_by, :group, :classify].each do |method|
-    describe "##{method}" do
-      context "with a block" do
-        [
-          [[], []],
-          [[1], [true => S[1]]],
-          [[1, 2, 3, 4], [true => S[3, 1], false => S[4, 2]]],
-        ].each do |values, expected|
-          context "on #{values.inspect}" do
-            let(:set) { S[*values] }
-
-            it "returns #{expected.inspect}" do
-              set.send(method, &:odd?).should eql(H[*expected])
-              set.should eql(S.new(values)) # make sure it hasn't changed
-            end
-          end
-        end
-      end
-
-      context "without a block" do
-        [
-          [[], []],
-          [[1], [1 => S[1]]],
-          [[1, 2, 3, 4], [1 => S[1], 2 => S[2], 3 => S[3], 4 => S[4]]],
-        ].each do |values, expected|
-          context "on #{values.inspect}" do
-            let(:set) { S[*values] }
-
-            it "returns #{expected.inspect}" do
-              set.group_by.should eql(H[*expected])
-              set.should eql(S.new(values)) # make sure it hasn't changed
-            end
-          end
-        end
-      end
-
-      context "on an empty set" do
-        it "returns an empty hash" do
-          S.empty.group_by { |x| x }.should eql(H.empty)
-        end
-      end
-
-      it "returns a hash without default proc" do
-        S[1,2,3].group_by { |x| x }.default_proc.should be_nil
-      end
-
-      context "from a subclass" do
-        it "returns an Hash whose values are instances of the subclass" do
-          subclass = Class.new(Immutable::Set)
-          instance = subclass.new([1, 'string', :symbol])
-          instance.group_by { |x| x.class }.values.each { |v| v.class.should be(subclass) }
-        end
-      end
-    end
-  end
-end

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

@@ -1,22 +0,0 @@
-require "spec_helper"
-
-describe Immutable::Set do
-  describe "#hash" do
-    context "on an empty set" do
-      it "returns 0" do
-        S.empty.hash.should == 0
-      end
-    end
-
-    it "generates the same hash value for a set regardless of the order things were added to it" do
-      item1 = DeterministicHash.new('a', 121)
-      item2 = DeterministicHash.new('b', 474)
-      item3 = DeterministicHash.new('c', 121)
-      S.empty.add(item1).add(item2).add(item3).hash.should == S.empty.add(item3).add(item2).add(item1).hash
-    end
-
-    it "values are sufficiently distributed" do
-      (1..4000).each_slice(4).map { |a, b, c, d| S[a, b, c, d].hash }.uniq.size.should == 1000
-    end
-  end
-end