s2container 0.8.0

data/test/seasar/aop/test_pointcut.rb

@@ -0,0 +1,25 @@
+module Seasar
+  module Aop
+    class TC_Pointcut < Test::Unit::TestCase
+      def setup
+      end
+
+      def teardown
+      end
+
+      def test_applicable?
+        pointcut = Seasar::Aop::Pointcut.new("foo")
+        assert(pointcut.applicable?("foo"))
+        assert(!pointcut.applicable?("bar"))
+
+        pointcut = Seasar::Aop::Pointcut.new(:foo)
+        assert(pointcut.applicable?("foo"))
+        assert(!pointcut.applicable?("bar"))
+
+        pointcut = Seasar::Aop::Pointcut.new(/foo/)
+        assert(pointcut.applicable?("foo"))
+        assert(!pointcut.applicable?("bar"))
+      end
+    end
+  end
+end

data/test/seasar/aop/test_s2aop_factory.rb

@@ -0,0 +1,90 @@
+module Seasar
+  module Aop
+    class TC_S2AopFactory < Test::Unit::TestCase
+      def setup
+      end
+
+      def teardown
+      end
+
+      def test_interceptor
+        aspect_def = Seasar::Container::AspectDef.new(/^bar$/, Seasar::Aop::Interceptor::TraceInterceptor.new)
+        aspects = [aspect_def.aspect]
+        enhanced_class = S2AopFactory.create(A, aspects)
+        a = enhanced_class.new
+        a.bar(100, "abc")
+      end
+
+      def test_procedure_arg
+        aspect_def = Seasar::Container::AspectDef.new(/^hoge$/) {|invocation|
+            result = invocation.proceed
+            next result * 10
+        }
+        aspects = [aspect_def.aspect]
+        aa = S2AopFactory.create(A, aspects)
+        a = aa.new
+        val = a.hoge(10) {|i|
+          next i * 10
+        }
+        assert_equal(100000, val)
+      end
+
+      def test_result
+        aspect_def = Seasar::Container::AspectDef.new(/^huga$/) {|invocation|
+            puts "before #{invocation.method.name}"
+            result = invocation.proceed
+            puts "after #{invocation.method.name} result #{result}"
+            next result * 10
+        }
+        aspects = [aspect_def.aspect]
+        aa = S2AopFactory.create(A, aspects)
+        a = aa.new
+        assert_equal(100, a.huga(1))
+      end
+
+      def test_aspects
+        aspect_def1 = Seasar::Container::AspectDef.new('huga', Seasar::Aop::Interceptor::TraceInterceptor.new)
+        aspect_def2 = Seasar::Container::AspectDef.new(:huga) {|invocation|
+            result = invocation.proceed
+            result * 10
+        }
+        aspect_def3 = Seasar::Container::AspectDef.new(/^huga$/) {|invocation|
+            result = invocation.proceed
+            result * 10
+        }
+        aspects = [aspect_def1.aspect, aspect_def2.aspect, aspect_def3.aspect]
+        aa = S2AopFactory.create(A, aspects)
+        a = aa.new
+        assert_equal(1000, a.huga(1))
+      end
+
+      def test_parent
+        aspect_def = Seasar::Container::AspectDef.new(:huga) {|invocation|
+            result = invocation.proceed
+            result * 10
+        }
+        enhanced_class = S2AopFactory.create(B, [aspect_def.aspect])
+        b = enhanced_class.new
+        assert_equal(100, b.huga(1))
+      end
+
+      class A
+        def bar(i, s)
+          return "xyz"
+        end
+
+        def hoge(s)
+          result = yield 100
+          return s * result
+        end
+
+        def huga(i)
+          return i * 10
+        end
+      end
+
+      class B < A
+      end
+    end
+  end
+end

data/test/seasar/beans/test_bean-desc.rb

@@ -0,0 +1,179 @@
+module Seasar
+  module Beans
+    class TC_BeanDesc < Test::Unit::TestCase
+      def setup
+      end
+
+      def teardown
+      end
+
+      def test_bean_desc_factory
+        assert_equal(BeanDescFactory.get_bean_desc(A.new), BeanDescFactory.get_bean_desc(A.new))
+        begin
+          BeanDescFactory.get_bean_desc(A.new).get_property_desc("aaa")
+        rescue => e
+          assert(e.instance_of?(Seasar::Exception::PropertyNotFoundRuntimeException))
+          assert_equal("class : Seasar::Beans::TC_BeanDesc::A, attribute : aaa", e.message)
+        end
+
+        begin
+          BeanDescFactory.get_bean_desc(A.new).get_typehint_property_desc("aaa")
+        rescue => e
+          assert(e.instance_of?(Seasar::Exception::PropertyNotFoundRuntimeException))
+          assert_equal("class : Seasar::Beans::TC_BeanDesc::A, attribute : aaa", e.message)
+        end
+      end
+
+      def test_has_property
+        desc = BeanDescFactory.get_bean_desc(A.new)
+        assert(desc.has_property_desc(:@name))
+        assert(desc.has_typehint_property_desc(:@name))
+        assert(!desc.get_typehint_property_desc(:@name).array_acceptable)
+        assert_equal(desc.get_typehint_property_desc(:@name).typehint, :name)
+
+        assert(desc.has_property_desc(:@b))
+        assert(desc.has_typehint_property_desc(:@b))
+        assert(!desc.get_typehint_property_desc(:@b).array_acceptable)
+        assert_equal(desc.get_typehint_property_desc(:@b).typehint, B)
+
+        assert(desc.has_property_desc(:@c))
+        assert(!desc.has_typehint_property_desc(:@c))
+        assert(!desc.has_property_desc(:@d))
+        assert(!desc.has_typehint_property_desc(:@d))
+
+        assert(desc.has_property_desc(:@z))
+        assert(desc.has_typehint_property_desc(:@z))
+        assert(!desc.get_typehint_property_desc(:@z).array_acceptable)
+        assert_equal(desc.get_typehint_property_desc(:@z).typehint, :z)
+      end
+
+      def test_array_property
+        desc = BeanDescFactory.get_bean_desc(C.new)
+        assert(desc.has_property_desc(:@a))
+        assert(desc.has_typehint_property_desc(:@a))
+        assert(desc.get_typehint_property_desc(:@a).array_acceptable )
+        assert_equal(desc.get_typehint_property_desc(:@a).typehint, "a")
+
+        assert(desc.has_property_desc(:@b))
+        assert(desc.get_property_desc(:@b).array_acceptable )
+        assert(desc.has_typehint_property_desc(:@b))
+        assert(desc.get_typehint_property_desc(:@b).array_acceptable )
+        assert_equal(desc.get_typehint_property_desc(:@b).typehint, :b)
+      end
+
+      def test_has_property_array
+        desc = BeanDescFactory.get_bean_desc(D.new)
+        assert_equal(desc.get_typehint_property_desc(:@a).typehint, "a")
+        assert_equal(desc.get_typehint_property_desc(:@a).array_acceptable, false)
+        assert_equal(desc.get_typehint_property_desc(:@a2).typehint, "a2")
+        assert_equal(desc.get_typehint_property_desc(:@a2).array_acceptable, true)
+
+        assert_equal(desc.get_typehint_property_desc(:@b).typehint, :b)
+        assert_equal(desc.get_typehint_property_desc(:@b).array_acceptable, false)
+        assert_equal(desc.get_typehint_property_desc(:@b2).typehint, "b2")
+        assert_equal(desc.get_typehint_property_desc(:@b2).array_acceptable, true)
+     end
+
+      def test_has_property_hash
+        desc = BeanDescFactory.get_bean_desc(E.new)
+        assert_equal(desc.get_typehint_property_desc(:@a).typehint, "a")
+        assert_equal(desc.get_typehint_property_desc(:@a).array_acceptable, false)
+        assert_equal(desc.get_typehint_property_desc(:@a2).typehint, "a2")
+        assert_equal(desc.get_typehint_property_desc(:@a2).array_acceptable, true)
+
+        assert_equal(desc.get_typehint_property_desc(:@b).typehint, :b)
+        assert_equal(desc.get_typehint_property_desc(:@b).array_acceptable, false)
+        assert_equal(desc.get_typehint_property_desc(:@b2).typehint, "b2")
+        assert_equal(desc.get_typehint_property_desc(:@b2).array_acceptable, true)
+     end
+
+      def test_has_property_error
+        begin
+          desc = BeanDescFactory.get_bean_desc(F.new)
+          assert(false)
+        rescue ArgumentError => e
+          assert_equal(%Q[invalid value ["a", "b", "c"] for :DI. property [@a] of class [Seasar::Beans::TC_BeanDesc::F].], e.message)
+        end
+     end
+
+      def test_s2di
+        desc = BeanDescFactory.get_bean_desc(G.new)
+        assert(desc.has_typehint_property_desc(:@a))
+        assert_equal(desc.get_typehint_property_desc(:@a).typehint, :g)
+        assert(desc.has_typehint_property_desc(:@b))
+        assert_equal(desc.get_typehint_property_desc(:@b).typehint, "b")
+     end
+
+      def test_accessor
+        h = H.new
+        desc = BeanDescFactory.get_bean_desc(h)
+        assert(desc.has_typehint_property_desc(:@a))
+        assert_equal(desc.get_typehint_property_desc(:@a).typehint, :a)
+        assert(desc.has_typehint_property_desc(:@b))
+        assert(desc.has_typehint_property_desc(:@c))
+        assert(!desc.has_typehint_property_desc(:@d))
+        assert(!desc.has_typehint_property_desc(:@e))
+        assert(!desc.has_typehint_property_desc(:@f))
+        assert(!desc.has_typehint_property_desc(:@g))
+        prop = desc.get_typehint_property_desc(:@a)
+        prop.set_value(h, 1000)
+        assert_equal(1000, prop.get_value(h))
+     end
+
+      class A
+        def initialize
+          @name = nil
+          @b = B
+          @c = "not type hint property"
+          @z = :z
+        end
+      end
+      
+      class B; end
+
+      class C
+        def initialize
+          @a = "di a[]"
+          @b = "di []"
+        end
+      end
+
+      class D
+        def initialize
+          @a = :di, "a"
+          @a2 = :di, "a2[]"
+          @b = "di", :b
+          @b2 = "di", "b2[]"
+        end
+      end
+
+      class E
+        def initialize
+          @a = {:di => "a"}
+          @a2 = {:di => "a2[]"}
+          @b = {"di" => :b}
+          @b2 = {"di" => "b2[]"}
+        end
+      end
+
+      class F
+        def initialize
+          @a = :di, %w[a b c]
+        end
+      end
+
+      class G
+        def initialize
+          @a = s2di :g
+          @b = s2di "b"
+        end
+      end
+
+      class H
+        attr_accessor :a, :b, :c
+        attr_reader :d, :e
+        attr_writer :f, :g
+      end
+    end
+  end
+end

data/test/seasar/container/assembler/test_auto_property_assembler.rb

@@ -0,0 +1,87 @@
+module Seasar
+  module Container
+    module Assembler
+      class TC_AutoPropertyAssembler < Test::Unit::TestCase
+        def setup
+        end
+
+        def teardown
+        end
+
+        def test_assemble
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(A, 'a')
+          container.register(cd)
+          cd = Seasar::Container::ComponentDef.new(B, :b)
+          container.register(cd)
+          cd = Seasar::Container::ComponentDef.new(E, 'b')
+          container.register(cd)
+          a = container.get_component('a')
+          assert(a.is_a?(A))
+          assert(a.b.instance_of?(B))
+          assert(a.c.instance_of?(B))
+          assert(a.d.is_a?(E))
+          assert_equal('b', a.e)
+          assert_equal(Array, a.f.class)
+          assert(a.g.instance_of?(B))
+          assert(a.h.is_a?(E))
+        end
+
+        def test_component_not_found
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(C)
+          container.register(cd)
+          assert_equal(C, container.get_component(C).class)
+        end
+
+        def test_too_many_to_array
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(D)
+          container.register(cd)
+          cd = Seasar::Container::ComponentDef.new(B, 'b')
+          container.register(cd)
+          cd = Seasar::Container::ComponentDef.new(B, 'b')
+          container.register(cd)
+          bs = container.get_component(D).bs
+          assert_equal(Array, bs.class)
+          assert_equal(2, bs.size)
+        end
+
+        class A
+          def initialize
+            @b = nil
+            @c = B
+            @d = 'di b'
+            @e = 'b'
+            @f = []
+            @g = :di, :b
+            @h = {:di => "b"}
+          end
+          attr_reader :b, :c, :d, :e, :f, :g, :h
+        end
+
+        class B
+        end
+
+        class C
+          def initialize
+            @b = B
+          end
+        end
+
+        class D
+          def initialize
+            @b = "di b[]"
+          end
+        
+          def bs
+            return @b
+          end
+        end
+        
+        class E
+        end
+      end
+    end
+  end
+end

data/test/seasar/container/assembler/test_autobinding_def_factory.rb

@@ -0,0 +1,22 @@
+module Seasar
+  module Container
+    module Assembler
+      class TC_AutoBindingDefFactory < Test::Unit::TestCase
+        def setup
+        end
+
+        def teardown
+        end
+
+        def test_get_autobinding_def
+          begin
+            AutoBindingDefFactory.get_autobinding_def(:abc)
+          rescue => e
+            assert(e.instance_of?(Seasar::Container::Exception::IllegalAutoBindingDefRuntimeException))
+            assert_equal("autobinding name is abc", e.message)
+          end
+        end
+      end
+    end
+  end
+end

data/test/seasar/container/assembler/test_manual_property_assembler.rb

@@ -0,0 +1,59 @@
+module Seasar
+  module Container
+    module Assembler
+      class TC_ManualPropertyAssembler < Test::Unit::TestCase
+        def setup
+        end
+
+        def teardown
+        end
+
+        def test_inject_val
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(A, 'a')
+          cd.add_property_def(Seasar::Container::PropertyDef.new('val', 100))
+          container.register(cd)
+          a = container.get_component('a')
+          assert_equal(A, a.class)
+          assert_equal(100, a.val)
+        end
+
+        def test_inject_component
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(B, 'b')
+          container.register(cd)
+
+          cd = Seasar::Container::ComponentDef.new(C, 'c')
+          cd.add_property_def(Seasar::Container::PropertyDef.new('val', 100))
+          property_def = Seasar::Container::PropertyDef.new(:@b)
+          property_def.child_component_def = container.get_component_def('b')
+          cd.add_property_def(property_def)
+          container.register(cd)
+
+          c = container.get_component('c')
+          assert_equal(C, c.class)
+          assert_equal(100, c.val)
+          assert(c.b.is_a?(B))
+        end
+
+        class A
+          def initialize
+            @val = nil
+          end
+          attr_reader :val
+        end
+      
+        class B
+        end
+
+        class C
+          def initialize
+            @val = nil
+            @b = nil
+          end
+          attr_reader :val, :b
+        end
+      end
+    end
+  end
+end

data/test/seasar/container/assembler/test_manula_constructor_assembler.rb

@@ -0,0 +1,59 @@
+module Seasar
+  module Container
+    module Assembler
+      class TC_ManualConstructorAssembler < Test::Unit::TestCase
+        def setup
+        end
+
+        def teardown
+        end
+
+        def test_inject_val
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(A, 'a')
+          cd.add_arg_def(Seasar::Container::ArgDef.new(100))
+          container.register(cd)
+          a = container.get_component('a')
+          assert_equal(A, a.class)
+          assert_equal(100, a.val)
+        end
+
+        def test_inject_component
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(B, 'b')
+          container.register(cd)
+
+          cd = Seasar::Container::ComponentDef.new(C, 'c')
+          cd.add_arg_def(Seasar::Container::ArgDef.new(100))
+          arg_def = Seasar::Container::ArgDef.new
+          arg_def.child_component_def = container.get_component_def('b')
+          cd.add_arg_def(arg_def)
+          container.register(cd)
+
+          c = container.get_component('c')
+          assert_equal(C, c.class)
+          assert_equal(100, c.val)
+          assert_equal(B, c.b.class)
+        end
+
+        class A
+          def initialize(val)
+            @val = val
+          end
+          attr_reader :val
+        end
+      
+        class B
+        end
+
+        class C
+          def initialize(val, b)
+            @val = val
+            @b = b
+          end
+          attr_reader :val, :b
+        end
+      end
+    end
+  end
+end

data/test/seasar/container/assembler/test_proc_constructor_assembler.rb

@@ -0,0 +1,61 @@
+module Seasar
+  module Container
+    module Assembler
+      class TC_ProcConstructorAssembler < Test::Unit::TestCase
+        def setup
+        end
+
+        def teardown
+        end
+
+        def test_proc_component
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(A, 'a') {
+                 A.new
+               }
+          container.register(cd)
+          a = container.get_component('a')
+          assert_equal(A, a.class)
+        end
+
+        def test_class_error
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(B, 'a') {
+                 A.new
+               }
+          container.register(cd)
+          begin
+            a = container.get_component('a')
+          rescue => e
+            puts e.message
+          end
+        end
+
+        def test_proc_args
+          container = S2Container.new
+          cd = Seasar::Container::ComponentDef.new(C, 'c') {|val1, val2|
+                 C.new(val1, val2)
+               }
+         cd.add_arg_def(Seasar::Container::ArgDef.new(100))
+         cd.add_arg_def(Seasar::Container::ArgDef.new(200))
+          container.register(cd)
+         c = container.get_component(C)
+         assert_equal(300, c.value)
+        end
+
+        class A
+        end
+
+        class B
+        end
+
+        class C
+          def initialize(val1, val2)
+            @value = val1 + val2
+          end
+          attr_accessor :value
+        end
+      end
+    end
+  end
+end

data/test/seasar/container/deployer/test_instance_def_factory.rb

@@ -0,0 +1,24 @@
+module Seasar
+  module Container
+    module Deployer
+      class TC_InstanceDefFactory < Test::Unit::TestCase
+        def setup
+        end
+
+        def teardown
+        end
+
+        def test_deploy
+          begin
+            InstanceDefFactory.get_instance_def(:abc)
+          rescue => e
+            assert(e.instance_of?(Seasar::Container::Exception::IllegalInstanceDefRuntimeException))
+            assert_equal("instanceDef name is abc", e.message)
+          end
+        end
+        class A
+        end
+      end
+    end
+  end
+end

data/test/seasar/container/deployer/test_prototype-deployer.rb

@@ -0,0 +1,25 @@
+module Seasar
+  module Container
+    module Deployer
+      class TC_PrototypeComponentDeployer < Test::Unit::TestCase
+        def setup
+        end
+
+        def teardown
+        end
+
+        def test_deploy
+          cd = Seasar::Container::ComponentDef.new(A, "a")
+          deployer = PrototypeComponentDeployer.new(cd)
+          a = deployer.deploy
+          assert_equal(A, a.class)
+          a1 = deployer.deploy
+          assert(a != a1)
+        end
+
+        class A
+        end
+      end
+    end
+  end
+end

data/test/seasar/container/deployer/test_singleton-component-deployer.rb

@@ -0,0 +1,24 @@
+module Seasar
+  module Container
+    module Deployer
+      class TC_SingletonComponentDeployer < Test::Unit::TestCase
+        def setup
+        end
+
+        def teardown
+        end
+
+        def test_deploy
+          cd = Seasar::Container::ComponentDef.new(A, "a")
+          deployer = SingletonComponentDeployer.new(cd)
+          a = deployer.deploy
+          assert_equal(A, a.class)
+          a1 = deployer.deploy
+          assert_equal(a, a1)
+        end
+        class A
+        end
+      end
+    end
+  end
+end

data/test/seasar/container/s2app_load_sample.rb

@@ -0,0 +1,6 @@
+class A
+  s2component :name => 'a'
+end
+
+class B; end
+s2component :class => B, :name => 'b'

data/test/seasar/container/test_arg-def.rb

@@ -0,0 +1,34 @@
+module Seasar
+  module Container
+    class TC_ArgDef < Test::Unit::TestCase
+      def setup
+      end
+
+      def teardown
+      end
+
+      def test_instantiate
+        cd = Seasar::Container::ComponentDef.new(A, "a")
+        arg_def = ArgDef.new(100)
+        assert_equal(100, arg_def.value)
+
+        arg_def.expression = "200"
+        assert_equal(200, arg_def.value)
+
+        arg_def.child_component_def = cd
+        assert(arg_def.value.is_a?(A))
+      end
+
+      class A
+      end
+
+      class B
+        def initialize
+          @name = "xyz"
+        end
+        attr_accessor :name
+      end
+      
+    end
+  end
+end