immutable-ruby 0.0.1 → 0.1.0

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

@@ -1,28 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  describe "#each" do
-    context "with no block" do
-      let(:sorted_set) { SS["A", "B", "C"] }
-
-      it "returns an Enumerator" do
-        sorted_set.each.class.should be(Enumerator)
-        sorted_set.each.to_a.should eql(sorted_set.to_a)
-      end
-    end
-
-    context "with a block" do
-      let(:sorted_set) { SS.new((1..1025).to_a.reverse) }
-
-      it "returns self" do
-        sorted_set.each {}.should be(sorted_set)
-      end
-
-      it "iterates over the items in order" do
-        items = []
-        sorted_set.each { |item| items << item }
-        items.should == (1..1025).to_a
-      end
-    end
-  end
-end

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

@@ -1,34 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  describe "#empty?" do
-    [
-      [[], true],
-      [["A"], false],
-      [%w[A B C], false],
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        let(:sorted_set) { SS[*values] }
-
-        it "returns #{expected.inspect}" do
-          sorted_set.empty?.should == expected
-        end
-      end
-    end
-  end
-
-  describe ".empty" do
-    it "returns the canonical empty set" do
-      SS.empty.size.should be(0)
-      SS.empty.object_id.should be(SS.empty.object_id)
-    end
-
-    context "from a subclass" do
-      it "returns an empty instance of the subclass" do
-        subclass = Class.new(Immutable::SortedSet)
-        subclass.empty.class.should be(subclass)
-        subclass.empty.should be_empty
-      end
-    end
-  end
-end

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

@@ -1,120 +0,0 @@
-require "spec_helper"
-require "set"
-
-describe Immutable::SortedSet do
-  let(:set) { SS[*values] }
-  let(:comparison) { SS[*comparison_values] }
-
-  describe "#eql?" do
-    let(:eql?) { set.eql?(comparison) }
-
-    shared_examples "comparing something which is not a sorted set" 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 something which is not a sorted set"
-    end
-
-    context "when comparing to a arbitrary object" do
-      let(:comparison) { Object.new }
-      include_examples "comparing something which is not a sorted set"
-    end
-
-    context "when comparing to an Immutable::Set" do
-      let(:comparison) { Immutable::Set.new(%w[A B C]) }
-      include_examples "comparing something which is not a sorted set"
-    end
-
-    context "when comparing with a subclass of Immutable::SortedSet" do
-      let(:comparison) { Class.new(Immutable::SortedSet).new(%w[A B C]) }
-      include_examples "comparing something which is not a sorted set"
-    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
-
-    context "with the same values, but a different sort order" do
-      let(:set) { SS[1, 2, 3] }
-      let(:comparison) { SS.new([1, 2, 3]) { |n| -n }}
-
-      it "returns false" do
-        expect(eql?).to eq(false)
-      end
-    end
-  end
-end

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

@@ -1,22 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet 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
-          it "returns #{expected.inspect}"  do
-            SS[*a].send(method, SS[*b]).should eql(SS[*expected])
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/fetch_spec.rb

@@ -1,64 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  describe "#fetch" do
-    let(:sorted_set) { SS['a', 'b', 'c'] }
-
-    context "with no default provided" do
-      context "when the index exists" do
-        it "returns the value at the index" do
-          sorted_set.fetch(0).should == "a"
-          sorted_set.fetch(1).should == "b"
-          sorted_set.fetch(2).should == "c"
-        end
-      end
-
-      context "when the key does not exist" do
-        it "raises an IndexError" do
-          -> { sorted_set.fetch(3) }.should raise_error(IndexError)
-          -> { sorted_set.fetch(-4) }.should raise_error(IndexError)
-        end
-      end
-    end
-
-    context "with a default value" do
-      context "when the index exists" do
-        it "returns the value at the index" do
-          sorted_set.fetch(0, "default").should == "a"
-          sorted_set.fetch(1, "default").should == "b"
-          sorted_set.fetch(2, "default").should == "c"
-        end
-      end
-
-      context "when the index does not exist" do
-        it "returns the default value" do
-          sorted_set.fetch(3, "default").should == "default"
-          sorted_set.fetch(-4, "default").should == "default"
-        end
-      end
-    end
-
-    context "with a default block" do
-      context "when the index exists" do
-        it "returns the value at the index" do
-          sorted_set.fetch(0) { "default".upcase }.should == "a"
-          sorted_set.fetch(1) { "default".upcase }.should == "b"
-          sorted_set.fetch(2) { "default".upcase }.should == "c"
-        end
-      end
-
-      context "when the index does not exist" do
-        it "invokes the block with the missing index as parameter" do
-          sorted_set.fetch(3) { |index| index.should == 3 }
-          sorted_set.fetch(-4) { |index| index.should == -4 }
-          sorted_set.fetch(3) { "default".upcase }.should == "DEFAULT"
-          sorted_set.fetch(-4) { "default".upcase }.should == "DEFAULT"
-        end
-      end
-    end
-
-    it "gives precedence to default block over default argument if passed both" do
-      sorted_set.fetch(3, 'one') { 'two' }.should == 'two'
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/find_index_spec.rb

@@ -1,40 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  [:find_index, :index].each do |method|
-    describe "##{method}" do
-      [
-        [[], "A", nil],
-        [[], nil, nil],
-        [["A"], "A", 0],
-        [["A"], "B", nil],
-        [["A"], nil, nil],
-        [["A", "B", "C"], "A", 0],
-        [["A", "B", "C"], "B", 1],
-        [["A", "B", "C"], "C", 2],
-        [["A", "B", "C"], "D", nil],
-        [0..1, 1, 1],
-        [0..10, 5, 5],
-        [0..10, 10, 10],
-        [[2], 2, 0],
-        [[2], 2.0, 0],
-        [[2.0], 2.0, 0],
-        [[2.0], 2, 0],
-      ].each do |values, item, expected|
-        unless item.nil? # test breaks otherwise
-          context "looking for #{item.inspect} in #{values.inspect} without block" do
-            it "returns #{expected.inspect}" do
-              SS[*values].send(method, item).should == expected
-            end
-          end
-        end
-
-        context "looking for #{item.inspect} in #{values.inspect} with block" do
-          it "returns #{expected.inspect}" do
-            SS[*values].send(method) { |x| x == item }.should == expected
-          end
-        end
-      end
-    end
-  end
-end

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

@@ -1,18 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  describe "#first" do
-    [
-      [[], nil],
-      [["A"], "A"],
-      [%w[A B C], "A"],
-      [%w[Z Y X], "X"]
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        it "returns #{expected.inspect}" do
-          SS[*values].first.should eql(expected)
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/from_spec.rb

@@ -1,51 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  describe "#from" do
-    context "when called without a block" do
-      it "returns a sorted set of all items equal to or greater than the argument" do
-        100.times do
-          items     = rand(100).times.collect { rand(1000) }
-          set       = SS.new(items)
-          threshold = rand(1000)
-          result    = set.from(threshold)
-          array     = items.select { |x| x >= threshold }.sort
-          result.class.should be(Immutable::SortedSet)
-          result.size.should == array.size
-          result.to_a.should == array
-        end
-      end
-    end
-
-    context "when called with a block" do
-      it "yields all the items equal to or greater than than the argument" do
-        100.times do
-          items     = rand(100).times.collect { rand(1000) }
-          set       = SS.new(items)
-          threshold = rand(1000)
-          result    = []
-          set.from(threshold) { |x| result << x }
-          array  = items.select { |x| x >= threshold }.sort
-          result.size.should == array.size
-          result.should == array
-        end
-      end
-    end
-
-    context "on an empty set" do
-      it "returns an empty set" do
-        SS.empty.from(1).should be_empty
-        SS.empty.from('abc').should be_empty
-        SS.empty.from(:symbol).should be_empty
-      end
-    end
-
-    context "with an argument higher than all the values in the set" do
-      it "returns an empty set" do
-        result = SS.new(1..100).from(101)
-        result.class.should be(Immutable::SortedSet)
-        result.should be_empty
-      end
-    end
-  end
-end

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

@@ -1,57 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  [:group_by, :group, :classify].each do |method|
-    describe "##{method}" do
-      context "with a block" do
-        [
-          [[], []],
-          [[1], [true => SS[1]]],
-          [[1, 2, 3, 4], [true => SS[3, 1], false => SS[4, 2]]],
-        ].each do |values, expected|
-          context "on #{values.inspect}" do
-            let(:sorted_set) { SS[*values] }
-
-            it "preserves the original" do
-              sorted_set.send(method, &:odd?)
-              sorted_set.should eql(SS[*values])
-            end
-
-            it "returns #{expected.inspect}" do
-              sorted_set.send(method, &:odd?).should eql(H[*expected])
-            end
-          end
-        end
-      end
-
-      context "without a block" do
-        [
-          [[], []],
-          [[1], [1 => SS[1]]],
-          [[1, 2, 3, 4], [1 => SS[1], 2 => SS[2], 3 => SS[3], 4 => SS[4]]],
-        ].each do |values, expected|
-          context "on #{values.inspect}" do
-            let(:sorted_set) { SS[*values] }
-
-            it "preserves the original" do
-              sorted_set.group_by
-              sorted_set.should eql(SS[*values])
-            end
-
-            it "returns #{expected.inspect}" do
-              sorted_set.group_by.should eql(H[*expected])
-            end
-          end
-        end
-      end
-
-      context "from a subclass" do
-        it "returns an Hash whose values are instances of the subclass" do
-          subclass = Class.new(Immutable::SortedSet)
-          instance = subclass.new(['some', 'strings', 'here'])
-          instance.group_by { |x| x }.values.each { |v| v.class.should be(subclass) }
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/include_spec.rb

@@ -1,23 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  [:include?, :member?].each do |method|
-    describe "##{method}" do
-      let(:sorted_set) { SS[1, 2, 3, 4.0] }
-
-      [1, 2, 3, 4.0].each do |value|
-        it "returns true for an existing value (#{value.inspect})" do
-          sorted_set.send(method, value).should == true
-        end
-      end
-
-      it "returns false for a non-existing value" do
-        sorted_set.send(method, 5).should == false
-      end
-
-      it "uses #<=> for equality" do
-        sorted_set.send(method, 4).should == true
-      end
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/inspect_spec.rb

@@ -1,37 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  describe "#inspect" do
-    [
-      [[], "Immutable::SortedSet[]"],
-      [["A"], 'Immutable::SortedSet["A"]'],
-      [["C", "B", "A"], 'Immutable::SortedSet["A", "B", "C"]']
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        let(:sorted_set) { SS[*values] }
-
-        it "returns #{expected.inspect}" do
-          sorted_set.inspect.should == expected
-        end
-
-        it "returns a string which can be eval'd to get an equivalent set" do
-          eval(sorted_set.inspect).should eql(sorted_set)
-        end
-      end
-    end
-
-    MySortedSet = Class.new(Immutable::SortedSet)
-
-    context "from a subclass" do
-      let(:sorted_set) { MySortedSet[1, 2] }
-
-      it "returns a programmer-readable representation of the set contents" do
-        sorted_set.inspect.should == 'MySortedSet[1, 2]'
-      end
-
-      it "returns a string which can be eval'd to get an equivalent set" do
-        eval(sorted_set.inspect).should eql(sorted_set)
-      end
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/intersect_spec.rb

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

data/spec/lib/immutable/sorted_set/intersection_spec.rb

@@ -1,28 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  [:intersection, :&].each do |method|
-    describe "##{method}" do
-      [
-        [[], [], []],
-        [["A"], [], []],
-        [["A"], ["A"], ["A"]],
-        [%w[A B C], ["B"], ["B"]],
-        [%w[A B C], %w[A C], %w[A C]],
-        [%w[A M T X], %w[B C D E F G H I M P Q T U], %w[M T]]
-      ].each do |a, b, expected|
-        context "for #{a.inspect} and #{b.inspect}" do
-          it "returns #{expected.inspect}" do
-            SS[*a].send(method, SS[*b]).should eql(SS[*expected])
-          end
-        end
-
-        context "for #{b.inspect} and #{a.inspect}" do
-          it "returns #{expected.inspect}" do
-            SS[*b].send(method, SS[*a]).should eql(SS[*expected])
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/last_spec.rb

@@ -1,36 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  let(:sorted_set) { SS[*values] }
-
-  describe "#last" do
-    let(:last) { sorted_set.last }
-
-    shared_examples "checking values" do
-      it "returns the last item" do
-        expect(last).to eq(last_item)
-      end
-    end
-
-    context "with an empty set" do
-      let(:last_item) { nil }
-      let(:values) { [] }
-
-      include_examples "checking values"
-    end
-
-    context "with a single item set" do
-      let(:last_item) { "A" }
-      let(:values) { %w[A] }
-
-      include_examples "checking values"
-    end
-
-    context "with a multi-item set" do
-      let(:last_item) { "B" }
-      let(:values) { %w[B A] }
-
-      include_examples "checking values"
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/map_spec.rb

@@ -1,43 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  [:map, :collect].each do |method|
-    describe "##{method}" do
-      context "when empty" do
-        it "returns self" do
-          SS.empty.send(method) {}.should equal(SS.empty)
-        end
-      end
-
-      context "when not empty" do
-        let(:sorted_set) { SS["A", "B", "C"] }
-
-        context "with a block" do
-          it "preserves the original values" do
-            sorted_set.send(method, &:downcase)
-            sorted_set.should eql(SS["A", "B", "C"])
-          end
-
-          it "returns a new set with the mapped values" do
-            sorted_set.send(method, &:downcase).should eql(SS["a", "b", "c"])
-          end
-        end
-
-        context "with no block" do
-          it "returns an Enumerator" do
-            sorted_set.send(method).class.should be(Enumerator)
-            sorted_set.send(method).each(&:downcase).should == SS['a', 'b', 'c']
-          end
-        end
-      end
-
-      context "on a set ordered by a comparator" do
-        let(:sorted_set) { SS.new(["A", "B", "C"]) { |a,b| b <=> a }}
-
-        it "returns a new set with the mapped values" do
-          sorted_set.send(method, &:downcase).should == ['c', 'b', 'a']
-        end
-      end
-    end
-  end
-end

data/spec/lib/immutable/sorted_set/marshal_spec.rb

@@ -1,36 +0,0 @@
-require "spec_helper"
-
-describe Immutable::SortedSet do
-  describe "#marshal_dump/#marshal_load" do
-    let(:ruby) do
-      File.join(RbConfig::CONFIG["bindir"], RbConfig::CONFIG["ruby_install_name"])
-    end
-    let(:child_cmd) do
-      %Q|#{ruby} -I lib -r immutable -e 'set = Immutable::SortedSet[5, 10, 15]; $stdout.write(Marshal.dump(set))'|
-    end
-
-    let(:reloaded_set) do
-      IO.popen(child_cmd, "r+") do |child|
-        reloaded_set = Marshal.load(child)
-        child.close
-        reloaded_set
-      end
-    end
-
-    it "can survive dumping and loading into a new process" do
-      expect(reloaded_set).to eql(SS[5, 10, 15])
-    end
-
-    it "is still possible to find items by index after loading" do
-      expect(reloaded_set[0]).to eq(5)
-      expect(reloaded_set[1]).to eq(10)
-      expect(reloaded_set[2]).to eq(15)
-      expect(reloaded_set.size).to eq(3)
-    end
-
-    it "raises a TypeError if set has a custom sort order" do
-      # this is because comparator block can't be serialized
-      -> { Marshal.dump(SS.new([1, 2, 3]) { |x| -x }) }.should raise_error(TypeError)
-    end
-  end
-end