copland 0.8.0

data/test/impl/symbols/services.rb

@@ -0,0 +1,38 @@
+#--
+# =============================================================================
+# 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.
+# =============================================================================
+#++
+
+class SymbolTest
+  attr_accessor :one
+  attr_accessor :two
+  attr_accessor :three
+end

data/test/impl/tc_builder-factory.rb

@@ -0,0 +1,173 @@
+#--
+# =============================================================================
+# 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 ".."
+$:.unshift "../../lib"
+
+require 'test/unit'
+require 'copland/errors'
+require 'copland/registry'
+require 'singleton'
+require 'mock'
+
+class MockFactoryBuiltService
+  attr_accessor :attr1
+  attr_accessor :attr2
+  attr_accessor :attr3
+  attr_reader   :attr4
+  attr_accessor :attr5
+  attr_reader   :attr6
+
+  def set_attr4( v )
+    @attr4 = v
+  end
+
+  def initialize( a=nil )
+    @attr3 = a
+    @attr5 = "not yet initialized!"
+  end
+
+  def initialize_service
+    @attr5 = "initialized!"
+  end
+
+  def custom_initialize
+    @attr5 = "custom initialize"
+  end
+
+  def compute( a, b )
+    @attr6 = @attr1 + a + b
+  end
+end
+
+class MockSingletonBuiltService < MockFactoryBuiltService
+  include Singleton
+end
+
+class TC_BuilderFactory < Test::Unit::TestCase
+  def setup
+    @registry = Copland::Registry.build( "", :log_device=>STDOUT )
+    @factory = @registry.service( "copland.BuilderFactory" )
+    @point = MockServicePoint.new
+  end
+
+  def teardown
+    @registry.shutdown
+  end
+
+  def test_no_parms
+    parms = { "class" => "MockFactoryBuiltService" }
+    svc = @factory.create_instance @point, parms
+
+    assert_instance_of MockFactoryBuiltService, svc
+    assert_nil svc.attr3
+    assert_equal "initialized!", svc.attr5
+  end
+
+  def test_initialize_method
+    parms = { "class" => "MockFactoryBuiltService",
+              "initialize-method" => "custom_initialize" }
+    svc = @factory.create_instance @point, parms
+
+    assert_equal "custom initialize", svc.attr5
+
+    parms = { "class" => "MockFactoryBuiltService",
+              "initialize-method" => "bogus_initialize" }
+    svc = @factory.create_instance @point, parms
+
+    assert_equal "not yet initialized!", svc.attr5
+  end
+
+  def test_parameters
+    parms = { "class" => "MockFactoryBuiltService",
+              "parameters" => [ "parm" ] }
+    svc = @factory.create_instance @point, parms
+    assert_equal "parm", svc.attr3
+  end
+
+  def test_properties
+    parms = { "class" => "MockFactoryBuiltService",
+              "properties" => { "attr1" => "1",
+                                "attr2" => "2",
+                                "attr3" => "3",
+                                "attr4" => "4",
+                                "attr5" => "5" } }
+    svc = @factory.create_instance @point, parms
+    assert_equal "1", svc.attr1
+    assert_equal "2", svc.attr2
+    assert_equal "3", svc.attr3
+    assert_equal "4", svc.attr4
+    assert_equal "initialized!", svc.attr5
+  end
+
+  def test_invoke
+    parms = { "class" => "MockFactoryBuiltService",
+              "properties" => { "attr1" => 1 },
+              "invoke" => { "compute" => [ 5, 6 ] } }
+    svc = @factory.create_instance @point, parms
+    assert_equal 12, svc.attr6
+  end
+
+  def test_singleton_no_parms
+    parms = { "class" => "MockSingletonBuiltService" }
+    svc = @factory.create_instance @point, parms
+
+    assert_instance_of MockSingletonBuiltService, svc
+    assert_nil svc.attr3
+  end
+
+  def test_singleton_parameters
+    parms = { "class" => "MockSingletonBuiltService",
+              "parameters" => [ "parm" ] }
+
+    assert_raise( Copland::CoplandException ) do
+      svc = @factory.create_instance @point, parms
+    end
+  end
+
+  def test_singleton_properties
+    parms = { "class" => "MockSingletonBuiltService",
+              "properties" => { "attr1" => "1",
+                                "attr2" => "2",
+                                "attr3" => "3",
+                                "attr4" => "4",
+                                "attr5" => "5" } }
+    svc = @factory.create_instance @point, parms
+    assert_equal "1", svc.attr1
+    assert_equal "2", svc.attr2
+    assert_equal "3", svc.attr3
+    assert_equal "4", svc.attr4
+    assert_equal "initialized!", svc.attr5
+  end
+
+end

data/test/impl/tc_logging-interceptor.rb

@@ -0,0 +1,148 @@
+#--
+# =============================================================================
+# 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 File.dirname( __FILE__ )
+$:.unshift ".."
+$:.unshift "../../lib"
+
+require 'copland/impl/logging-interceptor'
+require 'copland/log-factory'
+require 'copland/package'
+require 'copland/registry'
+require 'copland/service-point'
+require 'test/unit'
+require 'mock'
+
+class TC_LoggingInterceptor < Test::Unit::TestCase
+
+  def setup
+    @device = MockLogIO.new
+    @registry = Copland::Registry.build(
+      File.join( File.dirname( __FILE__ ), "logging" ),
+      :log_device => @device,
+      :log_default_level => Logger::DEBUG
+    )
+  end
+
+  def teardown
+    @registry.shutdown
+  end
+
+  def test_log
+    service = @registry.service( "logging.Test" )
+
+    assert_equal "", @device.message
+    service.echo 15
+    assert_match( /DEBUG -- logging.Test: echo\( 15 \)/, @device.message )
+    assert_match( /DEBUG -- logging.Test: echo => 15/, @device.message )
+  end
+
+  def test_exclude
+    service = @registry.service( "logging.TestExclude" )
+
+    assert_equal "", @device.message
+    service.echo 15
+    assert_match( /DEBUG -- logging.TestExclude: echo\( 15 \)/, @device.message )
+    assert_match( /DEBUG -- logging.TestExclude: echo => 15/, @device.message )
+
+    @device.clear
+    assert_equal "", @device.message
+    service.echo_notme 15
+    assert_equal "", @device.message
+
+    @device.clear
+    assert_equal "", @device.message
+    service.echo_multiple 15, 16
+    assert_equal "", @device.message
+  end
+
+  def test_include
+    service = @registry.service( "logging.TestInclude" )
+
+    assert_equal "", @device.message
+    service.echo 15
+    assert_match( /DEBUG -- logging.TestInclude: echo\( 15 \)/, @device.message )
+    assert_match( /DEBUG -- logging.TestInclude: echo => 15/, @device.message )
+
+    @device.clear
+    assert_equal "", @device.message
+    service.echo_notme 15
+    assert_equal "", @device.message
+
+    @device.clear
+    assert_equal "", @device.message
+    service.echo_notme_multiple 15, 16
+    assert_match( /DEBUG -- logging.TestInclude: echo_notme_multiple\( 15, 16 \)/, @device.message )
+    assert_match( /DEBUG -- logging.TestInclude: echo_notme_multiple => \[15, 16\]/, @device.message )
+  end
+
+  def test_include2
+    service = @registry.service( "logging.TestInclude2" )
+
+    @device.clear
+    assert_equal "", @device.message
+    service.echo_notme 15
+    assert_match( /DEBUG -- logging.TestInclude2: echo_notme\( 15 \)/, @device.message )
+    assert_match( /DEBUG -- logging.TestInclude2: echo_notme => 15/, @device.message )
+
+    @device.clear
+    assert_equal "", @device.message
+    service.echo_notme_multiple 15, 16
+    assert_equal "", @device.message
+  end
+
+  def test_arity
+    service = @registry.service( "logging.TestArity" )
+
+    assert_equal "", @device.message
+    service.echo 15, 16, 17
+    assert_match( /DEBUG -- logging.TestArity: echo\( 15, 16, 17 \)/, @device.message )
+    assert_match( /DEBUG -- logging.TestArity: echo => \[15, 16, 17\]/, @device.message )
+
+    @device.clear
+    assert_equal "", @device.message
+    service.too_few 1
+    assert_equal "", @device.message
+
+    @device.clear
+    assert_equal "", @device.message
+    service.too_many 1, 2, 3, 4, 5, 6, 7, 8
+    assert_equal "", @device.message
+
+    @device.clear
+    assert_equal "", @device.message
+    service.just_right 1, 2, 3, 4, 5
+    assert_equal "", @device.message
+  end
+
+end

data/test/impl/tc_startup.rb

@@ -0,0 +1,59 @@
+#--
+# =============================================================================
+# 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 File.dirname( __FILE__ )
+$:.unshift ".."
+$:.unshift "../../lib"
+
+require 'startup/services'
+require 'copland'
+require 'test/unit'
+
+class TC_Startup < Test::Unit::TestCase
+
+  def test_startup
+    assert_equal "not initialized", $startup_marker
+    assert_equal "sequence:", $ordered_startup_output
+
+    registry = Copland::Registry.build(
+      File.join( File.dirname( __FILE__ ), "startup" ),
+      :log_device => STDOUT
+    )
+
+    assert_equal "StartupTest service initialized", $startup_marker
+    assert_equal "sequence: B A C", $ordered_startup_output
+
+    registry.shutdown
+  end
+
+end

data/test/impl/tc_symbol-sources.rb

@@ -0,0 +1,61 @@
+#--
+# =============================================================================
+# 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 ".."
+$:.unshift "../../lib"
+$:.unshift File.dirname( __FILE__ )
+
+require 'test/unit'
+require 'copland/registry'
+
+class TC_SymbolSources < Test::Unit::TestCase
+
+  def setup
+    @registry = Copland::Registry.build(
+      File.join( File.dirname( __FILE__ ), "symbols" ),
+      :log_device => STDOUT )
+  end
+
+  def teardown
+    @registry.shutdown
+  end
+
+  def test_substitution_symbols
+    svc = @registry.service( "symbol-test.SymbolTest" )
+
+    assert_equal "hello", svc.one
+    assert_equal "earth", svc.two
+    assert_equal "foobar", svc.three
+  end
+
+end