copland 0.8.0

data/test/tc_interceptors.rb

@@ -0,0 +1,84 @@
+#--
+# =============================================================================
+# 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/errors'
+require 'copland/registry'
+
+class TC_Interceptors < Test::Unit::TestCase
+
+  def setup
+    @registry = Copland::Registry.build(
+      File.join( File.dirname( __FILE__ ), "services" ),
+      :log_device => $stdout )
+  end
+
+  def teardown
+    @registry.shutdown
+  end
+
+  def test_simple
+    service = @registry.service( "service-test.Intercepted1" )
+    cfg = @registry.configuration_point( "service-test.Messages" )
+
+    assert cfg.empty?
+    service.echo "a"
+    assert_equal [ "A" ], cfg
+  end
+
+  def test_ordering_error
+    service = @registry.service( "service-test.InterceptorOrderingError1" )
+
+    assert_raise( Copland::OrderingException ) do
+      service.echo "a"
+    end
+
+    service = @registry.service( "service-test.InterceptorOrderingError2" )
+
+    assert_raise( Copland::OrderingException ) do
+      service.echo "a"
+    end
+  end
+
+  def test_ordering
+    service = @registry.service( "service-test.InterceptorOrdering1" )
+    cfg = @registry.configuration_point( "service-test.Messages" )
+
+    assert cfg.empty?
+    service.echo "a"
+    assert_equal [ "C", "B", "A" ], cfg
+  end
+
+end

data/test/tc_logger.rb

@@ -0,0 +1,131 @@
+#--
+# =============================================================================
+# 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 'copland/log-factory'
+require 'test/unit'
+require 'mock'
+
+class TC_Logger < Test::Unit::TestCase
+
+  def test_log_filename
+    factory = Copland::LogFactory.new :config_file => 'bogus'
+    assert_equal Copland::LogFactory::DEFAULT_LOG_FILENAME,
+                 factory.device.filename
+    factory.close
+    assert factory.closed?
+
+    factory = Copland::LogFactory.new :config_file => 'bogus',
+                                      :filename => './sample.log'
+    assert_equal "./sample.log", factory.device.filename
+    factory.close
+
+    factory = Copland::LogFactory.new :config_file => 'bogus',
+                                      :device => STDOUT
+    assert_equal STDOUT, factory.device
+    factory.close
+
+    assert !STDOUT.closed?
+  end
+
+  def test_log_config
+    factory = Copland::LogFactory.new
+    assert_equal "./sample.log", factory.device.filename
+    assert_equal "%Y-%m-%d %H:%M:%S", factory.default_format
+    assert_equal Logger::INFO, factory.default_level
+    factory.close
+
+    factory = Copland::LogFactory.new :config_file => 'custom-logger.yml'
+    assert_equal "./custom.log", factory.device.filename
+    assert_equal "date %Y-%m-%d %H:%M:%S", factory.default_format
+    assert_equal Logger::FATAL, factory.default_level
+    factory.close
+  end
+
+  def test_log_options
+    factory = Copland::LogFactory.new :default_format => "%Y",
+                                      :default_level => Logger::FATAL
+    assert_equal "%Y", factory.default_format
+    assert_equal Logger::FATAL, factory.default_level
+    factory.close
+  end
+
+  def test_log_get
+    factory = Copland::LogFactory.new
+
+    log1a = factory.get( "test.log1" )
+    log2  = factory.get( "test.log2" )
+    log1b = factory.get( "test.log1" )
+
+    assert_equal log1a.id, log1b.id
+    assert_not_equal log1a.id, log2.id
+
+    factory.close
+  end
+
+  def test_log_write
+    io = MockLogIO.new
+    factory = Copland::LogFactory.new :device => io
+
+    log = factory.get( "test.log1" )
+
+    # the config file has DEBUG turned off...
+    log.debug "test"
+    assert_equal "", io.message
+
+    log.info "test"
+    assert_match( /INFO -- test.log1: test/, io.message )
+
+    factory.close
+    assert_equal "<closed>", io.message
+  end
+
+  def test_levels
+    io = MockLogIO.new
+    factory = Copland::LogFactory.new :device => io
+
+    log = factory.get( "level.log1" )
+
+    log.info "test"
+    assert_equal "", io.message
+
+    log = factory.get( "level.test.log1" )
+
+    log.debug "test"
+    assert_match( /DEBUG -- level.test.log1: test/, io.message )
+
+    factory.close
+  end
+
+end

data/test/tc_models.rb

@@ -0,0 +1,176 @@
+#--
+# =============================================================================
+# 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/models'
+require 'mock'
+
+class TC_Models < Test::Unit::TestCase
+
+  def setup
+    @factory = Factory.new( Copland::ServiceModel::POOL_NAME )
+  end
+
+  def test_factory
+    point = MockServicePoint.new
+
+    assert_instance_of( Copland::ServiceModel::PrototypeServiceModel,
+                        @factory.get( "prototype", point ) )
+    assert_instance_of( Copland::ServiceModel::PrototypeDeferredServiceModel,
+                        @factory.get( "prototype-deferred", point ) )
+    assert_instance_of( Copland::ServiceModel::SingletonServiceModel,
+                        @factory.get( "singleton", point ) )
+    assert_instance_of( Copland::ServiceModel::SingletonDeferredServiceModel,
+                        @factory.get( "singleton-deferred", point ) )
+    assert_instance_of( Copland::ServiceModel::ThreadedServiceModel,
+                        @factory.get( "threaded", point ) )
+  end
+
+  def test_invalid_model
+    point = MockServicePoint.new
+
+    assert_raise( Copland::NoSuchRegisteredClassException ) do
+      @factory.get( "bogus", point )
+    end
+  end
+
+  def test_prototype_instance
+    message = ""
+    point = MockServicePoint.new( message )
+    model = @factory.get( "prototype", point )
+
+    obj1 = model.instance
+    assert_instance_of( MockService, obj1 )
+    assert_equal( "initialized!", message )
+
+    obj2 = model.instance
+    assert_instance_of( MockService, obj2 )
+
+    assert_not_equal obj1.id, obj2.id
+  end
+
+  def test_prototype_deferred_instance
+    message = ""
+    point = MockServicePoint.new( message )
+    model = @factory.get( "prototype-deferred", point )
+
+    obj1 = model.instance
+    assert_instance_of( Copland::ServiceModel::Proxy, obj1 )
+    assert_equal( "", message )
+
+    obj2 = model.instance
+    assert_instance_of( Copland::ServiceModel::Proxy, obj2 )
+
+    assert_not_equal obj1.id, obj2.id
+
+    assert_equal( "", message )
+    obj1.noop
+    assert_equal( "initialized!", message )
+  end
+
+  def test_singleton_instance
+    message = ""
+    point = MockServicePoint.new( message )
+    model = @factory.get( "singleton", point )
+
+    obj1 = model.instance
+    assert_instance_of( MockService, obj1 )
+    assert_equal( "initialized!", message )
+
+    obj2 = model.instance
+    assert_instance_of( MockService, obj2 )
+
+    assert_equal obj1.id, obj2.id
+  end
+
+  def test_singleton_deferred_instance
+    message = ""
+    point = MockServicePoint.new( message )
+    model = @factory.get( "singleton-deferred", point )
+
+    obj1 = model.instance
+    assert_instance_of( Copland::ServiceModel::Proxy, obj1 )
+    assert_equal( "", message )
+
+    obj2 = model.instance
+    assert_instance_of( Copland::ServiceModel::Proxy, obj2 )
+
+    assert_equal obj1.id, obj2.id
+
+    assert_equal( "", message )
+    obj1.noop
+    assert_equal( "initialized!", message )
+  end
+
+  def test_threaded_instance
+    message = ""
+    point = MockServicePoint.new( message )
+    model = @factory.get( "threaded", point )
+
+    obj1 = model.instance
+    assert_instance_of( Copland::ServiceModel::Proxy, obj1 )
+    assert_equal( "", message )
+
+    obj2 = model.instance
+    assert_instance_of( Copland::ServiceModel::Proxy, obj2 )
+
+    assert_equal obj1.id, obj2.id
+
+    assert_equal( "", message )
+    obj1.noop
+    assert_equal( "initialized!", message )
+
+    t = Thread.new do
+      obj3 = model.instance
+      assert_not_equal obj1.id, obj3.id
+    end
+
+    t.join
+  end
+
+  def test_name
+    point = MockServicePoint.new()
+
+    [ "prototype", "prototype-deferred",
+      "singleton", "singleton-deferred",
+      "threaded" ].each do |model|
+    # begin
+      assert_equal model, @factory.get( model, point ).name
+    end
+  end
+
+end

data/test/tc_package.rb

@@ -0,0 +1,165 @@
+#--
+# =============================================================================
+# 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/errors'
+require 'copland/package'
+require 'copland/schema'
+require 'mock'
+
+class TC_Package < Test::Unit::TestCase
+
+  TEST_PACKAGE_NAME = "copland.test"
+
+  def setup
+    @registry = MockRegistry.new
+    @package = Copland::Package.new( @registry, TEST_PACKAGE_NAME )
+    @registry.add_package @package
+  end
+
+  def test_create
+    assert_equal @registry, @package.registry
+    assert_equal TEST_PACKAGE_NAME, @package.name
+  end
+
+  def test_description
+    assert_nil @package.description
+
+    @package.description = "X"
+    assert_equal "X", @package.description
+  end
+
+  def test_find_schema
+    p2 = Copland::Package.new( @registry, "other" )
+    @registry.add_package p2
+
+    schema = Copland::Schema.new( "TestSchema", nil, nil, nil, nil, nil, nil )
+    p2.add_schema schema
+
+    assert_raise( Copland::PackageNotFound ) do
+      p2.find_schema( "copland.other.TestSchema" )
+    end
+
+    assert_raise( Copland::SchemaNotFound ) do
+      p2.find_schema( "copland.test.TestSchema" )
+    end
+
+    assert_raise( Copland::SchemaNotFound ) do
+      @package.find_schema( "TestSchema" )
+    end
+
+    temp = nil
+    assert_nothing_raised do
+      temp = @package.find_schema( "other.TestSchema" )
+    end
+    assert_same schema, temp
+
+    temp = nil
+    assert_nothing_raised do
+      temp = p2.find_schema( "TestSchema" )
+    end
+    assert_same schema, temp
+
+    temp = nil
+    assert_nothing_raised do
+      temp = p2.find_schema( "other.TestSchema" )
+    end
+    assert_same schema, temp
+  end
+
+  def test_service_points
+    assert_equal 0, @package.service_points.length
+
+    point = MockServicePoint.new
+    @package.add_service_point point
+
+    assert_equal 1, @package.service_points.length
+    p2 = @package.service_point( "point" )
+
+    assert_equal point.id, p2.id
+
+    svc = @package.service( "point" )
+    assert_instance_of MockService, svc
+
+    svc = @package.service_point( "bogus" )
+    assert_nil svc
+
+    assert_raise( Copland::ServicePointNotFound ) do
+      @package.service( "bogus" )
+    end
+  end
+
+  def test_configuration_points
+    assert_equal 0, @package.configuration_points.length
+
+    cfg = MockConfigurationPoint.new
+    @package.add_configuration_point cfg
+
+    assert_equal 1, @package.configuration_points.length
+    p2 = @package.configuration_point( "point" )
+
+    assert_equal cfg.id, p2.id
+
+    p2 = @package.configuration_point( "bogus" )
+    assert_nil p2
+  end
+
+  def test_fixate_bad_package
+    @package.add_pending_contribution "bogus.conf_point", [ "a", "b", "c" ]
+    assert_raise( Copland::PackageNotFound ) { @package.fixate! }
+  end
+
+  def test_fixate_bad_contribution
+    @package.add_pending_contribution "conf_point", [ "a", "b", "c" ]
+    assert_raise( Copland::ConfigurationPointNotFound ) { @package.fixate! }
+  end
+
+  def test_fixate
+    cfg = MockConfigurationPoint.new
+    @package.add_configuration_point cfg
+
+    @package.add_pending_contribution cfg.name, "hello"
+
+    assert !@package.fixated?
+    @package.fixate!
+    assert @package.fixated?
+
+    assert_raise( Copland::DisallowedOperationException ) do
+      @package.add_pending_contribution cfg.name, "hello"
+    end
+  end
+
+end
+