hamster 1.0.0 → 1.0.1.pre.rc.1

data/spec/lib/hamster/list/indices_spec.rb

@@ -1,62 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#indices" do
-    context "when called with a block" do
-      it "is lazy" do
-        count = 0
-        Hamster.stream { count += 1 }.indices { |item| true }
-        count.should <= 1
-      end
-
-      context "on a large list which doesn't contain desired item" do
-        it "doesn't blow the stack" do
-          -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).indices { |x| x < 0 }.size }.should_not raise_error
-        end
-      end
-
-      [
-        [[], "A", []],
-        [["A"], "B", []],
-        [%w[A B A], "B", [1]],
-        [%w[A B A], "A", [0, 2]],
-        [[2], 2, [0]],
-        [[2], 2.0, [0]],
-        [[2.0], 2.0, [0]],
-        [[2.0], 2, [0]],
-      ].each do |values, item, expected|
-        context "looking for #{item.inspect} in #{values.inspect}" do
-          it "returns #{expected.inspect}" do
-            Hamster.list(*values).indices { |x| x == item }.should eql(Hamster.list(*expected))
-          end
-        end
-      end
-    end
-
-    context "when called with a single argument" do
-      it "is lazy" do
-        count = 0
-        Hamster.stream { count += 1 }.indices(nil)
-        count.should <= 1
-      end
-
-      [
-        [[], "A", []],
-        [["A"], "B", []],
-        [%w[A B A], "B", [1]],
-        [%w[A B A], "A", [0, 2]],
-        [[2], 2, [0]],
-        [[2], 2.0, [0]],
-        [[2.0], 2.0, [0]],
-        [[2.0], 2, [0]],
-      ].each do |values, item, expected|
-        context "looking for #{item.inspect} in #{values.inspect}" do
-          it "returns #{expected.inspect}" do
-            Hamster.list(*values).indices(item).should eql(Hamster.list(*expected))
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/hamster/list/inits_spec.rb

@@ -1,29 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#inits" do
-    it "is lazy" do
-      -> { Hamster.stream { fail }.inits }.should_not raise_error
-    end
-
-    [
-      [[], []],
-      [["A"], [L["A"]]],
-      [%w[A B C], [L["A"], L["A", "B"], L["A", "B", "C"]]],
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        let(:list) { Hamster.list(*values) }
-
-        it "preserves the original" do
-          list.inits
-          list.should eql(Hamster.list(*values))
-        end
-
-        it "returns #{expected.inspect}" do
-          list.inits.should eql(Hamster.list(*expected))
-        end
-      end
-    end
-  end
-end

data/spec/lib/hamster/list/insert_spec.rb

@@ -1,47 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#insert" do
-    let(:original) { Hamster.list(1, 2, 3) }
-
-    it "can add items at the beginning of a list" do
-      list = original.insert(0, :a, :b)
-      list.size.should be(5)
-      list.at(0).should be(:a)
-      list.at(2).should be(1)
-    end
-
-    it "can add items in the middle of a list" do
-      list = original.insert(1, :a, :b, :c)
-      list.size.should be(6)
-      list.to_a.should == [1, :a, :b, :c, 2, 3]
-    end
-
-    it "can add items at the end of a list" do
-      list = original.insert(3, :a, :b, :c)
-      list.size.should be(6)
-      list.to_a.should == [1, 2, 3, :a, :b, :c]
-    end
-
-    it "can add items past the end of a list" do
-      list = original.insert(6, :a, :b)
-      list.size.should be(8)
-      list.to_a.should == [1, 2, 3, nil, nil, nil, :a, :b]
-    end
-
-    it "accepts a negative index, which counts back from the end of the list" do
-      list = original.insert(-2, :a)
-      list.size.should be(4)
-      list.to_a.should == [1, :a, 2, 3]
-    end
-
-    it "raises IndexError if a negative index is too great" do
-      expect { original.insert(-4, :a) }.to raise_error(IndexError)
-    end
-
-    it "is lazy" do
-      -> { Hamster.stream { fail }.insert(0, :a) }.should_not raise_error
-    end
-  end
-end

data/spec/lib/hamster/list/inspect_spec.rb

@@ -1,30 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#inspect" do
-    context "on a really big list" do
-      it "doesn't run out of stack" do
-        -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).inspect }.should_not raise_error
-      end
-    end
-
-    [
-      [[], 'Hamster::List[]'],
-      [["A"], 'Hamster::List["A"]'],
-      [%w[A B C], 'Hamster::List["A", "B", "C"]']
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        let(:list) { Hamster.list(*values) }
-
-        it "returns #{expected.inspect}" do
-          list.inspect.should == expected
-        end
-
-        it "returns a string which can be eval'd to get an equivalent object" do
-          eval(list.inspect).should eql(list)
-        end
-      end
-    end
-  end
-end

data/spec/lib/hamster/list/join_spec.rb

@@ -1,64 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#join" do
-    context "on a really big list" do
-      it "doesn't run out of stack" do
-        -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).join }.should_not raise_error
-      end
-    end
-
-    context "with a separator" do
-      [
-        [[], ""],
-        [["A"], "A"],
-        [%w[A B C], "A|B|C"]
-      ].each do |values, expected|
-        context "on #{values.inspect}" do
-          let(:list) { Hamster.list(*values) }
-
-          it "preserves the original" do
-            list.join("|")
-            list.should eql(Hamster.list(*values))
-          end
-
-          it "returns #{expected.inspect}" do
-            list.join("|").should == expected
-          end
-        end
-      end
-    end
-
-    context "without a separator" do
-      [
-        [[], ""],
-        [["A"], "A"],
-        [%w[A B C], "ABC"]
-      ].each do |values, expected|
-        context "on #{values.inspect}" do
-          let(:list) { Hamster.list(*values) }
-
-          it "preserves the original" do
-            list.join
-            list.should eql(Hamster.list(*values))
-          end
-
-          it "returns #{expected.inspect}" do
-            list.join.should == expected
-          end
-        end
-      end
-    end
-
-    context "without a separator (with global default separator set)" do
-      before { $, = '**' }
-      let(:list) { Hamster.list("A", "B", "C") }
-      after  { $, = nil }
-
-      it "uses the default global separator" do
-        list.join.should == "A**B**C"
-      end
-    end
-  end
-end

data/spec/lib/hamster/list/last_spec.rb

@@ -1,24 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#last" do
-    context "on a really big list" do
-      it "doesn't run out of stack" do
-        -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).last }.should_not raise_error
-      end
-    end
-
-    [
-      [[], nil],
-      [["A"], "A"],
-      [%w[A B C], "C"],
-    ].each do |values, expected|
-      context "on #{values.inspect}" do
-        it "returns #{expected.inspect}" do
-          Hamster.list(*values).last.should == expected
-        end
-      end
-    end
-  end
-end

data/spec/lib/hamster/list/ltlt_spec.rb

@@ -1,20 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#<<" do
-    it "adds an item onto the end of a list" do
-      list = Hamster.list("a", "b")
-      (list << "c").should eql(Hamster.list("a", "b", "c"))
-      list.should eql(Hamster.list("a", "b"))
-    end
-
-    context "on an empty list" do
-      it "returns a list with one item" do
-        list = Hamster.list
-        (list << "c").should eql(Hamster.list("c"))
-        list.should eql(Hamster.list)
-      end
-    end
-  end
-end

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

@@ -1,40 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#max" do
-    context "on a really big list" do
-      it "doesn't run out of stack" do
-        -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).max }.should_not raise_error
-      end
-    end
-
-    context "with a block" do
-      [
-        [[], nil],
-        [["A"], "A"],
-        [%w[Ichi Ni San], "Ichi"],
-      ].each do |values, expected|
-        context "on #{values.inspect}" do
-          it "returns #{expected.inspect}" do
-            Hamster.list(*values).max { |maximum, item| maximum.length <=> item.length }.should == expected
-          end
-        end
-      end
-    end
-
-    context "without a block" do
-      [
-        [[], nil],
-        [["A"], "A"],
-        [%w[Ichi Ni San], "San"],
-      ].each do |values, expected|
-        context "on #{values.inspect}" do
-          it "returns #{expected.inspect}" do
-            Hamster.list(*values).max.should == expected
-          end
-        end
-      end
-    end
-  end
-end

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

@@ -1,40 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-
-describe Hamster::List do
-  describe "#min" do
-    context "on a really big list" do
-      it "doesn't run out of stack" do
-        -> { Hamster.interval(0, STACK_OVERFLOW_DEPTH).min }.should_not raise_error
-      end
-    end
-
-    context "with a block" do
-      [
-        [[], nil],
-        [["A"], "A"],
-        [%w[Ichi Ni San], "Ni"],
-      ].each do |values, expected|
-        context "on #{values.inspect}" do
-          it "returns #{expected.inspect}" do
-            Hamster.list(*values).min { |minimum, item| minimum.length <=> item.length }.should == expected
-          end
-        end
-      end
-    end
-
-    context "without a block" do
-      [
-        [[], nil],
-        [["A"], "A"],
-        [%w[Ichi Ni San], "Ichi"],
-      ].each do |values, expected|
-        context "on #{values.inspect}" do
-          it "returns #{expected.inspect}" do
-            Hamster.list(*values).min.should == expected
-          end
-        end
-      end
-    end
-  end
-end

data/spec/lib/hamster/list/multithreading_spec.rb

@@ -1,48 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-require "atomic"
-
-describe Hamster::List do
-  it "ensures each node of a lazy list will only be realized on ONE thread, even when accessed by multiple threads" do
-    counter = Atomic.new(0)
-    list = Hamster.list(*1..10000).map { |x| counter.update { |count| count + 1 }; x * 2 }
-
-    threads = 10.times.collect do
-      Thread.new do
-        node = list
-        node = node.tail until node.empty?
-      end
-    end
-    threads.each(&:join)
-
-    counter.get.should == 10000
-    list.sum.should == 100010000
-  end
-
-  it "doesn't go into an infinite loop if lazy list block raises an exception" do
-    list = Hamster.list(*1..10).map { raise "Oops!" }
-
-    threads = 10.times.collect do
-      Thread.new do
-        -> { list.head }.should raise_error
-      end
-    end
-    threads.each(&:join)
-  end
-
-  it "doesn't give horrendously bad performance if thread realizing the list sleeps" do
-    start = Time.now
-    list = Hamster.list(*1..100).map { |x| sleep(0.001); x * 2 }
-
-    threads = 10.times.collect do
-      Thread.new do
-        node = list
-        node = node.tail until node.empty?
-      end
-    end
-    threads.each(&:join)
-
-    elapsed = Time.now - start
-    elapsed.should_not > 0.3
-  end
-end

data/spec/lib/hamster/list/partition_spec.rb

@@ -1,116 +0,0 @@
-require "spec_helper"
-require "hamster/list"
-require "thread"
-
-describe Hamster::List do
-  describe "#partition" do
-    it "is lazy" do
-      -> { Hamster.stream { fail }.partition }.should_not raise_error
-    end
-
-    it "calls the passed block only once for each item" do
-      count = 0
-      a,b = Hamster.list(1, 2, 3).partition { |item| count += 1; item.odd? }
-      (a.size + b.size).should be(3) # force realization of lazy lists
-      count.should be(3)
-    end
-
-    # note: Lists are not as lazy as they could be!
-    # they always realize elements a bit ahead of the current one
-
-    it "returns a lazy list of items for which predicate is true" do
-      count = 0
-      a,b = Hamster.list(1, 2, 3, 4).partition { |item| count += 1; item.odd? }
-      a.take(1).should == [1]
-      count.should be(3) # would be 1 if lists were lazier
-      a.take(2).should == [1, 3]
-      count.should be(4) # would be 3 if lists were lazier
-    end
-
-    it "returns a lazy list of items for which predicate is false" do
-      count = 0
-      a,b = Hamster.list(1, 2, 3, 4).partition { |item| count += 1; item.odd? }
-      b.take(1).should == [2]
-      count.should be(4) # would be 2 if lists were lazier
-      b.take(2).should == [2, 4]
-      count.should be(4)
-    end
-
-    it "calls the passed block only once for each item, even with multiple threads" do
-      mutex = Mutex.new
-      yielded = [] # record all the numbers yielded to the block, to make sure each is yielded only once
-      list = Hamster.iterate(0) do |n|
-        sleep(rand / 500) # give another thread a chance to get in
-        mutex.synchronize { yielded << n }
-        sleep(rand / 500)
-        n + 1
-      end
-      left, right = list.partition(&:odd?)
-
-      10.times.collect do |i|
-        Thread.new do
-          # half of the threads will consume the "left" lazy list, while half consume
-          # the "right" lazy list
-          # make sure that only one thread will run the above "iterate" block at a
-          # time, regardless
-          if i % 2 == 0
-            left.take(100).sum.should == 10000
-          else
-            right.take(100).sum.should == 9900
-          end
-        end
-      end.each(&:join)
-
-      # if no threads "stepped on" each other, the following should be true
-      # make some allowance for "lazy" lists which actually realize a little bit ahead:
-      (200..203).include?(yielded.size).should == true
-      yielded.should == (0..(yielded.size-1)).to_a
-    end
-
-    [
-      [[], [], []],
-      [[1], [1], []],
-      [[1, 2], [1], [2]],
-      [[1, 2, 3], [1, 3], [2]],
-      [[1, 2, 3, 4], [1, 3], [2, 4]],
-      [[2, 3, 4], [3], [2, 4]],
-      [[3, 4], [3], [4]],
-      [[4], [], [4]],
-    ].each do |values, expected_matches, expected_remainder|
-      context "on #{values.inspect}" do
-        let(:list) { Hamster.list(*values) }
-
-        context "with a block" do
-          let(:result)  { list.partition(&:odd?) }
-          let(:matches) { result.first }
-          let(:remainder) { result.last }
-
-          it "preserves the original" do
-            list.should eql(Hamster.list(*values))
-          end
-
-          it "returns a frozen array with two items" do
-            result.class.should be(Array)
-            result.should be_frozen
-            result.size.should be(2)
-          end
-
-          it "correctly identifies the matches" do
-            matches.should eql(Hamster.list(*expected_matches))
-          end
-
-          it "correctly identifies the remainder" do
-            remainder.should eql(Hamster.list(*expected_remainder))
-          end
-        end
-
-        context "without a block" do
-          it "returns an Enumerator" do
-            list.partition.class.should be(Enumerator)
-            list.partition.each(&:odd?).should eql([Hamster.list(*expected_matches), Hamster.list(*expected_remainder)])
-          end
-        end
-      end
-    end
-  end
-end