hamster 1.0.1.pre.rc2 → 1.0.1.pre.rc3

data/spec/lib/hamster/sorted_set/sorting_spec.rb

@@ -0,0 +1,45 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  [
+    [:sort, ->(left, right) { left.length <=> right.length }],
+    [:sort_by, ->(item) { item.length }],
+  ].each do |method, comparator|
+    describe "##{method}" do
+      [
+        [[], []],
+        [["A"], ["A"]],
+        [%w[Ichi Ni San], %w[Ni San Ichi]],
+      ].each do |values, expected|
+        describe "on #{values.inspect}" do
+          let(:sorted_set) { Hamster.sorted_set(*values) { |item| item.reverse }}
+
+          context "with a block" do
+            it "preserves the original" do
+              sorted_set.send(method, &comparator)
+              sorted_set.to_a.should == Hamster.sorted_set(*values) { |item| item.reverse }
+            end
+
+            it "returns #{expected.inspect}" do
+              sorted_set.send(method, &comparator).class.should be(Hamster::SortedSet)
+              sorted_set.send(method, &comparator).to_a.should == expected
+            end
+          end
+
+          context "without a block" do
+            it "preserves the original" do
+              sorted_set.send(method)
+              sorted_set.to_a.should == Hamster.sorted_set(*values) { |item| item.reverse }
+            end
+
+            it "returns #{expected.sort.inspect}" do
+              sorted_set.send(method).class.should be(Hamster::SortedSet)
+              sorted_set.send(method).to_a.should == expected.sort
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/sorted_set/subset_spec.rb

@@ -0,0 +1,48 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe "#subset?" do
+    [
+      [[], [], true],
+      [["A"], [], false],
+      [[], ["A"], true],
+      [["A"], ["A"], true],
+      [%w[A B C], ["B"], false],
+      [["B"], %w[A B C], true],
+      [%w[A B C], %w[A C], false],
+      [%w[A C], %w[A B C], true],
+      [%w[A B C], %w[A B C], true],
+      [%w[A B C], %w[A B C D], true],
+      [%w[A B C D], %w[A B C], false],
+    ].each do |a, b, expected|
+      context "for #{a.inspect} and #{b.inspect}" do
+        it "returns #{expected}"  do
+          Hamster.sorted_set(*a).subset?(Hamster.sorted_set(*b)).should == expected
+        end
+      end
+    end
+  end
+
+  describe "#proper_subset?" do
+    [
+      [[], [], false],
+      [["A"], [], false],
+      [[], ["A"], true],
+      [["A"], ["A"], false],
+      [%w[A B C], ["B"], false],
+      [["B"], %w[A B C], true],
+      [%w[A B C], %w[A C], false],
+      [%w[A C], %w[A B C], true],
+      [%w[A B C], %w[A B C], false],
+      [%w[A B C], %w[A B C D], true],
+      [%w[A B C D], %w[A B C], false],
+    ].each do |a, b, expected|
+      context "for #{a.inspect} and #{b.inspect}" do
+        it "returns #{expected}"  do
+          Hamster.sorted_set(*a).proper_subset?(Hamster.sorted_set(*b)).should == expected
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/sorted_set/superset_spec.rb

@@ -0,0 +1,48 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe "#superset?" do
+    [
+      [[], [], true],
+      [["A"], [], true],
+      [[], ["A"], false],
+      [["A"], ["A"], true],
+      [%w[A B C], ["B"], true],
+      [["B"], %w[A B C], false],
+      [%w[A B C], %w[A C], true],
+      [%w[A C], %w[A B C], false],
+      [%w[A B C], %w[A B C], true],
+      [%w[A B C], %w[A B C D], false],
+      [%w[A B C D], %w[A B C], true],
+    ].each do |a, b, expected|
+      context "for #{a.inspect} and #{b.inspect}" do
+        it "returns #{expected}"  do
+          Hamster.sorted_set(*a).superset?(Hamster.sorted_set(*b)).should == expected
+        end
+      end
+    end
+  end
+
+  describe "#proper_superset?" do
+    [
+      [[], [], false],
+      [["A"], [], true],
+      [[], ["A"], false],
+      [["A"], ["A"], false],
+      [%w[A B C], ["B"], true],
+      [["B"], %w[A B C], false],
+      [%w[A B C], %w[A C], true],
+      [%w[A C], %w[A B C], false],
+      [%w[A B C], %w[A B C], false],
+      [%w[A B C], %w[A B C D], false],
+      [%w[A B C D], %w[A B C], true],
+    ].each do |a, b, expected|
+      context "for #{a.inspect} and #{b.inspect}" do
+        it "returns #{expected}"  do
+          Hamster.sorted_set(*a).proper_superset?(Hamster.sorted_set(*b)).should == expected
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/sorted_set/take_spec.rb

@@ -0,0 +1,26 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe "#take" do
+    [
+      [[], 10, []],
+      [["A"], 10, ["A"]],
+      [%w[A B C], 0, []],
+      [%w[A B C], 2, %w[A B]],
+    ].each do |values, number, expected|
+      context "#{number} from #{values.inspect}" do
+        let(:sorted_set) { Hamster.sorted_set(*values) }
+
+        it "preserves the original" do
+          sorted_set.take(number)
+          sorted_set.should eql(Hamster.sorted_set(*values))
+        end
+
+        it "returns #{expected.inspect}" do
+          sorted_set.take(number).should eql(Hamster.sorted_set(*expected))
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/sorted_set/take_while_spec.rb

@@ -0,0 +1,34 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe "#take_while" do
+    [
+      [[], []],
+      [["A"], ["A"]],
+      [%w[A B C], %w[A B]],
+    ].each do |values, expected|
+      context "on #{values.inspect}" do
+        let(:sorted_set) { Hamster.sorted_set(*values) }
+
+        context "with a block" do
+          it "returns #{expected.inspect}" do
+            sorted_set.take_while { |item| item < "C" }.should eql(Hamster.sorted_set(*expected))
+          end
+
+          it "preserves the original" do
+            sorted_set.take_while { |item| item < "C" }
+            sorted_set.should eql(Hamster.sorted_set(*values))
+          end
+        end
+
+        context "without a block" do
+          it "returns an Enumerator" do
+            sorted_set.take_while.class.should be(Enumerator)
+            sorted_set.take_while.each { |item| item < "C" }.should eql(Hamster.sorted_set(*expected))
+          end
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/sorted_set/to_set_spec.rb

@@ -0,0 +1,19 @@
+require "spec_helper"
+require "hamster/sorted_set"
+require "hamster/set"
+
+describe Hamster::SortedSet do
+  describe "#to_set" do
+    [
+      [],
+      ["A"],
+      %w[A B C],
+    ].each do |values|
+      context "on #{values.inspect}" do
+        it "returns a set with the same values" do
+          Hamster.sorted_set(*values).to_set.should eql(Hamster.set(*values))
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/sorted_set/union_spec.rb

@@ -0,0 +1,28 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  [:union, :|, :+, :merge].each do |method|
+    describe "##{method}" do
+      [
+        [[], [], []],
+        [["A"], [], ["A"]],
+        [["A"], ["A"], ["A"]],
+        [%w[A B C], [], %w[A B C]],
+        [%w[A C E G X], %w[B C D E H M], %w[A B C D E G H M X]]
+      ].each do |a, b, expected|
+        context "for #{a.inspect} and #{b.inspect}" do
+          it "returns #{expected.inspect}" do
+            Hamster.sorted_set(*a).send(method, Hamster.sorted_set(*b)).should eql(Hamster.sorted_set(*expected))
+          end
+        end
+
+        context "for #{b.inspect} and #{a.inspect}" do
+          it "returns #{expected.inspect}" do
+            Hamster.sorted_set(*b).send(method, Hamster.sorted_set(*a)).should eql(Hamster.sorted_set(*expected))
+          end
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/sorted_set/up_to_spec.rb

@@ -0,0 +1,52 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe "#up_to" do
+    context "when called without a block" do
+      it "returns a sorted set of all items equal to or less than the argument" do
+        100.times do
+          items = rand(100).times.collect { rand(1000) }
+          set   = Hamster::SortedSet.new(items)
+          threshold = rand(1000)
+          result = set.up_to(threshold)
+          array  = items.select { |x| x <= threshold }.sort
+          result.class.should be(Hamster::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 less than than the argument" do
+        100.times do
+          items = rand(100).times.collect { rand(1000) }
+          set   = Hamster::SortedSet.new(items)
+          threshold = rand(1000)
+          result = []
+          set.up_to(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
+        Hamster::SortedSet.empty.up_to(1).should be_empty
+        Hamster::SortedSet.empty.up_to('abc').should be_empty
+        Hamster::SortedSet.empty.up_to(:symbol).should be_empty
+      end
+    end
+
+    context "with an argument less than all the values in the set" do
+      it "returns an empty set" do
+        result = Hamster.sorted_set(*(1..100)).up_to(0)
+        result.class.should be(Hamster::SortedSet)
+        result.should be_empty
+      end
+    end
+  end
+end

data/spec/lib/hamster/sorted_set/values_at_spec.rb

@@ -0,0 +1,34 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe "#values_at" do
+    let(:sorted_set) { Hamster.sorted_set('a', 'b', 'c') }
+
+    it "accepts any number of indices, and returns a sorted_set of items at those indices" do
+      sorted_set.values_at(0).should eql(Hamster.sorted_set('a'))
+      sorted_set.values_at(1,2).should eql(Hamster.sorted_set('b', 'c'))
+    end
+
+    context "when passed invalid indices" do
+      it "filters them out" do
+        sorted_set.values_at(1,2,3).should eql(Hamster.sorted_set('b', 'c'))
+        sorted_set.values_at(-10,10).should eql(Hamster.sorted_set)
+      end
+    end
+
+    context "when passed no arguments" do
+      it "returns an empty sorted_set" do
+        sorted_set.values_at.should eql(Hamster.sorted_set)
+      end
+    end
+
+    context "from a subclass" do
+      it "returns an instance of the subclass" do
+        subclass = Class.new(Hamster::SortedSet)
+        instance = subclass.new([1,2,3])
+        instance.values_at(1,2).class.should be(subclass)
+      end
+    end
+  end
+end

data/spec/lib/hamster/vector/add_spec.rb

@@ -0,0 +1,68 @@
+require "spec_helper"
+require "hamster/vector"
+
+describe Hamster::Vector do
+  let(:vector) { Hamster.vector(*values) }
+
+  [:add, :<<, :conj, :conjoin, :push].each do |method|
+    describe "##{method}" do
+      shared_examples "checking adding values" do
+        let(:added_vector) { Hamster.vector(*added_values) }
+
+        it "preserves the original" do
+          original = vector
+          vector.send(method, added_value)
+          expect(original).to eq(vector)
+        end
+
+        it "adds the item to the vector" do
+          result = vector.send(method, added_value)
+          expect(result).to eq(added_vector)
+          expect(result.size).to eq(vector.size + 1)
+        end
+      end
+
+      context "with a empty vector adding a single item" do
+        let(:values) { [] }
+        let(:added_value) { "A" }
+        let(:added_values) { ["A"] }
+
+        include_examples "checking adding values"
+      end
+
+      context "with a single-item vector adding a different item" do
+        let(:values) { ["A"] }
+        let(:added_value) { "B" }
+        let(:added_values) { %w[A B] }
+
+        include_examples "checking adding values"
+      end
+
+      context "with a single-item vector adding a duplicate item" do
+        let(:values) { ["A"] }
+        let(:added_value) { "A" }
+        let(:added_values) { %w[A A] }
+
+        include_examples "checking adding values"
+      end
+
+      [31, 32, 33, 1023, 1024, 1025].each do |size|
+        context "with a #{size}-item vector adding a different item" do
+          let(:values) { (1..size).to_a }
+          let(:added_value) { size+1 }
+          let(:added_values) { (1..(size+1)).to_a }
+
+          include_examples "checking adding values"
+        end
+      end
+
+      context "from a subclass" do
+        it "returns an instance of the subclass" do
+          subclass = Class.new(Hamster::Vector)
+          instance = subclass[1,2,3]
+          instance.add(4).class.should be(subclass)
+        end
+      end
+    end
+  end
+end

data/spec/lib/hamster/vector/assoc_spec.rb

@@ -0,0 +1,36 @@
+require "spec_helper"
+require "hamster/vector"
+
+describe Hamster::Vector do
+  let(:vector) { Hamster.vector([:a, 3], [:b, 2], [:c, 1]) }
+
+  describe "#assoc" do
+    it "searches for a 2-element array with a given 1st item" do
+      vector.assoc(:b).should == [:b, 2]
+    end
+
+    it "returns nil if a matching 1st item is not found" do
+      vector.assoc(:d).should be_nil
+    end
+
+    it "uses #== to compare 1st items with provided object" do
+      vector.assoc(EqualNotEql.new).should_not be_nil
+      vector.assoc(EqlNotEqual.new).should be_nil
+    end
+  end
+
+  describe "#rassoc" do
+    it "searches for a 2-element array with a given 2nd item" do
+      vector.rassoc(1).should == [:c, 1]
+    end
+
+    it "returns nil if a matching 2nd item is not found" do
+      vector.rassoc(4).should be_nil
+    end
+
+    it "uses #== to compare 2nd items with provided object" do
+      vector.rassoc(EqualNotEql.new).should_not be_nil
+      vector.rassoc(EqlNotEqual.new).should be_nil
+    end
+  end
+end