hamster 0.4.3 → 1.0.0

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

@@ -0,0 +1,26 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::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
+          Hamster.sorted_set(*a).intersect?(Hamster.sorted_set(*b)).should be(expected)
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,29 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::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
+            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/last_spec.rb

@@ -0,0 +1,37 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  let(:sorted_set) { Hamster.sorted_set(*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/hamster/sorted_set/map_spec.rb

@@ -0,0 +1,36 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  [:map, :collect].each do |method|
+    describe "##{method}" do
+      context "when empty" do
+        it "returns self" do
+          Hamster.sorted_set.send(method) {}.should equal(Hamster.sorted_set)
+        end
+      end
+
+      context "when not empty" do
+        let(:sorted_set) { Hamster.sorted_set("A", "B", "C") }
+
+        context "with a block" do
+          it "preserves the original values" do
+            sorted_set.send(method, &:downcase)
+            sorted_set.should eql(Hamster.sorted_set("A", "B", "C"))
+          end
+
+          it "returns a new set with the mapped values" do
+            sorted_set.send(method, &:downcase).should eql(Hamster.sorted_set("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 == Hamster.sorted_set('a', 'b', 'c')
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,37 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::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 hamster -e 'set = Hamster.sorted_set(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(Hamster.sorted_set(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(Hamster.sorted_set(1, 2, 3) { |x| -x }) }.should raise_error(TypeError)
+    end
+  end
+end

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

@@ -0,0 +1,37 @@
+require "spec_helper"
+require "hamster/set"
+
+describe Hamster::SortedSet do
+  describe "#max" do
+    context "with a block" do
+      [
+        [[], nil],
+        [["A"], "A"],
+        [%w[Ichi Ni San], "Ichi"],
+      ].each do |values, expected|
+        describe "on #{values.inspect}" do
+          let(:set) { Hamster.sorted_set(*values) }
+          let(:result) { set.max { |maximum, item| maximum.length <=> item.length }}
+
+          it "returns #{expected.inspect}" do
+            result.should == expected
+          end
+        end
+      end
+    end
+
+    context "without a block" do
+      [
+        [[], nil],
+        [["A"], "A"],
+        [%w[Ichi Ni San], "San"],
+      ].each do |values, expected|
+        describe "on #{values.inspect}" do
+          it "returns #{expected.inspect}" do
+            Hamster.sorted_set(*values).max.should == expected
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,20 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe "#min" do
+    [
+      [[], nil],
+      [["A"], "A"],
+      [%w[Ichi Ni San], "Ichi"],
+      [[1,2,3,4,5], 1],
+      [[0, -0.0, 2.2, -4, -4.2], -4.2],
+    ].each do |values, expected|
+      context "on #{values.inspect}" do
+        it "returns #{expected.inspect}" do
+          Hamster.sorted_set(*values).min.should == expected
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,52 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe ".new" do
+    it "accepts a single enumerable argument and creates a new sorted set" do
+      sorted_set = Hamster::SortedSet.new([1,2,3])
+      sorted_set.size.should be(3)
+      sorted_set[0].should be(1)
+      sorted_set[1].should be(2)
+      sorted_set[2].should be(3)
+    end
+
+    it "also works with a Range" do
+      sorted_set = Hamster::SortedSet.new(1..3)
+      sorted_set.size.should be(3)
+      sorted_set[0].should be(1)
+      sorted_set[1].should be(2)
+      sorted_set[2].should be(3)
+    end
+
+    it "is amenable to overriding of #initialize" do
+      class SnazzySortedSet < Hamster::SortedSet
+        def initialize
+          super(['SNAZZY!!!'])
+        end
+      end
+
+      sorted_set = SnazzySortedSet.new
+      sorted_set.size.should be(1)
+      sorted_set.to_a.should == ['SNAZZY!!!']
+    end
+
+    context "from a subclass" do
+      it "returns a frozen instance of the subclass" do
+        subclass = Class.new(Hamster::SortedSet)
+        instance = subclass.new(["some", "values"])
+        instance.class.should be subclass
+        instance.frozen?.should be true
+      end
+    end
+  end
+
+  describe ".[]" do
+    it "accepts a variable number of items and creates a new sorted set" do
+      sorted_set = Hamster::SortedSet['a', 'b']
+      sorted_set.size.should be(2)
+      sorted_set[0].should == 'a'
+      sorted_set[1].should == 'b'
+    end
+  end
+end

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

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

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

@@ -0,0 +1,14 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  describe "#sample" do
+    let(:sorted_set) { Hamster::SortedSet.new(1..10) }
+
+    it "returns a randomly chosen item" do
+      chosen = 100.times.map { sorted_set.sample }
+      chosen.each { |item| sorted_set.include?(item).should == true }
+      sorted_set.each { |item| chosen.include?(item).should == true }
+    end
+  end
+end

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

@@ -0,0 +1,62 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  [:select, :find_all].each do |method|
+    describe "##{method}" do
+      let(:sorted_set) { Hamster.sorted_set("A", "B", "C") }
+
+      context "when everything matches" do
+        it "preserves the original" do
+          sorted_set.send(method) { true }
+          sorted_set.should eql(Hamster.sorted_set("A", "B", "C"))
+        end
+
+        it "returns self" do
+          sorted_set.send(method) { |item| true }.should equal(sorted_set)
+        end
+      end
+
+      context "when only some things match" do
+        context "with a block" do
+          it "preserves the original" do
+            sorted_set.send(method) { |item| item == "A" }
+            sorted_set.should eql(Hamster.sorted_set("A", "B", "C"))
+          end
+
+          it "returns a set with the matching values" do
+            sorted_set.send(method) { |item| item == "A" }.should eql(Hamster.sorted_set("A"))
+          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 { |item| item == "A" }.should eql(Hamster.sorted_set("A"))
+          end
+        end
+      end
+
+      context "when nothing matches" do
+        it "preserves the original" do
+          sorted_set.send(method) { |item| false }
+          sorted_set.should eql(Hamster.sorted_set("A", "B", "C"))
+        end
+
+        it "returns the canonical empty set" do
+          sorted_set.send(method) { |item| false }.should equal(Hamster::EmptySortedSet)
+        end
+      end
+
+      context "from a subclass" do
+        it "returns an instance of the same class" do
+          subclass = Class.new(Hamster::SortedSet)
+          instance = subclass.new(['A', 'B', 'C'])
+          instance.send(method) { true }.class.should be(subclass)
+          instance.send(method) { false }.class.should be(subclass)
+          instance.send(method) { rand(2) == 0 }.class.should be(subclass)
+        end
+      end
+    end
+  end
+end

data/spec/{hamster/vector → lib/hamster/sorted_set}/size_spec.rb

@@ -1,27 +1,18 @@
-require 'spec_helper'
-
-require 'hamster/vector'
-
-describe Hamster::Vector do
+require "spec_helper"
+require "hamster/sorted_set"
 
+describe Hamster::SortedSet do
   [:size, :length].each do |method|
-
     describe "##{method}" do
-
       [
         [[], 0],
         [["A"], 1],
-        [["A", "B", "C"], 3],
+        [%w[A B C], 3],
       ].each do |values, result|
-
         it "returns #{result} for #{values.inspect}" do
-          Hamster.vector(*values).send(method).should == result
+          Hamster.sorted_set(*values).send(method).should == result
         end
-
       end
-
     end
-
   end
-
-end
+end

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

@@ -0,0 +1,257 @@
+require "spec_helper"
+require "hamster/sorted_set"
+
+describe Hamster::SortedSet do
+  let(:sorted_set) { Hamster.sorted_set(1,2,3,4) }
+  let(:big) { Hamster::SortedSet.new(1..10000) }
+
+  [:slice, :[]].each do |method|
+    describe "##{method}" do
+      context "when passed a positive integral index" do
+        it "returns the element at that index" do
+          sorted_set.send(method, 0).should be(1)
+          sorted_set.send(method, 1).should be(2)
+          sorted_set.send(method, 2).should be(3)
+          sorted_set.send(method, 3).should be(4)
+          sorted_set.send(method, 4).should be(nil)
+          sorted_set.send(method, 10).should be(nil)
+
+          big.send(method, 0).should be(1)
+          big.send(method, 9999).should be(10000)
+        end
+
+        it "leaves the original unchanged" do
+          sorted_set.should eql(Hamster.sorted_set(1,2,3,4))
+        end
+      end
+
+      context "when passed a negative integral index" do
+        it "returns the element which is number (index.abs) counting from the end of the sorted_set" do
+          sorted_set.send(method, -1).should be(4)
+          sorted_set.send(method, -2).should be(3)
+          sorted_set.send(method, -3).should be(2)
+          sorted_set.send(method, -4).should be(1)
+          sorted_set.send(method, -5).should be(nil)
+          sorted_set.send(method, -10).should be(nil)
+
+          big.send(method, -1).should be(10000)
+          big.send(method, -10000).should be(1)
+        end
+      end
+
+      context "when passed a positive integral index and count" do
+        it "returns 'count' elements starting from 'index'" do
+          sorted_set.send(method, 0, 0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 0, 1).should eql(Hamster.sorted_set(1))
+          sorted_set.send(method, 0, 2).should eql(Hamster.sorted_set(1,2))
+          sorted_set.send(method, 0, 4).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, 0, 6).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, 0, -1).should be_nil
+          sorted_set.send(method, 0, -2).should be_nil
+          sorted_set.send(method, 0, -4).should be_nil
+          sorted_set.send(method, 2, 0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 2, 1).should eql(Hamster.sorted_set(3))
+          sorted_set.send(method, 2, 2).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, 2, 4).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, 2, -1).should be_nil
+          sorted_set.send(method, 4, 0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 4, 2).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 4, -1).should be_nil
+          sorted_set.send(method, 5, 0).should be_nil
+          sorted_set.send(method, 5, 2).should be_nil
+          sorted_set.send(method, 5, -1).should be_nil
+          sorted_set.send(method, 6, 0).should be_nil
+          sorted_set.send(method, 6, 2).should be_nil
+          sorted_set.send(method, 6, -1).should be_nil
+
+          big.send(method, 0, 3).should eql(Hamster.sorted_set(1,2,3))
+          big.send(method, 1023, 4).should eql(Hamster.sorted_set(1024,1025,1026,1027))
+          big.send(method, 1024, 4).should eql(Hamster.sorted_set(1025,1026,1027,1028))
+        end
+
+        it "leaves the original unchanged" do
+          sorted_set.should eql(Hamster.sorted_set(1,2,3,4))
+        end
+      end
+
+      context "when passed a negative integral index and count" do
+        it "returns 'count' elements, starting from index which is number 'index.abs' counting from the end of the array" do
+          sorted_set.send(method, -1, 0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -1, 1).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, -1, 2).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, -1, -1).should be_nil
+          sorted_set.send(method, -2, 0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -2, 1).should eql(Hamster.sorted_set(3))
+          sorted_set.send(method, -2, 2).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, -2, 4).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, -2, -1).should be_nil
+          sorted_set.send(method, -4, 0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -4, 1).should eql(Hamster.sorted_set(1))
+          sorted_set.send(method, -4, 2).should eql(Hamster.sorted_set(1,2))
+          sorted_set.send(method, -4, 4).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, -4, 6).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, -4, -1).should be_nil
+          sorted_set.send(method, -5, 0).should be_nil
+          sorted_set.send(method, -5, 1).should be_nil
+          sorted_set.send(method, -5, 10).should be_nil
+          sorted_set.send(method, -5, -1).should be_nil
+
+          big.send(method, -1, 1).should eql(Hamster.sorted_set(10000))
+          big.send(method, -1, 2).should eql(Hamster.sorted_set(10000))
+          big.send(method, -6, 2).should eql(Hamster.sorted_set(9995,9996))
+        end
+      end
+
+      context "when passed a Range" do
+        it "returns the elements whose indexes are within the given Range" do
+          sorted_set.send(method, 0..-1).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, 0..-10).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 0..0).should eql(Hamster.sorted_set(1))
+          sorted_set.send(method, 0..1).should eql(Hamster.sorted_set(1,2))
+          sorted_set.send(method, 0..2).should eql(Hamster.sorted_set(1,2,3))
+          sorted_set.send(method, 0..3).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, 0..4).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, 0..10).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, 2..-10).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 2..0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 2..2).should eql(Hamster.sorted_set(3))
+          sorted_set.send(method, 2..3).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, 2..4).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, 3..0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 3..3).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, 3..4).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, 4..0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 4..4).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 4..5).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 5..0).should be_nil
+          sorted_set.send(method, 5..5).should be_nil
+          sorted_set.send(method, 5..6).should be_nil
+
+          big.send(method, 159..162).should eql(Hamster.sorted_set(160,161,162,163))
+          big.send(method, 160..162).should eql(Hamster.sorted_set(161,162,163))
+          big.send(method, 161..162).should eql(Hamster.sorted_set(162,163))
+          big.send(method, 9999..10100).should eql(Hamster.sorted_set(10000))
+          big.send(method, 10000..10100).should eql(Hamster.sorted_set)
+          big.send(method, 10001..10100).should be_nil
+
+          sorted_set.send(method, 0...-1).should eql(Hamster.sorted_set(1,2,3))
+          sorted_set.send(method, 0...-10).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 0...0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 0...1).should eql(Hamster.sorted_set(1))
+          sorted_set.send(method, 0...2).should eql(Hamster.sorted_set(1,2))
+          sorted_set.send(method, 0...3).should eql(Hamster.sorted_set(1,2,3))
+          sorted_set.send(method, 0...4).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, 0...10).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, 2...-10).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 2...0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 2...2).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 2...3).should eql(Hamster.sorted_set(3))
+          sorted_set.send(method, 2...4).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, 3...0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 3...3).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 3...4).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, 4...0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 4...4).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 4...5).should eql(Hamster.sorted_set)
+          sorted_set.send(method, 5...0).should be_nil
+          sorted_set.send(method, 5...5).should be_nil
+          sorted_set.send(method, 5...6).should be_nil
+
+          big.send(method, 159...162).should eql(Hamster.sorted_set(160,161,162))
+          big.send(method, 160...162).should eql(Hamster.sorted_set(161,162))
+          big.send(method, 161...162).should eql(Hamster.sorted_set(162))
+          big.send(method, 9999...10100).should eql(Hamster.sorted_set(10000))
+          big.send(method, 10000...10100).should eql(Hamster.sorted_set)
+          big.send(method, 10001...10100).should be_nil
+
+          sorted_set.send(method, -1..-1).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, -1...-1).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -1..3).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, -1...3).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -1..4).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, -1...4).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, -1..10).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, -1...10).should eql(Hamster.sorted_set(4))
+          sorted_set.send(method, -1..0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -1..-4).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -1...-4).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -1..-6).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -1...-6).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -2..-2).should eql(Hamster.sorted_set(3))
+          sorted_set.send(method, -2...-2).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -2..-1).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, -2...-1).should eql(Hamster.sorted_set(3))
+          sorted_set.send(method, -2..10).should eql(Hamster.sorted_set(3,4))
+          sorted_set.send(method, -2...10).should eql(Hamster.sorted_set(3,4))
+
+          big.send(method, -1..-1).should eql(Hamster.sorted_set(10000))
+          big.send(method, -1..9999).should eql(Hamster.sorted_set(10000))
+          big.send(method, -1...9999).should eql(Hamster.sorted_set)
+          big.send(method, -2...9999).should eql(Hamster.sorted_set(9999))
+          big.send(method, -2..-1).should eql(Hamster.sorted_set(9999,10000))
+
+          sorted_set.send(method, -4..-4).should eql(Hamster.sorted_set(1))
+          sorted_set.send(method, -4..-2).should eql(Hamster.sorted_set(1,2,3))
+          sorted_set.send(method, -4...-2).should eql(Hamster.sorted_set(1,2))
+          sorted_set.send(method, -4..-1).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, -4...-1).should eql(Hamster.sorted_set(1,2,3))
+          sorted_set.send(method, -4..3).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, -4...3).should eql(Hamster.sorted_set(1,2,3))
+          sorted_set.send(method, -4..4).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, -4...4).should eql(Hamster.sorted_set(1,2,3,4))
+          sorted_set.send(method, -4..0).should eql(Hamster.sorted_set(1))
+          sorted_set.send(method, -4...0).should eql(Hamster.sorted_set)
+          sorted_set.send(method, -4..1).should eql(Hamster.sorted_set(1,2))
+          sorted_set.send(method, -4...1).should eql(Hamster.sorted_set(1))
+
+          sorted_set.send(method, -5..-5).should be_nil
+          sorted_set.send(method, -5...-5).should be_nil
+          sorted_set.send(method, -5..-4).should be_nil
+          sorted_set.send(method, -5..-1).should be_nil
+          sorted_set.send(method, -5..10).should be_nil
+
+          big.send(method, -10001..-1).should be_nil
+        end
+
+        it "leaves the original unchanged" do
+          sorted_set.should eql(Hamster.sorted_set(1,2,3,4))
+        end
+      end
+    end
+
+    context "when passed an empty Range" do
+      it "does not lose custom sort order" do
+        ss = Hamster.sorted_set("yogurt", "cake", "pistachios") { |word| word.length }
+        ss = ss.send(method, 1...1).add("tea").add("fruitcake").add("toast")
+        ss.to_a.should == ["tea", "toast", "fruitcake"]
+      end
+    end
+
+    context "when passed a length of zero" do
+      it "does not lose custom sort order" do
+        ss = Hamster.sorted_set("yogurt", "cake", "pistachios") { |word| word.length }
+        ss = ss.send(method, 0, 0).add("tea").add("fruitcake").add("toast")
+        ss.to_a.should == ["tea", "toast", "fruitcake"]
+      end
+    end
+
+    context "when passed a subclass of Range" do
+      it "works the same as with a Range" do
+        subclass = Class.new(Range)
+        sorted_set.send(method, subclass.new(1,2)).should eql(Hamster.sorted_set(2,3))
+        sorted_set.send(method, subclass.new(-3,-1,true)).should eql(Hamster.sorted_set(2,3))
+      end
+    end
+
+    context "on a subclass of SortedSet" do
+      it "with index and count or a range, returns an instance of the subclass" do
+        subclass = Class.new(Hamster::SortedSet)
+        instance = subclass.new([1,2,3])
+        instance.send(method, 0, 0).class.should be(subclass)
+        instance.send(method, 0, 2).class.should be(subclass)
+        instance.send(method, 0..0).class.should be(subclass)
+        instance.send(method, 1..-1).class.should be(subclass)
+      end
+    end
+  end
+end