require 'abstract_unit'

class CacheKeyTest < Test::Unit::TestCase
  def test_expand_cache_key
    assert_equal 'name/1/2/true', ActiveSupport::Cache.expand_cache_key([1, '2', true], :name)
  end
end

class CacheStoreSettingTest < Test::Unit::TestCase
  def test_file_fragment_cache_store
    store = ActiveSupport::Cache.lookup_store :file_store, "/path/to/cache/directory"
    assert_kind_of(ActiveSupport::Cache::FileStore, store)
    assert_equal "/path/to/cache/directory", store.cache_path
  end
  
  def test_drb_fragment_cache_store
    store = ActiveSupport::Cache.lookup_store :drb_store, "druby://localhost:9192"
    assert_kind_of(ActiveSupport::Cache::DRbStore, store)
    assert_equal "druby://localhost:9192", store.address
  end

  def test_mem_cache_fragment_cache_store
    store = ActiveSupport::Cache.lookup_store :mem_cache_store, "localhost"
    assert_kind_of(ActiveSupport::Cache::MemCacheStore, store)
    assert_equal %w(localhost), store.addresses
  end
  
  def test_mem_cache_fragment_cache_store_with_multiple_servers
    store = ActiveSupport::Cache.lookup_store :mem_cache_store, "localhost", '192.168.1.1'
    assert_kind_of(ActiveSupport::Cache::MemCacheStore, store)
    assert_equal %w(localhost 192.168.1.1), store.addresses
  end
  
  def test_mem_cache_fragment_cache_store_with_options
    store = ActiveSupport::Cache.lookup_store :mem_cache_store, "localhost", '192.168.1.1', :namespace => 'foo'
    assert_kind_of(ActiveSupport::Cache::MemCacheStore, store)
    assert_equal %w(localhost 192.168.1.1), store.addresses
    assert_equal 'foo', store.instance_variable_get('@data').instance_variable_get('@namespace')
  end

  def test_object_assigned_fragment_cache_store
    store = ActiveSupport::Cache.lookup_store ActiveSupport::Cache::FileStore.new("/path/to/cache/directory")
    assert_kind_of(ActiveSupport::Cache::FileStore, store)
    assert_equal "/path/to/cache/directory", store.cache_path
  end
end

uses_mocha 'high-level cache store tests' do
  class CacheStoreTest < Test::Unit::TestCase
    def setup
      @cache = ActiveSupport::Cache.lookup_store(:memory_store)
    end

    def test_fetch_without_cache_miss
      @cache.stubs(:read).with('foo', {}).returns('bar')
      @cache.expects(:write).never
      assert_equal 'bar', @cache.fetch('foo') { 'baz' }
    end

    def test_fetch_with_cache_miss
      @cache.stubs(:read).with('foo', {}).returns(nil)
      @cache.expects(:write).with('foo', 'baz', {})
      assert_equal 'baz', @cache.fetch('foo') { 'baz' }
    end

    def test_fetch_with_forced_cache_miss
      @cache.expects(:read).never
      @cache.expects(:write).with('foo', 'bar', :force => true)
      @cache.fetch('foo', :force => true) { 'bar' }
    end
  end
end

class ThreadSafetyCacheStoreTest < Test::Unit::TestCase
  def setup
    @cache = ActiveSupport::Cache.lookup_store(:memory_store).threadsafe!
    @cache.write('foo', 'bar')

    # No way to have mocha proxy to the original method
    @mutex = @cache.instance_variable_get(:@mutex)
    @mutex.instance_eval %(
      def calls; @calls; end
      def synchronize
        @calls ||= 0
        @calls += 1
        yield
      end
    )
  end

  def test_read_is_synchronized
    assert_equal 'bar', @cache.read('foo')
    assert_equal 1, @mutex.calls
  end

  def test_write_is_synchronized
    @cache.write('foo', 'baz')
    assert_equal 'baz', @cache.read('foo')
    assert_equal 2, @mutex.calls
  end

  def test_delete_is_synchronized
    assert_equal 'bar', @cache.read('foo')
    @cache.delete('foo')
    assert_equal nil, @cache.read('foo')
    assert_equal 3, @mutex.calls
  end

  def test_delete_matched_is_synchronized
    assert_equal 'bar', @cache.read('foo')
    @cache.delete_matched(/foo/)
    assert_equal nil, @cache.read('foo')
    assert_equal 3, @mutex.calls
  end

  def test_fetch_is_synchronized
    assert_equal 'bar', @cache.fetch('foo') { 'baz' }
    assert_equal 'fu', @cache.fetch('bar') { 'fu' }
    assert_equal 3, @mutex.calls
  end

  def test_exist_is_synchronized
    assert @cache.exist?('foo')
    assert !@cache.exist?('bar')
    assert_equal 2, @mutex.calls
  end

  def test_increment_is_synchronized
    @cache.write('foo_count', 1)
    assert_equal 2, @cache.increment('foo_count')
    assert_equal 4, @mutex.calls
  end

  def test_decrement_is_synchronized
    @cache.write('foo_count', 1)
    assert_equal 0, @cache.decrement('foo_count')
    assert_equal 4, @mutex.calls
  end
end