copland 0.8.0

data/test/services/simple.rb

@@ -0,0 +1,87 @@
+#--
+# =============================================================================
+# Copyright (c) 2004, Jamis Buck (jgb3@email.byu.edu)
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+# 
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+# 
+#     * The names of its contributors may not be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# =============================================================================
+#++
+
+require 'copland/event-producer'
+
+class Simple
+  attr_reader :attr1
+
+  def echo( a )
+    a
+  end
+end
+
+class Producer
+  include Copland::EventProducer
+end
+
+class Listener
+  attr_reader :message
+
+  def initialize
+    @message = ""
+  end
+
+  def responder_callback( &block )
+    @responder_callback = block
+  end
+
+  def on_custom_event( producer )
+    @responder_callback.call "custom event", producer if @responder_callback
+  end
+
+  def on_registry_shutdown( registry )
+    @responder_callback.call "registry shutdown", registry if @responder_callback
+  end
+end
+
+class SimpleInterceptorFactory
+  attr_writer :type
+  attr_writer :messages
+
+  def create_instance( point, parms )
+    SimpleInterceptor.new( @type, @messages )
+  end
+end
+
+class SimpleInterceptor
+  def initialize( type, messages )
+    @messages = messages
+    @type = type
+  end
+
+  def process( chain, context )
+    @messages << "#{@type}"
+    chain.process_next( context )
+  end
+end

data/test/tc_class-factory.rb

@@ -0,0 +1,93 @@
+#--
+# =============================================================================
+# Copyright (c) 2004, Jamis Buck (jgb3@email.byu.edu)
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+# 
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+# 
+#     * The names of its contributors may not be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# =============================================================================
+#++
+
+$:.unshift "../lib"
+
+require 'test/unit'
+require 'copland/class-factory'
+require 'copland/errors'
+
+class TC_ClassFactory < Test::Unit::TestCase
+
+  def setup
+    @factory = Copland::ClassFactory.instance
+  end
+
+  def test_pool
+    assert_raise( Copland::NoSuchPoolException ) do
+      @factory.get_pool( "test_pool" )
+    end
+
+    @factory.create_pool( "test_pool" )
+    pool = @factory.get_pool( "test_pool" )
+
+    assert_instance_of Hash, pool
+  end
+
+  def test_register
+    @factory.create_pool( "test_register" )
+
+    @factory.register( "test_register", "object", Object )
+    @factory.register( "test_register", "array", Array )
+    @factory.register( "test_register", "hash", Hash )
+
+    a = @factory.get( "test_register", "object" )
+    b = @factory.get( "test_register", "array" )
+    c = @factory.get( "test_register", "hash" )
+
+    assert_instance_of Object, a
+    assert_instance_of Array, b
+    assert_instance_of Hash, c
+
+    assert_raise( Copland::NoSuchRegisteredClassException ) do
+      @factory.get( "test_register", "string" )
+    end
+  end
+
+  def test_constructors
+    @factory.create_pool( "test_constructors" ) do |k,*args|
+      a = k.new
+      a.concat( args )
+    end
+
+    @factory.register( "test_constructors", "one", Array )
+    @factory.register( "test_constructors", "two", Array )
+
+    a = @factory.get( "test_constructors", "one", 1, 2, 3 )
+    b = @factory.get( "test_constructors", "two", "hello world" )
+
+    assert_equal [ 1, 2, 3 ], a
+    assert_equal [ "hello world" ], b
+  end
+
+end

data/test/tc_complex-instantiator.rb

@@ -0,0 +1,107 @@
+#--
+# =============================================================================
+# Copyright (c) 2004, Jamis Buck (jgb3@email.byu.edu)
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+# 
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+# 
+#     * The names of its contributors may not be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# =============================================================================
+#++
+
+$:.unshift "../lib"
+
+require 'test/unit'
+require 'copland/class-factory'
+require 'copland/errors'
+require 'copland/instantiator'
+require 'copland/service-point'
+require 'mock'
+
+class MockServiceFactory
+  def create_instance( point, parms )
+    return { :point => point,
+             :parms => parms }
+  end
+end
+
+class TC_ComplexInstantiator < Test::Unit::TestCase
+
+  ValueElement = Struct.new( :type_id, :value )
+
+  def valuize( hash )
+    new_hash = Hash.new
+    hash.each do |k,v|
+      new_hash[k] = ValueElement.new( "string", v )
+    end
+    return new_hash
+  end
+
+  def setup
+    @factory = Factory.new( Copland::Instantiator::POOL_NAME )
+    @registry = MockRegistry.new
+    @package = MockPackage.new( @registry )
+
+    svc = MockServiceFactory.new
+    @point = Copland::ServicePoint.new( @package, 'factory' )
+    @point.use_service_model "singleton"
+    @point.instantiator = @factory.get( "identity", @point, svc )
+    @package.add_service_point @point
+  end
+
+  def test_get
+    assert_nothing_raised do
+      @factory.get( "complex", @point, valuize( "factory" => "factory" ) )
+    end
+  end
+
+  def test_validate_good
+    inst = @factory.get( "complex", @point, valuize( "factory" => "factory",
+                                              "data" => "hello" ) )
+    assert_nothing_raised do
+      inst.validate!
+    end
+  end
+
+  def test_validate_bad
+    inst = @factory.get( "complex", @point, valuize( "factory" => "data" ) )
+    assert_raise( Copland::ServicePointNotFound ) do
+      inst.validate!
+    end
+  end
+
+  def test_instantiate
+    inst = @factory.get( "complex", @point, valuize( "factory" => "factory",
+                                              "data" => "hello" ) )
+    inst.validate!
+    svc = inst.instantiate
+
+    assert_instance_of Hash, svc
+    assert_equal 2, svc.length
+    assert_equal @point, svc[ :point ]
+    assert_equal( valuize( "data" => "hello" ), svc[ :parms ] )
+  end
+
+end

data/test/tc_configuration-point-contrib.rb

@@ -0,0 +1,74 @@
+#--
+# =============================================================================
+# Copyright (c) 2004, Jamis Buck (jgb3@email.byu.edu)
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+# 
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+# 
+#     * The names of its contributors may not be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# =============================================================================
+#++
+
+$:.unshift "../lib"
+
+require 'test/unit'
+require 'copland'
+
+class TC_ConfigurationPointContrib < Test::Unit::TestCase
+
+  def test_contributions
+    registry = nil
+
+    assert_nothing_raised do
+      registry = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "configuration-point" ),
+        :log_device => STDOUT )
+    end
+
+    t1_object = registry.service( "test1.Object" )
+    t2_array = registry.service( "test2.Array" )
+
+    t1_test_map = registry.configuration_point( "test1.TestMap" )
+    t1_test_list = registry.configuration_point( "test1.TestList" )
+
+    t2_test_map = registry.configuration_point( "test2.TestMap" )
+    t2_test_list = registry.configuration_point( "test2.TestList" )
+
+    assert_same t1_object, t1_test_map['value1']
+    assert_same t2_array, t1_test_map['value2']
+
+    assert_same t1_object, t1_test_list[0]
+    assert_same t2_array, t1_test_list[1]
+
+    assert_same t2_array, t2_test_map['value1']
+    assert_same t1_object, t2_test_map['value2']
+
+    assert_same t2_array, t2_test_list[0]
+    assert_same t1_object, t2_test_list[1]
+
+    registry.shutdown
+  end
+
+end

data/test/tc_configuration-point-schema.rb

@@ -0,0 +1,122 @@
+#--
+# =============================================================================
+# Copyright (c) 2004, Jamis Buck (jgb3@email.byu.edu)
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+#     * Redistributions of source code must retain the above copyright notice,
+#       this list of conditions and the following disclaimer.
+# 
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+# 
+#     * The names of its contributors may not be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# =============================================================================
+#++
+
+$:.unshift "../lib"
+
+require 'test/unit'
+require 'copland/registry'
+require 'copland/errors'
+
+class TC_ConfigurationPointSchema < Test::Unit::TestCase
+
+  def test_list_good
+    reg = nil
+
+    assert_nothing_raised do
+      reg = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "conf-test" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "list-good.yml" )
+    end
+
+    assert_equal 3, reg.configuration_point( "list-good.ListGood" ).size
+  end
+
+  def test_list_bad_missing
+    assert_raise( Copland::ValidationException ) do
+      reg = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "conf-test" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "list-bad-missing.yml" )
+    end
+  end
+
+  def test_list_bad_type
+    assert_raise( Copland::ValidationException ) do
+      reg = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "conf-test" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "list-bad-type.yml" )
+    end
+  end
+
+  def test_list_bad_key
+    assert_raise( Copland::ValidationException ) do
+      reg = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "conf-test" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "list-bad-key.yml" )
+    end
+  end
+
+  def test_map_good
+    reg = nil
+
+    assert_nothing_raised do
+      reg = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "conf-test" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "map-good.yml" )
+    end
+
+    assert_equal 3, reg.configuration_point( "map-good.MapGood" ).size
+  end
+
+  def test_map_bad_key
+    assert_raise( Copland::ValidationException ) do
+      reg = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "conf-test" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "map-bad-key.yml" )
+    end
+  end
+
+  def test_map_bad_missing
+    assert_raise( Copland::ValidationException ) do
+      reg = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "conf-test" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "map-bad-missing.yml" )
+    end
+  end
+
+  def test_map_bad_type
+    assert_raise( Copland::ValidationException ) do
+      reg = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "conf-test" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "map-bad-type.yml" )
+    end
+  end
+
+end