aspect4r 0.7.1

data/spec/aspect4r/class_inheritance_spec.rb

@@ -0,0 +1,254 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe Aspect4r do
+  it "basic inheritance should work" do
+    parent = Class.new do
+      include Aspect4r
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test"
+      end
+      
+      around :test do |proxy|
+        @value << "around1"
+        a4r_invoke proxy
+        @value << "around2"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+      
+      after :test do |result|
+        @value << "after"
+      end
+    end
+    
+    child = Class.new(parent)
+    
+    o = child.new
+    o.test
+    
+    o.value.should == %w(before around1 test around2 after)
+  end
+  
+  it "override method" do
+    parent = Class.new do
+      include Aspect4r
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test(parent)"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+    end
+    
+    child = Class.new(parent) do
+      def test
+        @value << "test"
+      end
+    end
+    
+    o = child.new
+    o.test
+    
+    o.value.should == %w(test)
+  end
+  
+  it "override method and call super" do
+    parent = Class.new do
+      include Aspect4r
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test(parent)"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+    end
+    
+    child = Class.new(parent) do
+      def test
+        super
+        @value << "test"
+      end
+    end
+    
+    o = child.new
+    o.test
+    
+    o.value.should == %w(before test(parent) test)
+  end
+  
+  it "override method with advices and call super" do
+    parent = Class.new do
+      include Aspect4r
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test(parent)"
+      end
+      
+      before :test do
+        @value << "before(parent)"
+      end
+    end
+    
+    child = Class.new(parent) do
+      include Aspect4r
+      
+      def test
+        super
+        @value << "test"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+    end
+    
+    o = child.new
+    o.test
+    
+    o.value.should == %w(before before(parent) test(parent) test)
+  end
+  
+  it "method+advices in child class and method+advices in parent class" do
+    parent = Class.new do
+      include Aspect4r
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test(parent)"
+      end
+      
+      before :test do
+        @value << "before(parent)"
+      end
+      
+      after :test do |result|
+        @value << "after(parent)"
+      end
+    end
+    
+    class Child < parent
+      include Aspect4r
+      
+      def test
+        @value << "test"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+      
+      after :test do |result|
+        @value << "after"
+      end
+    end
+    
+    o = Child.new
+    o.test
+    
+    o.value.should == %w(before test after)
+  end
+  
+  it "around advice in child class and method in parent class" do
+    parent = Class.new do
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test"
+      end
+    end
+    
+    class Child1 < parent
+      include Aspect4r
+      
+      around :test do |proxy|
+        @value << "around(before)"
+        a4r_invoke proxy
+        @value << "around(after)"
+      end
+    end
+    
+    o = Child1.new
+    o.test
+    
+    o.value.should == %w(around(before) test around(after))
+  end
+  
+  it "around advice in child class and method+advices in parent class" do
+    parent = Class.new do
+      include Aspect4r
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+      
+      after :test do |result|
+        @value << "after"
+      end
+    end
+    
+    class Child2 < parent
+      include Aspect4r
+      
+      around :test do |proxy|
+        @value << "around(before)"
+        a4r_invoke proxy
+        @value << "around(after)"
+      end
+    end
+    
+    o = Child2.new
+    o.test
+    
+    o.value.should == %w(around(before) before test after around(after))
+  end
+end

data/spec/aspect4r/classic_spec.rb

@@ -0,0 +1,44 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+require 'aspect4r/classic'
+
+describe Aspect4r::Classic do
+  it "should work" do
+    klass = Class.new do
+      include Aspect4r::Classic
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test"
+      end
+
+      a4r_around :test do |proxy_method|
+        @value << "around1"
+        a4r_invoke proxy_method
+        @value << "around2"
+      end
+      
+      a4r_before :test do
+        @value << "before"
+      end
+      
+      a4r_before_filter :test do
+        @value << "before_filter"
+      end
+      
+      a4r_after :test do |result|
+        @value << "after"
+      end
+    end
+    
+    o = klass.new
+    o.test
+    
+    o.value.should == %w(before before_filter around1 test around2 after)
+  end
+end

data/spec/aspect4r/helper_spec.rb

@@ -0,0 +1,117 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe Aspect4r::Helper do
+  describe "self.find_available_name" do
+    it "should return test0 as first available method" do
+      Aspect4r::Helper.find_available_method_name(Class.new, "test").should =~ /test0/
+    end
+  
+    it "should return test1 if find_available_method_name is called once already" do
+      klass = Class.new
+      klass.class_eval do
+        first = Aspect4r::Helper.find_available_method_name(klass, "test")
+        
+        define_method first do end
+        
+        private first
+      end
+      Aspect4r::Helper.find_available_method_name(klass, "test").should =~ /test1/
+    end
+  end
+  
+  describe "self.create_method" do
+    before do
+      @klass = Class.new do
+        include Aspect4r
+        
+        attr :value
+        
+        def initialize
+          @value = []
+        end
+        
+        def test
+          @value << "test"
+        end
+        
+        def before_test
+          @value << "before_test"
+        end
+        
+        def after_test result
+          @value << "after_test"
+          result
+        end
+        
+        def around_test proxy
+          @value << "around_test_before"
+          result = a4r_invoke proxy
+          @value << "around_test_after"
+          result
+        end
+      end
+    end
+    
+    it "No advice" do
+      Aspect4r::Helper.create_method @klass, :test
+      
+      o = @klass.new
+      o.test
+      
+      o.value.should == %w(test)
+    end
+    
+    it "before advices" do
+      @klass.before :test, :before_test
+      Aspect4r::Helper.create_method @klass, :test
+      
+      o = @klass.new
+      o.test
+      
+      o.value.should == %w(before_test test)
+    end
+    
+    it "after advices" do
+      @klass.after :test, :after_test
+      Aspect4r::Helper.create_method @klass, :test
+      
+      o = @klass.new
+      o.test
+      
+      o.value.should == %w(test after_test)
+    end
+    
+    it "around advices" do
+      @klass.around :test, :around_test
+      Aspect4r::Helper.create_method @klass, :test
+      
+      o = @klass.new
+      o.test
+      
+      o.value.should == %w(around_test_before test around_test_after)
+    end
+    
+    it "before + after advices" do
+      @klass.before :test, :before_test
+      @klass.after :test, :after_test
+      Aspect4r::Helper.create_method @klass, :test
+      
+      o = @klass.new
+      o.test
+      
+      o.value.should == %w(before_test test after_test)
+    end
+    
+    it "around + before + after advices" do
+      @klass.around :test, :around_test
+      @klass.before :test, :before_test
+      @klass.after :test, :after_test
+      Aspect4r::Helper.create_method @klass, :test
+      
+      o = @klass.new
+      o.test
+      
+      o.value.should == %w(before_test around_test_before test around_test_after after_test)
+    end
+  end
+end

data/spec/aspect4r/inheritance_inclusion_combined_spec.rb

@@ -0,0 +1,98 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe Aspect4r do
+  it "inherit from parent class which includes method+advices from module" do
+    module Mod
+      include Aspect4r
+      
+      def test
+        @value << "test"
+      end
+      
+      around :test do |proxy|
+        @value << "around1"
+        a4r_invoke proxy
+        @value << "around2"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+      
+      after :test do |result|
+        @value << "after"
+      end
+    end
+    
+    parent = Class.new do
+      include Mod
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+    end
+    
+    child = Class.new(parent) do
+    end
+    
+    
+    o = child.new
+    o.test
+    
+    o.value.should == %w(before around1 test around2 after)
+  end
+  
+  it "method+advices in parent class and included modules - modules takes precedence" do
+    module Mod3
+      include Aspect4r
+      
+      def test
+        @value << "test(module)"
+      end
+      
+      around :test do |proxy|
+        @value << "around1"
+        a4r_invoke proxy
+        @value << "around2"
+      end
+      
+      before :test do
+        @value << "before(module)"
+      end
+      
+      after :test do |result|
+        @value << "after"
+      end
+    end
+    
+    class Parent3
+      include Aspect4r
+      
+      before :test do
+        @value << "before(parent)"
+      end
+      
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test(parent)"
+      end
+    end
+    
+    class Child3 < Parent3
+      include Mod3
+    end
+    
+    
+    o = Child3.new
+    o.test
+    
+    o.value.should == %w(before(module) around1 test(module) around2 after)
+  end
+end

data/spec/aspect4r/module_inclusion_spec.rb

@@ -0,0 +1,208 @@
+require File.expand_path(File.dirname(__FILE__) + '/../spec_helper')
+
+describe Aspect4r do
+  it "basic module inclusion should work" do
+    klass = Class.new do
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+    end
+    
+    mod = Module.new do
+      include Aspect4r
+      
+      def test
+        @value << "test"
+      end
+  
+      around :test do |proxy|
+        @value << "around1"
+        a4r_invoke proxy
+        @value << "around2"
+      end   
+      
+      before :test do
+        @value << "before"
+      end
+  
+      after :test do |result|
+        @value << "after"
+      end
+    end
+
+    klass.send :include, mod
+    
+    o = klass.new
+    o.test
+    
+    o.value.should == %w(before around1 test around2 after)
+  end
+  
+  it "override method" do
+    klass = Class.new do
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test"
+      end
+    end
+    
+    mod = Module.new do
+      include Aspect4r
+      
+      def test
+        @value << "test(module)"
+      end
+  
+      around :test do |proxy|
+        @value << "around1"
+        send proxy
+        @value << "around2"
+      end   
+      
+      before :test do
+        @value << "before"
+      end
+  
+      after :test do |result|
+        @value << "after"
+      end
+    end
+
+    klass.send :include, mod
+    
+    o = klass.new
+    o.test
+    
+    o.value.should == %w(test)
+  end
+  
+  it "override method and call super" do
+    klass = Class.new do
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        super
+        @value << "test"
+      end
+    end
+    
+    mod = Module.new do
+      include Aspect4r
+      
+      def test
+        @value << "test(module)"
+      end   
+      
+      before :test do
+        @value << "before"
+      end
+    end
+
+    klass.send :include, mod
+    
+    o = klass.new
+    o.test
+    
+    o.value.should == %w(before test(module) test)
+  end
+
+  it "method+advices in child class and method+advices in module" do
+    module AspectMod
+      include Aspect4r
+      
+      def test
+        @value << "test(module)"
+      end
+  
+      around :test do |proxy|
+        @value << "around1"
+        a4r_invoke proxy
+        @value << "around2"
+      end
+      
+      after :test do |result|
+        @value << "after"
+      end
+    end
+    
+    class AspectMix
+      include Aspect4r
+      include AspectMod
+
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        @value << "test"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+    end
+
+    o = AspectMix.new
+    o.test
+    
+    o.value.should == %w(before test)
+  end
+
+  it "method+advices in child class and method+advices in module and call super" do
+    module AspectMod1
+      include Aspect4r
+      
+      def test
+        @value << "test(module)"
+      end
+  
+      around :test do |proxy|
+        @value << "around1"
+        a4r_invoke proxy
+        @value << "around2"
+      end
+      
+      after :test do |result|
+        @value << "after"
+      end
+    end
+    
+    class AspectMix1
+      include Aspect4r
+      include AspectMod1
+
+      attr :value
+      
+      def initialize
+        @value = []
+      end
+      
+      def test
+        super
+        @value << "test"
+      end
+      
+      before :test do
+        @value << "before"
+      end
+    end
+
+    o = AspectMix1.new
+    o.test
+    
+    o.value.should == %w(before around1 test(module) around2 after test)
+  end
+end