copland 0.8.0

data/test/tc_proxy.rb

@@ -0,0 +1,65 @@
+#--
+# =============================================================================
+# 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/models/proxy'
+require 'mock'
+
+class TC_Proxy < Test::Unit::TestCase
+
+  def test_deferred
+    message = ""
+    point = MockServicePoint.new( message )
+    proxy = Copland::ServiceModel::Proxy.new( point )
+
+    assert_equal( "", message )
+    assert proxy.noop
+    assert_equal( "initialized!", message )
+
+    assert proxy.is_a?( MockService )
+    assert_respond_to proxy, :noop
+
+  end
+
+  def test_instantiate_failed
+    point = MockServicePoint.new( 0 )
+    proxy = Copland::ServiceModel::Proxy.new( point )
+
+    assert_raise( NoMethodError ) { proxy.noop }
+
+    assert_nil proxy.noop
+  end
+
+end

data/test/tc_registry.rb

@@ -0,0 +1,141 @@
+#--
+# =============================================================================
+# 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_Registry < Test::Unit::TestCase
+
+  def test_registry_new
+    registry = Copland::Registry.new
+    assert_nil registry.package( "copland" )
+    assert !registry.fixated?
+    registry.fixate!
+    assert registry.fixated?
+    assert_not_nil registry.package( "copland" )
+    assert_equal registry, registry.service( "copland.Registry" )
+    registry.shutdown
+
+    assert_raise( Copland::DisallowedOperationException ) do
+      registry.package( "copland" )
+    end
+    assert_raise( Copland::DisallowedOperationException ) do
+      registry.service( "copland.Registry" )
+    end
+    assert_raise( Copland::DisallowedOperationException ) do
+      registry.configuration_point( "copland.Registry" )
+    end
+    assert_raise( Copland::DisallowedOperationException ) do
+      registry.add_package( "blah" )
+    end
+  end
+
+  def test_registry_build
+    registry = Copland::Registry.build File.join( File.dirname( __FILE__ ),
+      "services" )
+
+    assert registry.fixated?
+    assert_not_nil registry.package( "copland" )
+    assert_not_nil registry.package( "service-test" )
+
+    assert !registry.shutdown?
+    assert !registry.logs.closed?
+    registry.shutdown
+    assert registry.shutdown?
+    assert registry.logs.closed?
+  end
+
+  def test_registry_build_bogus_dir
+    registry = nil
+    assert_nothing_raised do
+      registry = Copland::Registry.build "no-such-dir"
+    end
+    assert_not_nil registry.package( "copland" )
+    assert_equal 1, registry.package_count
+    registry.shutdown
+  end
+
+  def test_registry_new_log_opts
+    registry = Copland::Registry.new :log_device => $stdout,
+                                     :log_default_format => "%Y",
+                                     :log_default_level => Logger::FATAL
+
+    assert_equal $stdout, registry.logs.device
+    assert_equal "%Y", registry.logs.default_format
+    assert_equal Logger::FATAL, registry.logs.default_level
+  end
+
+  def test_registry_build_log_opts
+    registry = Copland::Registry.build File.join( File.dirname( __FILE__ ),
+      "services" ),
+      :log_device => $stdout,
+      :log_default_format => "%Y",
+      :log_default_level => Logger::FATAL
+
+    assert_equal $stdout, registry.logs.device
+    assert_equal "%Y", registry.logs.default_format
+    assert_equal Logger::FATAL, registry.logs.default_level
+  end
+
+  def test_registry_service_bad
+    registry = Copland::Registry.build File.join( File.dirname( __FILE__ ),
+      "services" )
+
+    assert_raise( Copland::ServicePointNotFound ) do
+      registry.service( "copland.bogus_service" )
+    end
+
+    assert_raise( Copland::ServicePointNotFound ) do
+      registry.service( "bogus_service" )
+    end
+  end
+
+  def test_registry_configuration_point_bad
+    registry = Copland::Registry.build File.join( File.dirname( __FILE__ ),
+      "services" )
+
+    point = nil
+    assert_nothing_raised do
+      point = registry.configuration_point( "copland.bogus_point" )
+    end
+    assert_nil point
+
+    assert_raise( Copland::ConfigurationPointNotFound ) do
+      registry.configuration_point( "bogus_point" )
+    end
+  end
+
+end

data/test/tc_schema.rb

@@ -0,0 +1,78 @@
+#--
+# =============================================================================
+# 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_Schema < Test::Unit::TestCase
+
+  def test_schema_load
+    registry = nil
+
+    assert_nothing_raised do
+      registry = Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "schema" ),
+        :log_device => STDOUT )
+    end
+
+    cfg = registry.configuration_point( "test.Test3" )
+
+    assert_equal "cast it off!", cfg['g']['h']['c']
+
+    registry.shutdown
+  end
+
+  def test_schema_bad_load
+    assert_raise( Copland::ValidationException ) do
+      Copland::Registry.build(
+        File.join( File.dirname( __FILE__ ), "schema" ),
+        :log_device => STDOUT,
+        :yaml_package_file => "bad-package.yml" )
+    end
+  end
+
+  def test_schema_validate
+    registry = Copland::Registry.build(
+      File.join( File.dirname( __FILE__ ), "schema" ),
+      :log_device => STDOUT )
+    
+    assert_nothing_raised do
+      registry.service( "test.Object2" )
+    end
+
+    registry.shutdown
+  end
+
+end

data/test/tc_service-point.rb

@@ -0,0 +1,178 @@
+#--
+# =============================================================================
+# 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/instantiator'
+require 'copland/models'
+require 'copland/service-point'
+require 'mock'
+
+class TC_ServicePoint < Test::Unit::TestCase
+
+  def setup
+    @registry = MockRegistry.new
+    @package = MockPackage.new( @registry )
+    @svc_point = Copland::ServicePoint.new( @package, "test1" )
+
+    @svc_point.instantiator = 
+      Copland::ClassFactory.instance.get(
+        Copland::Instantiator::POOL_NAME,
+        "simple",
+        @svc_point,
+        "services/simple/Simple" )
+  end
+
+  def test_init
+    assert_equal @package.name + ".test1", @svc_point.full_name
+    assert_instance_of Copland::ServiceModel::SingletonDeferredServiceModel,
+      @svc_point.service_model
+  end
+
+  def test_use_service_model
+    @svc_point.use_service_model "prototype"
+    assert_instance_of Copland::ServiceModel::PrototypeServiceModel,
+      @svc_point.service_model
+  end
+
+  def test_add_event_producer
+    @svc_point.add_event_producer "a"
+    assert_equal 1, @svc_point.event_producers.length
+    @svc_point.add_event_producer "b"
+    assert_equal 2, @svc_point.event_producers.length
+    @svc_point.add_event_producer "a"
+    assert_equal 2, @svc_point.event_producers.length
+  end
+
+  def test_add_interceptor
+    @svc_point.add_interceptor "a"
+    assert_equal 1, @svc_point.interceptors.length
+    @svc_point.add_interceptor "b"
+    assert_equal 2, @svc_point.interceptors.length
+    @svc_point.add_interceptor "a"
+    assert_equal 2, @svc_point.interceptors.length
+  end
+
+  def test_instantiator
+    @svc_point.use_service_model "prototype"
+
+    svc = @svc_point.instance
+    assert_not_nil svc
+    assert_instance_of Simple, svc
+  end
+
+  def test_instance_with_block
+    @svc_point.use_service_model "prototype"
+    svc = @svc_point.instance { @attr1 = "hello" }
+    assert_equal "hello", svc.attr1
+
+    @svc_point.use_service_model "prototype-deferred"
+    svc = @svc_point.instance { @attr1 = "world" }
+    assert_equal "world", svc.attr1
+
+    @svc_point.use_service_model "singleton"
+    svc = @svc_point.instance { @attr1 = "take 3" }
+    assert_equal "take 3", svc.attr1
+    svc = @svc_point.instance { @attr1 = "take 4" }
+    assert_equal "take 3", svc.attr1
+
+    @svc_point.use_service_model "singleton-deferred"
+    svc = @svc_point.instance { @attr1 = "take 3" }
+    assert_equal "take 3", svc.attr1
+    svc = @svc_point.instance { @attr1 = "take 4" }
+    assert_equal "take 3", svc.attr1
+
+    @svc_point.use_service_model "threaded"
+    svc = @svc_point.instance { @attr1 = "take 3" }
+    assert_equal "take 3", svc.attr1
+    svc = @svc_point.instance { @attr1 = "take 4" }
+    assert_equal "take 3", svc.attr1
+  end
+
+  def test_fixate_bad_interceptor
+    @package.add_service_point MockServicePoint.new
+    @svc_point.add_pending_interceptor "service"=>"bogus"
+    @svc_point.add_event_producer "point"
+
+    assert_raise( Copland::ServicePointNotFound ) do
+      @svc_point.fixate!
+    end
+  end
+
+  def test_fixate_bad_interceptor_package
+    @package.add_service_point MockServicePoint.new
+    @svc_point.add_pending_interceptor "service"=>"bogus.bogus"
+    @svc_point.add_event_producer "point"
+
+    assert_raise( Copland::PackageNotFound ) do
+      @svc_point.fixate!
+    end
+  end
+
+  def test_fixate_bad_listener
+    @package.add_service_point MockServicePoint.new
+    @svc_point.add_pending_interceptor "service"=>"point"
+    @svc_point.add_event_producer "bogus"
+
+    assert_raise( Copland::ServicePointNotFound ) do
+      @svc_point.fixate!
+    end
+  end
+
+  def test_fixate_bad_listener_package
+    @package.add_service_point MockServicePoint.new
+    @svc_point.add_pending_interceptor "service"=>"point"
+    @svc_point.add_event_producer "bogus.point"
+
+    assert_raise( Copland::PackageNotFound ) do
+      @svc_point.fixate!
+    end
+  end
+
+  def test_fixate
+    @package.add_service_point MockServicePoint.new
+    @svc_point.add_pending_interceptor "service"=>"point"
+    @svc_point.add_event_producer "point"
+
+    assert !@svc_point.fixated?
+    @svc_point.fixate!
+    assert @svc_point.fixated?
+
+    assert_raise( Copland::DisallowedOperationException ) do
+      @svc_point.add_pending_interceptor "blah"
+    end
+  end
+
+end