ryansch-mock_redis 0.2.0.1

data/spec/commands/lindex_spec.rb

@@ -0,0 +1,39 @@
+require 'spec_helper'
+
+describe '#lindex(key, index)' do
+  before { @key = 'mock-redis-test:69312' }
+
+  it "gets an element from the list by its index" do
+    @redises.lpush(@key, 20)
+    @redises.lpush(@key, 10)
+
+    @redises.lindex(@key, 0).should == "10"
+    @redises.lindex(@key, 1).should == "20"
+  end
+
+  it "treats negative indices as coming from the right" do
+    @redises.lpush(@key, 20)
+    @redises.lpush(@key, 10)
+
+    @redises.lindex(@key, -1).should == "20"
+    @redises.lindex(@key, -2).should == "10"
+  end
+
+  it "returns nil if the index is too large (and positive)" do
+    @redises.lpush(@key, 20)
+
+    @redises.lindex(@key, 100).should be_nil
+  end
+
+  it "returns nil if the index is too large (and negative)" do
+    @redises.lpush(@key, 20)
+
+    @redises.lindex(@key, -100).should be_nil
+  end
+
+  it "returns nil for nonexistent values" do
+    @redises.lindex(@key, 0).should be_nil
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/linsert_spec.rb

@@ -0,0 +1,68 @@
+require 'spec_helper'
+
+describe "#linsert(key, :before|:after, pivot, value)" do
+  before { @key = 'mock-redis-test:48733' }
+
+  it "returns the new size of the list when the pivot is found" do
+    @redises.lpush(@key, 'X')
+
+    @redises.linsert(@key, :before, 'X', 'Y').should == 2
+    @redises.lpushx(@key, 'X').should == 3
+  end
+
+  it "does nothing when run against a nonexistent key" do
+    @redises.linsert(@key, :before, 1, 2).should == 0
+    @redises.get(@key).should be_nil
+  end
+
+  it "returns -1 if the pivot is not found" do
+    @redises.lpush(@key, 1)
+    @redises.linsert(@key, :after, 'X', 'Y').should == -1
+  end
+
+  it "inserts elements before the pivot when given :before as position" do
+    @redises.lpush(@key, 'bert')
+    @redises.linsert(@key, :before, 'bert', 'ernie')
+
+    @redises.lindex(@key, 0).should == 'ernie'
+    @redises.lindex(@key, 1).should == 'bert'
+  end
+
+  it "inserts elements before the pivot when given 'before' as position" do
+    @redises.lpush(@key, 'bert')
+    @redises.linsert(@key, 'before', 'bert', 'ernie')
+
+    @redises.lindex(@key, 0).should == 'ernie'
+    @redises.lindex(@key, 1).should == 'bert'
+  end
+
+  it "inserts elements after the pivot when given :after as position" do
+    @redises.lpush(@key, 'bert')
+    @redises.linsert(@key, :after, 'bert', 'ernie')
+    
+    @redises.lindex(@key, 0).should == 'bert'
+    @redises.lindex(@key, 1).should == 'ernie'
+  end
+    
+  it "inserts elements after the pivot when given 'after' as position" do
+    @redises.lpush(@key, 'bert')
+    @redises.linsert(@key, 'after', 'bert', 'ernie')
+    
+    @redises.lindex(@key, 0).should == 'bert'
+    @redises.lindex(@key, 1).should == 'ernie'
+  end
+
+  it "raises an error when given a position that is neither before nor after" do
+    lambda do
+      @redises.linsert(@key, :near, 1, 2)
+    end.should raise_error(RuntimeError)
+  end
+
+  it "stores values as strings" do
+    @redises.lpush(@key, 1)
+    @redises.linsert(@key, :before, 1, 2)
+    @redises.lindex(@key, 0).should == "2"
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/llen_spec.rb

@@ -0,0 +1,16 @@
+require 'spec_helper'
+
+describe "#llen(key)" do
+  before { @key = 'mock-redis-test:78407' }
+
+  it "returns 0 for a nonexistent key" do
+    @redises.llen(@key).should == 0
+  end
+
+  it "returns the length of the list" do
+    5.times { @redises.lpush(@key, 'X') }
+    @redises.llen(@key).should == 5
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/lpop_spec.rb

@@ -0,0 +1,34 @@
+require 'spec_helper'
+
+describe '#lpop(key)' do
+  before { @key = 'mock-redis-test:65374' }
+
+  it "returns and removes the first element of a list" do
+    @redises.lpush(@key, 1)
+    @redises.lpush(@key, 2)
+
+    @redises.lpop(@key).should == "2"
+
+    @redises.llen(@key).should == 1
+  end
+
+  it "returns nil if the list is empty" do
+    @redises.lpush(@key, 'foo')
+    @redises.lpop(@key)
+
+    @redises.lpop(@key).should be_nil
+  end
+
+  it "returns nil for nonexistent values" do
+    @redises.lpop(@key).should be_nil
+  end
+
+  it "removes empty lists" do
+    @redises.lpush(@key, 'foo')
+    @redises.lpop(@key)
+
+    @redises.get(@key).should be_nil
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/lpush_spec.rb

@@ -0,0 +1,30 @@
+require 'spec_helper'
+
+describe "#lpush(key, value)" do
+  before { @key = 'mock-redis-test:57367' }
+
+  it "returns the new size of the list" do
+    @redises.lpush(@key, 'X').should == 1
+    @redises.lpush(@key, 'X').should == 2
+  end
+
+  it "creates a new list when run against a nonexistent key" do
+    @redises.lpush(@key, 'value')
+    @redises.llen(@key).should == 1
+  end
+
+  it "prepends items to the list" do
+    @redises.lpush(@key, "bert")
+    @redises.lpush(@key, "ernie")
+
+    @redises.lindex(@key, 0).should == "ernie"
+    @redises.lindex(@key, 1).should == "bert"
+  end
+
+  it "stores values as strings" do
+    @redises.lpush(@key, 1)
+    @redises.lindex(@key, 0).should == "1"
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/lpushx_spec.rb

@@ -0,0 +1,33 @@
+require 'spec_helper'
+
+describe "#lpushx(key, value)" do
+  before { @key = 'mock-redis-test:81267' }
+
+  it "returns the new size of the list" do
+    @redises.lpush(@key, 'X')
+
+    @redises.lpushx(@key, 'X').should == 2
+    @redises.lpushx(@key, 'X').should == 3
+  end
+
+  it "does nothing when run against a nonexistent key" do
+    @redises.lpushx(@key, 'value')
+    @redises.get(@key).should be_nil
+  end
+
+  it "prepends items to the list" do
+    @redises.lpush(@key, "bert")
+    @redises.lpushx(@key, "ernie")
+
+    @redises.lindex(@key, 0).should == "ernie"
+    @redises.lindex(@key, 1).should == "bert"
+  end
+
+  it "stores values as strings" do
+    @redises.lpush(@key, 1)
+    @redises.lpushx(@key, 2)
+    @redises.lindex(@key, 0).should == "2"
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/lrange_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+describe "#lrange(key, start, stop)" do
+  before do
+    @key = 'mock-redis-test:68036'
+
+    @redises.lpush(@key, 'v4')
+    @redises.lpush(@key, 'v3')
+    @redises.lpush(@key, 'v2')
+    @redises.lpush(@key, 'v1')
+    @redises.lpush(@key, 'v0')
+  end
+
+  it "returns a subset of the list inclusive of the right end" do
+    @redises.lrange(@key, 0, 2).should == %w[v0 v1 v2]
+  end
+
+  it "returns an empty list when start > end" do
+    @redises.lrange(@key, 3, 2).should == []
+  end
+
+  it "works with negative indices" do
+    @redises.lrange(@key, 2, -1).should == %w[v2 v3 v4]
+  end
+
+  it "returns [] when run against a nonexistent value" do
+    @redises.lrange("mock-redis-test:bogus-key", 0, 1).should == []
+  end
+
+  it "finds the end of the list correctly when end is too large" do
+    @redises.lrange(@key, 4, 10).should == %w[v4]
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/lrem_spec.rb

@@ -0,0 +1,79 @@
+require 'spec_helper'
+
+describe "#lrem(key, count, value)" do
+  before do
+    @key = 'mock-redis-test:66767'
+
+    %w[99 bottles of beer on the wall
+       99 bottles of beer
+       take one down
+       pass it around
+       98 bottles of beer on the wall].reverse.each do |x|
+      @redises.lpush(@key, x)
+    end
+  end
+
+  it "deletes the first count instances of key when count > 0" do
+    @redises.lrem(@key, 2, 'bottles')
+
+    @redises.lrange(@key, 0, 8).should == %w[
+      99 of beer on the wall
+      99 of beer
+    ]
+
+    @redises.lrange(@key, -7, -1).should == %w[98 bottles of beer on the wall]
+  end
+
+  it "deletes the last count instances of key when count < 0" do
+    @redises.lrem(@key, -2, 'bottles')
+
+    @redises.lrange(@key, 0, 9).should == %w[
+      99 bottles of beer on the wall
+      99 of beer
+    ]
+
+    @redises.lrange(@key, -6, -1).should == %w[98 of beer on the wall]
+  end
+
+  it "deletes all instances of key when count == 0" do
+    @redises.lrem(@key, 0, 'bottles')
+    @redises.lrange(@key, 0, -1).grep(/bottles/).should be_empty
+  end
+
+  it "returns the number of elements deleted" do
+    @redises.lrem(@key, 2, 'bottles').should == 2
+  end
+
+  it "returns the number of elements deleted even if you ask for more" do
+    @redises.lrem(@key, 10, 'bottles').should == 3
+  end
+
+  it "stringifies value" do
+    @redises.lrem(@key, 0, 99).should == 2
+  end
+
+  it "returns 0 when run against a nonexistent value" do
+    @redises.lrem("mock-redis-test:bogus-key", 0, 1).should == 0
+  end
+
+  it "returns 0 when run against an empty list" do
+    @redises.llen(@key).times { @redises.lpop(@key) } # empty the list
+    @redises.lrem(@key, 0, "beer").should == 0
+  end
+
+  it "treats non-integer count as 0" do
+    @redises.lrem(@key, 'foo', 'bottles').should == 3
+    @redises.lrange(@key, 0, -1).grep(/bottles/).should be_empty
+  end
+
+  it "removes empty lists" do
+    other_key = "mock-redis-test:lrem-#{__LINE__}"
+
+    @redises.lpush(other_key, 'foo')
+    @redises.lrem(other_key, 0, 'foo')
+
+    @redises.get(other_key).should be_nil
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/lset_spec.rb

@@ -0,0 +1,38 @@
+require 'spec_helper'
+
+describe "#lset(key, index, value)" do
+  before do
+    @key = 'mock-redis-test:21522'
+
+    @redises.lpush(@key, 'v1')
+    @redises.lpush(@key, 'v0')
+  end
+
+  it "returns 'OK'" do
+    @redises.lset(@key, 0, "newthing").should == 'OK'
+  end
+
+  it "sets the list's value at index to value" do
+    @redises.lset(@key, 0, "newthing")
+    @redises.lindex(@key, 0).should == "newthing"
+  end
+
+  it "stringifies value" do
+    @redises.lset(@key, 0, 12345)
+    @redises.lindex(@key, 0).should == "12345"
+  end
+
+  it "raises an exception for nonexistent keys" do
+    lambda do
+      @redises.lset('mock-redis-test:bogus-key', 100, 'value')
+    end.should raise_error(RuntimeError)
+  end
+
+  it "raises an exception for out-of-range indices" do
+    lambda do
+      @redises.lset(@key, 100, 'value')
+    end.should raise_error(RuntimeError)
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/ltrim_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+
+describe "#ltrim(key, start, stop)" do
+  before do
+    @key = 'mock-redis-test:22310'
+
+    %w[v0 v1 v2 v3 v4].reverse.each{|v| @redises.lpush(@key, v)}
+  end
+
+  it "returns 'OK'" do
+    @redises.ltrim(@key, 1, 3).should == 'OK'
+  end
+
+  it "trims the list to include only the specified elements" do
+    @redises.ltrim(@key, 1, 3)
+    @redises.lrange(@key, 0, -1).should == %w[v1 v2 v3]
+  end
+
+  it "trims the list to include only the specified elements (negative indices)" do
+    @redises.ltrim(@key, -2, -1)
+    @redises.lrange(@key, 0, -1).should == %w[v3 v4]
+  end
+
+  it "does not crash on overly-large indices" do
+    @redises.ltrim(@key, 100, 200)
+    @redises.lrange(@key, 0, -1).should == %w[]
+  end
+
+  it "removes empty lists" do
+    @redises.ltrim(@key, 1, 0)
+    @redises.get(@key).should be_nil
+  end
+
+  it_should_behave_like "a list-only command"
+end

data/spec/commands/mget_spec.rb

@@ -0,0 +1,34 @@
+require 'spec_helper'
+
+describe "#mget(key [, key, ...])" do
+  before do
+    @key1 = "mock-redis-test:mget1"
+    @key2 = "mock-redis-test:mget2"
+
+    @redises.set(@key1, 1)
+    @redises.set(@key2, 2)
+  end
+
+  it "returns an array of values" do
+    @redises.mget(@key1, @key2).should == %w[1 2]
+  end
+
+  it "returns nil for missing keys" do
+    @redises.mget(@key1, 'mock-redis-test:not-found', @key2).
+      should == ["1", nil, "2"]
+  end
+
+  it "returns nil for non-string keys" do
+    list = "mock-redis-test:mget-list"
+
+    @redises.lpush(list, 'bork bork bork')
+
+    @redises.mget(@key1, @key2, list).should == ["1", "2", nil]
+  end
+
+  it "raises an error if you pass it 0 arguments" do
+    lambda do
+      @redises.mget()
+    end.should raise_error(RuntimeError)
+  end
+end