dalli 2.7.2 → 3.2.4

data/test/memcached_mock.rb

@@ -1,121 +0,0 @@
-require "socket"
-
-$started = {}
-
-module MemcachedMock
-  def self.start(port=19123, &block)
-    server = TCPServer.new("localhost", port)
-    session = server.accept
-    block.call session
-  end
-
-  def self.delayed_start(port=19123, wait=1, &block)
-    server = TCPServer.new("localhost", port)
-    sleep wait
-    block.call server
-  end
-
-  module Helper
-    # Forks the current process and starts a new mock Memcached server on
-    # port 22122.
-    #
-    #     memcached_mock(lambda {|sock| socket.write('123') }) do
-    #       assert_equal "PONG", Dalli::Client.new('localhost:22122').get('abc')
-    #     end
-    #
-    def memcached_mock(proc, meth = :start)
-      return unless supports_fork?
-      begin
-        pid = fork do
-          trap("TERM") { exit }
-
-          MemcachedMock.send(meth) do |*args|
-            proc.call(*args)
-          end
-        end
-
-        sleep 0.3 # Give time for the socket to start listening.
-        yield
-      ensure
-        if pid
-          Process.kill("TERM", pid)
-          Process.wait(pid)
-        end
-      end
-    end
-
-    PATHS = %w(
-      /usr/local/bin/
-      /opt/local/bin/
-      /usr/bin/
-    )
-
-    def find_memcached
-      output = `memcached -h | head -1`.strip
-      if output && output =~ /^memcached (\d.\d.\d+)/ && $1 > '1.4'
-        return (puts "Found #{output} in PATH"; '')
-      end
-      PATHS.each do |path|
-        output = `memcached -h | head -1`.strip
-        if output && output =~ /^memcached (\d\.\d\.\d+)/ && $1 > '1.4'
-          return (puts "Found #{output} in #{path}"; path)
-        end
-      end
-
-      raise Errno::ENOENT, "Unable to find memcached 1.4+ locally"
-    end
-
-    def memcached(port=19122, args='', options={})
-      memcached_server(port, args)
-      yield Dalli::Client.new(["localhost:#{port}", "127.0.0.1:#{port}"], options)
-    end
-
-    def memcached_cas(port=19122, args='', options={})
-      memcached_server(port, args)
-      require 'dalli/cas/client'
-      yield Dalli::Client.new(["localhost:#{port}", "127.0.0.1:#{port}"], options)
-    end
-
-    def memcached_server(port=19122, args='')
-      Memcached.path ||= find_memcached
-
-      cmd = "#{Memcached.path}memcached #{args} -p #{port}"
-
-      $started[port] ||= begin
-        #puts "Starting: #{cmd}..."
-        pid = IO.popen(cmd).pid
-        at_exit do
-          begin
-            Process.kill("TERM", pid)
-            Process.wait(pid)
-          rescue Errno::ECHILD, Errno::ESRCH
-          end
-        end
-        sleep 0.1
-        pid
-      end
-    end
-
-    def supports_fork?
-      !defined?(RUBY_ENGINE) || RUBY_ENGINE != 'jruby'
-    end
-
-    def memcached_kill(port)
-      pid = $started.delete(port)
-      if pid
-        begin
-          Process.kill("TERM", pid)
-          Process.wait(pid)
-        rescue Errno::ECHILD, Errno::ESRCH
-        end
-      end
-    end
-
-  end
-end
-
-module Memcached
-  class << self
-    attr_accessor :path
-  end
-end

data/test/sasldb

@@ -1 +0,0 @@
-testuser:testtest:::::::

data/test/test_active_support.rb

@@ -1,439 +0,0 @@
-# encoding: utf-8
-require 'helper'
-require 'connection_pool'
-
-class MockUser
-  def cache_key
-    "users/1/21348793847982314"
-  end
-end
-
-describe 'ActiveSupport' do
-  describe 'active_support caching' do
-
-    it 'has accessible options' do
-      @dalli = ActiveSupport::Cache.lookup_store(:dalli_store, 'localhost:19122', :expires_in => 5.minutes, :frob => 'baz')
-      assert_equal 'baz', @dalli.options[:frob]
-    end
-
-    it 'allow mute and silence' do
-      @dalli = ActiveSupport::Cache.lookup_store(:dalli_store, 'localhost:19122')
-      @dalli.mute do
-        assert op_addset_succeeds(@dalli.write('foo', 'bar', nil))
-        assert_equal 'bar', @dalli.read('foo', nil)
-      end
-      refute @dalli.silence?
-      @dalli.silence!
-      assert_equal true, @dalli.silence?
-    end
-
-    it 'handle nil options' do
-      @dalli = ActiveSupport::Cache.lookup_store(:dalli_store, 'localhost:19122')
-      assert op_addset_succeeds(@dalli.write('foo', 'bar', nil))
-      assert_equal 'bar', @dalli.read('foo', nil)
-      assert_equal 18, @dalli.fetch('lkjsadlfk', nil) { 18 }
-      assert_equal 18, @dalli.fetch('lkjsadlfk', nil) { 18 }
-      assert_equal 1, @dalli.increment('lkjsa', 1, nil)
-      assert_equal 2, @dalli.increment('lkjsa', 1, nil)
-      assert_equal 1, @dalli.decrement('lkjsa', 1, nil)
-      assert_equal true, @dalli.delete('lkjsa')
-    end
-
-    it 'support fetch' do
-      with_activesupport do
-        memcached do
-          connect
-          dvalue = @dalli.fetch('someotherkeywithoutspaces', :expires_in => 1.second) { 123 }
-          assert_equal 123, dvalue
-
-          o = Object.new
-          o.instance_variable_set :@foo, 'bar'
-          dvalue = @dalli.fetch(rand_key, :raw => true) { o }
-          assert_equal o, dvalue
-
-          dvalue = @dalli.fetch(rand_key) { o }
-          assert_equal o, dvalue
-
-          @dalli.write('false', false)
-          dvalue = @dalli.fetch('false') { flunk }
-          assert_equal false, dvalue
-
-          user = MockUser.new
-          @dalli.write(user.cache_key, false)
-          dvalue = @dalli.fetch(user) { flunk }
-          assert_equal false, dvalue
-        end
-      end
-    end
-
-    it 'support keys with spaces on Rails3' do
-      with_activesupport do
-        memcached do
-          connect
-          dvalue = @dalli.fetch('some key with spaces', :expires_in => 1.second) { 123 }
-          assert_equal 123, dvalue
-        end
-      end
-    end
-
-    it 'support read_multi' do
-      with_activesupport do
-        memcached do
-          connect
-          x = rand_key
-          y = rand_key
-          assert_equal({}, @dalli.read_multi(x, y))
-          @dalli.write(x, '123')
-          @dalli.write(y, 123)
-          assert_equal({ x => '123', y => 123 }, @dalli.read_multi(x, y))
-        end
-      end
-    end
-
-    it 'support read_multi with an array' do
-      with_activesupport do
-        memcached do
-          connect
-          x = rand_key
-          y = rand_key
-          assert_equal({}, @dalli.read_multi([x, y]))
-          @dalli.write(x, '123')
-          @dalli.write(y, 123)
-          assert_equal({}, @dalli.read_multi([x, y]))
-          @dalli.write([x, y], '123')
-          assert_equal({ [x, y] => '123' }, @dalli.read_multi([x, y]))
-        end
-      end
-    end
-
-    it 'support raw read_multi' do
-      with_activesupport do
-        memcached do
-          connect
-          @dalli.write("abc", 5, :raw => true)
-          @dalli.write("cba", 5, :raw => true)
-          assert_equal({'abc' => '5', 'cba' => '5' }, @dalli.read_multi("abc", "cba"))
-        end
-      end
-    end
-
-    it 'support read_multi with LocalCache' do
-      with_activesupport do
-        memcached do
-          connect
-          x = rand_key
-          y = rand_key
-          assert_equal({}, @dalli.read_multi(x, y))
-          @dalli.write(x, '123')
-          @dalli.write(y, 456)
-
-          @dalli.with_local_cache do
-            assert_equal({ x => '123', y => 456 }, @dalli.read_multi(x, y))
-            Dalli::Client.any_instance.expects(:get).with(any_parameters).never
-
-            dres = @dalli.read(x)
-            assert_equal dres, '123'
-          end
-
-          Dalli::Client.any_instance.unstub(:get)
-
-          # Fresh LocalStore
-          @dalli.with_local_cache do
-            @dalli.read(x)
-            Dalli::Client.any_instance.expects(:get_multi).with([y.to_s]).returns(y.to_s => 456)
-
-            assert_equal({ x => '123', y => 456}, @dalli.read_multi(x, y))
-          end
-        end
-      end
-    end
-
-    it 'supports fetch_multi' do
-      with_activesupport do
-        memcached do
-          connect
-
-          x = rand_key.to_s
-          y = rand_key
-          hash = { x => 'ABC', y => 'DEF' }
-
-          @dalli.write(y, '123')
-
-          results = @dalli.fetch_multi(x, y) { |key| hash[key] }
-
-          assert_equal({ x => 'ABC', y => '123' }, results)
-          assert_equal('ABC', @dalli.read(x))
-          assert_equal('123', @dalli.read(y))
-        end
-      end
-    end
-
-    it 'support read, write and delete' do
-      with_activesupport do
-        memcached do
-          connect
-          y = rand_key
-          assert_nil @dalli.read(y)
-          dres = @dalli.write(y, 123)
-          assert op_addset_succeeds(dres)
-
-          dres = @dalli.read(y)
-          assert_equal 123, dres
-
-          dres = @dalli.delete(y)
-          assert_equal true, dres
-
-          user = MockUser.new
-          dres = @dalli.write(user.cache_key, "foo")
-          assert op_addset_succeeds(dres)
-
-          dres = @dalli.read(user)
-          assert_equal "foo", dres
-
-          dres = @dalli.delete(user)
-          assert_equal true, dres
-
-          bigkey = '１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０'
-          @dalli.write(bigkey, 'double width')
-          assert_equal 'double width', @dalli.read(bigkey)
-          assert_equal({bigkey => "double width"}, @dalli.read_multi(bigkey))
-        end
-      end
-    end
-
-    it 'support read, write and delete with LocalCache' do
-      with_activesupport do
-        memcached do
-          connect
-          y = rand_key.to_s
-          @dalli.with_local_cache do
-            Dalli::Client.any_instance.expects(:get).with(y, {}).once.returns(123)
-            dres = @dalli.read(y)
-            assert_equal 123, dres
-
-            Dalli::Client.any_instance.expects(:get).with(y, {}).never
-
-            dres = @dalli.read(y)
-            assert_equal 123, dres
-
-            @dalli.write(y, 456)
-            dres = @dalli.read(y)
-            assert_equal 456, dres
-
-            @dalli.delete(y)
-            Dalli::Client.any_instance.expects(:get).with(y, {}).once.returns(nil)
-            dres = @dalli.read(y)
-            assert_equal nil, dres
-          end
-        end
-      end
-    end
-
-    it 'support unless_exist with LocalCache' do
-      with_activesupport do
-        memcached do
-          connect
-          y = rand_key.to_s
-          @dalli.with_local_cache do
-            Dalli::Client.any_instance.expects(:add).with(y, 123, nil, {:unless_exist => true}).once.returns(true)
-            dres = @dalli.write(y, 123, :unless_exist => true)
-            assert_equal true, dres
-
-            Dalli::Client.any_instance.expects(:add).with(y, 321, nil, {:unless_exist => true}).once.returns(false)
-
-            dres = @dalli.write(y, 321, :unless_exist => true)
-            assert_equal false, dres
-
-            Dalli::Client.any_instance.expects(:get).with(y, {}).once.returns(123)
-
-            dres = @dalli.read(y)
-            assert_equal 123, dres
-          end
-        end
-      end
-    end
-
-    it 'support increment/decrement commands' do
-      with_activesupport do
-        memcached do
-          connect
-          assert op_addset_succeeds(@dalli.write('counter', 0, :raw => true))
-          assert_equal 1, @dalli.increment('counter')
-          assert_equal 2, @dalli.increment('counter')
-          assert_equal 1, @dalli.decrement('counter')
-          assert_equal "1", @dalli.read('counter', :raw => true)
-
-          assert_equal 1, @dalli.increment('counterX')
-          assert_equal 2, @dalli.increment('counterX')
-          assert_equal 2, @dalli.read('counterX', :raw => true).to_i
-
-          assert_equal 5, @dalli.increment('counterY1', 1, :initial => 5)
-          assert_equal 6, @dalli.increment('counterY1', 1, :initial => 5)
-          assert_equal 6, @dalli.read('counterY1', :raw => true).to_i
-
-          assert_equal nil, @dalli.increment('counterZ1', 1, :initial => nil)
-          assert_equal nil, @dalli.read('counterZ1')
-
-          assert_equal 5, @dalli.decrement('counterY2', 1, :initial => 5)
-          assert_equal 4, @dalli.decrement('counterY2', 1, :initial => 5)
-          assert_equal 4, @dalli.read('counterY2', :raw => true).to_i
-
-          assert_equal nil, @dalli.decrement('counterZ2', 1, :initial => nil)
-          assert_equal nil, @dalli.read('counterZ2')
-
-          user = MockUser.new
-          assert op_addset_succeeds(@dalli.write(user, 0, :raw => true))
-          assert_equal 1, @dalli.increment(user)
-          assert_equal 2, @dalli.increment(user)
-          assert_equal 1, @dalli.decrement(user)
-          assert_equal "1", @dalli.read(user, :raw => true)
-        end
-      end
-    end
-
-    it 'support exist command' do
-      with_activesupport do
-        memcached do
-          connect
-          @dalli.write(:foo, 'a')
-          @dalli.write(:false_value, false)
-
-          assert_equal true, @dalli.exist?(:foo)
-          assert_equal true, @dalli.exist?(:false_value)
-
-          assert_equal false, @dalli.exist?(:bar)
-
-          user = MockUser.new
-          @dalli.write(user, 'foo')
-          assert_equal true, @dalli.exist?(user)
-        end
-      end
-    end
-
-    it 'support other esoteric commands' do
-      with_activesupport do
-        memcached do
-          connect
-          ds = @dalli.stats
-          assert_equal 1, ds.keys.size
-          assert ds[ds.keys.first].keys.size > 0
-
-          @dalli.reset
-        end
-      end
-    end
-
-    it 'respect "raise_errors" option' do
-      with_activesupport do
-        memcached(29125) do
-          @dalli = ActiveSupport::Cache.lookup_store(:dalli_store, 'localhost:29125')
-          @dalli.write 'foo', 'bar'
-          assert_equal @dalli.read('foo'), 'bar'
-
-          memcached_kill(29125)
-
-          assert_equal @dalli.read('foo'), nil
-
-          @dalli = ActiveSupport::Cache.lookup_store(:dalli_store, 'localhost:29125', :raise_errors => true)
-
-          exception = [Dalli::RingError, { :message => "No server available" }]
-
-          assert_raises(*exception) { @dalli.read 'foo' }
-          assert_raises(*exception) { @dalli.read 'foo', :raw => true }
-          assert_raises(*exception) { @dalli.write 'foo', 'bar' }
-          assert_raises(*exception) { @dalli.exist? 'foo' }
-          assert_raises(*exception) { @dalli.increment 'foo' }
-          assert_raises(*exception) { @dalli.decrement 'foo' }
-          assert_raises(*exception) { @dalli.delete 'foo' }
-          assert_equal @dalli.read_multi('foo', 'bar'), {}
-          assert_raises(*exception) { @dalli.delete 'foo' }
-          assert_raises(*exception) { @dalli.fetch('foo') { 42 } }
-        end
-      end
-    end
-  end
-
-  it 'handle crazy characters from far-away lands' do
-    with_activesupport do
-      memcached do
-        connect
-        key = "fooƒ"
-        value = 'bafƒ'
-        assert op_addset_succeeds(@dalli.write(key, value))
-        assert_equal value, @dalli.read(key)
-      end
-    end
-  end
-
-  it 'normalize options as expected' do
-    with_activesupport do
-      memcached do
-        @dalli = ActiveSupport::Cache::DalliStore.new('localhost:19122', :expires_in => 1, :namespace => 'foo', :compress => true)
-        assert_equal 1, @dalli.instance_variable_get(:@data).instance_variable_get(:@options)[:expires_in]
-        assert_equal 'foo', @dalli.instance_variable_get(:@data).instance_variable_get(:@options)[:namespace]
-        assert_equal ["localhost:19122"], @dalli.instance_variable_get(:@data).instance_variable_get(:@servers)
-      end
-    end
-  end
-
-  it 'handles nil server with additional options' do
-    with_activesupport do
-      memcached do
-        @dalli = ActiveSupport::Cache::DalliStore.new(nil, :expires_in => 1, :namespace => 'foo', :compress => true)
-        assert_equal 1, @dalli.instance_variable_get(:@data).instance_variable_get(:@options)[:expires_in]
-        assert_equal 'foo', @dalli.instance_variable_get(:@data).instance_variable_get(:@options)[:namespace]
-        assert_equal ["127.0.0.1:11211"], @dalli.instance_variable_get(:@data).instance_variable_get(:@servers)
-      end
-    end
-  end
-
-  it 'supports connection pooling' do
-    with_activesupport do
-      memcached do
-        @dalli = ActiveSupport::Cache::DalliStore.new('localhost:19122', :expires_in => 1, :namespace => 'foo', :compress => true, :pool_size => 3)
-        assert_equal nil, @dalli.read('foo')
-        assert @dalli.write('foo', 1)
-        assert_equal 1, @dalli.fetch('foo') { raise 'boom' }
-        assert_equal true, @dalli.dalli.is_a?(ConnectionPool)
-        assert_equal 1, @dalli.increment('bar')
-        assert_equal 0, @dalli.decrement('bar')
-        assert_equal true, @dalli.delete('bar')
-        assert_equal [true], @dalli.clear
-        assert_equal 1, @dalli.stats.size
-      end
-    end
-  end
-
-  it 'allow keys to be frozen' do
-    with_activesupport do
-      memcached do
-        connect
-        key = "foo"
-        key.freeze
-        assert op_addset_succeeds(@dalli.write(key, "value"))
-      end
-    end
-  end
-
-  it 'allow keys from a hash' do
-    with_activesupport do
-      memcached do
-        connect
-        map = { "one" => "one", "two" => "two" }
-        map.each_pair do |k, v|
-          assert op_addset_succeeds(@dalli.write(k, v))
-        end
-        assert_equal map, @dalli.read_multi(*(map.keys))
-      end
-    end
-  end
-
-  def connect
-    @dalli = ActiveSupport::Cache.lookup_store(:dalli_store, 'localhost:19122', :expires_in => 10.seconds, :namespace => lambda{33.to_s(36)})
-    @dalli.clear
-  end
-
-  def rand_key
-    rand(1_000_000_000)
-  end
-end

data/test/test_cas_client.rb

@@ -1,107 +0,0 @@
-require 'helper'
-require 'memcached_mock'
-
-describe 'Dalli::Cas::Client' do
-  describe 'using a live server' do
-    it 'supports get with CAS' do
-      memcached_cas do |dc|
-        dc.flush
-
-        expected = { 'blah' => 'blerg!' }
-        get_block_called = false
-        stored_value = stored_cas = nil
-        # Validate call-with-block
-        dc.get_cas('gets_key') do |v, cas|
-          get_block_called = true
-          stored_value = v
-          stored_cas = cas
-        end
-        assert get_block_called
-        assert_nil stored_value
-
-        dc.set('gets_key', expected)
-
-        # Validate call-with-return-value
-        stored_value, stored_cas = dc.get_cas('gets_key')
-        assert_equal stored_value, expected
-        assert(stored_cas != 0)
-      end
-    end
-
-    it 'supports multi-get with CAS' do
-      memcached_cas do |dc|
-        dc.close
-        dc.flush
-
-        expected_hash = {'a' => 'foo', 'b' => 123}
-        expected_hash.each_pair do |k, v|
-          dc.set(k, v)
-        end
-
-        # Invocation without block
-        resp = dc.get_multi_cas(%w(a b c d e f))
-        resp.each_pair do |k, data|
-          value, cas = [data.first, data.second]
-          assert_equal expected_hash[k], value
-          assert(cas && cas != 0)
-        end
-
-        # Invocation with block
-        dc.get_multi_cas(%w(a b c d e f)) do |k, data|
-          value, cas = [data.first, data.second]
-          assert_equal expected_hash[k], value
-          assert(cas && cas != 0)
-        end
-      end
-    end
-
-    it 'supports replace-with-CAS operation' do
-      memcached_cas do |dc|
-        dc.flush
-        cas = dc.set('key', 'value')
-
-        # Accepts CAS, replaces, and returns new CAS
-        cas = dc.replace_cas('key', 'value2', cas)
-        assert cas.is_a?(Integer)
-
-        assert_equal 'value2', dc.get('key')
-      end
-    end
-
-    it 'supports delete with CAS' do
-      memcached_cas do |dc|
-        cas = dc.set('some_key', 'some_value')
-        dc.delete_cas('some_key', cas)
-        assert_nil dc.get('some_key')
-      end
-    end
-
-    it 'handles CAS round-trip operations' do
-      memcached_cas do |dc|
-        dc.flush
-
-        expected = {'blah' => 'blerg!'}
-        dc.set('some_key', expected)
-
-        value, cas = dc.get_cas('some_key')
-        assert_equal value, expected
-        assert(!cas.nil? && cas != 0)
-
-        # Set operation, first with wrong then with correct CAS
-        expected = {'blah' => 'set succeeded'}
-        assert(dc.set_cas('some_key', expected, cas+1) == false)
-        assert op_addset_succeeds(cas = dc.set_cas('some_key', expected, cas))
-
-        # Replace operation, first with wrong then with correct CAS
-        expected = {'blah' => 'replace succeeded'}
-        assert(dc.replace_cas('some_key', expected, cas+1) == false)
-        assert op_addset_succeeds(cas = dc.replace_cas('some_key', expected, cas))
-
-        # Delete operation, first with wrong then with correct CAS
-        assert(dc.delete_cas('some_key', cas+1) == false)
-        assert dc.delete_cas('some_key', cas)
-      end
-    end
-
-  end
-end