require "more/spec_helper"

describe 'DeclarativeCache' do
  class CachedClass
    attr_accessor :value
    def value_get; @value end
    cache_method :value_get
    
    attr_accessor :value2
    def value2_get; @value2 end    
    
    attr_accessor :params
    def params_get param; @params[param] end         
    
    attr_accessor :multiplier
    def *(arg)
      @multiplier * arg
    end
    cache_method_with_params '*'
  end            
  
  DeclarativeCache.cache_method CachedClass, :value2_get
  DeclarativeCache.cache_method_with_params CachedClass, :params_get  
  
  it "Simple Cache" do
    o = CachedClass.new
    o.value = 0
    o.value2 = 0    
    o.value_get.should == 0
    o.value2_get.should == 0
    
    o.value = 1
    o.value2 = 1
    o.value_get.should == 0
    o.value2_get.should == 0
  end
  
  it "should define <method>_with_cache and <method>_without_cache methods" do
    o = CachedClass.new
    
    # without params
    o.value = 0
    o.value_get.should == 0    
    o.value = 1
    o.value_get.should == 0
    o.value_get_with_cache.should == 0
    o.value_get_without_cache.should == 1
    
    # with params
    o.params = {a: :b}
    o.params_get(:a).should == :b
    o.params = {a: :c}
    o.params_get(:a).should == :b
    o.params_get_with_cache(:a).should == :b
    o.params_get_without_cache(:a).should == :c
  end
  
  it "clear_cache" do
    o = CachedClass.new
    o.value = 0
    o.value_get.should == 0

    o.value = 1
    o.value_get.should == 0

    o.clear_cache
    o.value_get.should == 1
  end
  
  it "should check for parameters" do
    o = CachedClass.new
    lambda{o.value_get(1)}.should raise_error(/cache_method_with_params/)
  end
  
  it "Cache With Params" do
    o = CachedClass.new
    o.params = {a: :b}
    o.params_get(:a).should == :b
    o.params = {a: :c}
    o.params_get(:a).should == :b
  end
  
  it "should works with operators" do
    o = CachedClass.new
    o.multiplier = 2
    (o * 2).should == 4
    o.multiplier = 3
    (o * 2).should == 4
  end
  
  class CachedClass2
    class << self
      attr_accessor :value
      def value_get; @value end
      cache_method :value_get
    end
  end        
  
  it "Simple Cache" do
    CachedClass2.value = 0
    CachedClass2.value_get.should == 0
    CachedClass2.value = 1
    CachedClass2.value_get.should == 0
  end
  
  module CachedModule
    attr_accessor :value
    def value_get; @value end
    cache_method :value_get
  end
  
  class CachedClass3
    include CachedModule
  end
  
  it "should also works with modules (from error)" do
    o = CachedClass.new
    o.value = 0
    o.value_get.should == 0
    
    o.value = 1
    o.value_get.should == 0
  end
  
  class CachedClass4
    attr_accessor :value
    def value_get; @value end    
  end
  
  it "should not cache twice, and should works" do
    CachedClass4.cache_method :value_get    
    
    Object.should_receive(:warn){|msg| msg =~ /twice/}
    CachedClass4.cache_method :value_get
    
    o = CachedClass.new
    o.value = 0
    o.value_get.should == 0
    o.value = 1
    o.value_get.should == 0
  end
end