copland 0.8.0

data/test/conf-test/map-good.yml

@@ -0,0 +1,25 @@
+---
+id: map-good
+
+configuration-points:
+
+  MapGood:
+    type: map
+    schema:
+      definition:
+        service:
+          type: string
+          required: true
+        options:
+          type: array
+        color:
+          type: string
+
+contributions:
+
+  MapGood:
+    service: some.Service
+    options:
+    - opt1: opt2
+    - opt3: opt4
+    color: blue

data/test/configuration-point/package.yml

@@ -0,0 +1,52 @@
+---
+id: test1
+
+service-points:
+
+  Object:
+    implementor: Object
+
+configuration-points:
+
+  TestMap:
+    type: map
+
+  TestList:
+    type: list
+
+contributions:
+
+  TestMap:
+    value1: !!service Object
+    value2: !!service test2.Array
+
+  test2.TestList:
+    - !!service test2.Array
+    - !!service Object
+
+---
+id: test2
+
+service-points:
+
+  Array:
+    implementor: Array
+
+configuration-points:
+
+  TestMap:
+    type: map
+
+  TestList:
+    type: list
+
+contributions:
+
+  TestMap:
+    value1: !!service Array
+    value2: !!service test1.Object
+
+  test1.TestList:
+    - !!service test1.Object
+    - !!service Array
+

data/test/configuration/yaml/config/copland-config.yml

@@ -0,0 +1,2 @@
+yaml-package-file: module.yml
+default-service-model: threaded

data/test/configuration/yaml/config/module.yml

@@ -0,0 +1,2 @@
+---
+id: test-config

data/test/configuration/yaml/config/subdir/copland-config.yml

@@ -0,0 +1,2 @@
+yaml-package-file: package.yml
+default-service-model: prototype

data/test/configuration/yaml/config/subdir/package.yml

@@ -0,0 +1,4 @@
+---
+id: subdir-config
+---
+id: another-config

data/test/configuration/yaml/defaults/package.yml

@@ -0,0 +1,5 @@
+---
+id: test
+description:
+  A test package for verifying the default loader settings.
+

data/test/configuration/yaml/defaults/subdir/package.yml

@@ -0,0 +1,4 @@
+---
+id: subdir
+---
+id: another

data/test/configuration/yaml/tc_config-loader.rb

@@ -0,0 +1,86 @@
+#--
+# =============================================================================
+# 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/configuration/loader'
+require 'copland/configuration/yaml/loader'
+require 'mock'
+
+class TC_ConfigLoader < Test::Unit::TestCase
+
+  def setup
+    @registry = MockRegistry.new
+
+    @loader = Copland::Configuration::Loader.new
+    @loader.add_loader Copland::Configuration::YAML::Loader.new( @registry, @loader )
+
+    @defaults_dir = File.join( File.dirname( __FILE__ ), "defaults" )
+    @config_dir = File.join( File.dirname( __FILE__ ), "config" )
+  end
+
+  def test_load_path
+    @loader.load_path @defaults_dir, Hash.new
+
+    assert_equal 3, @registry.packages.length
+    assert_not_nil @registry.package( "test" )
+    assert_not_nil @registry.package( "subdir" )
+    assert_not_nil @registry.package( "another" )
+  end
+
+  def test_load_path_with_config
+    @loader.load_path @config_dir, Hash.new
+
+    assert_equal 3, @registry.packages.length
+    assert_not_nil @registry.package( "test-config" )
+    assert_not_nil @registry.package( "subdir-config" )
+    assert_not_nil @registry.package( "another-config" )
+  end
+
+  def test_load
+    @loader.add_search_path @defaults_dir, @config_dir
+    @loader.load
+
+    assert_equal 7, @registry.packages.length
+    assert_not_nil @registry.package( "copland" )
+    assert_not_nil @registry.package( "test" )
+    assert_not_nil @registry.package( "subdir" )
+    assert_not_nil @registry.package( "another" )
+    assert_not_nil @registry.package( "test-config" )
+    assert_not_nil @registry.package( "subdir-config" )
+    assert_not_nil @registry.package( "another-config" )
+  end
+
+end

data/test/configuration/yaml/tc_configuration-point-processor.rb

@@ -0,0 +1,134 @@
+#--
+# =============================================================================
+# 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/configuration/errors'
+require 'copland/configuration/yaml/configuration-point'
+require 'copland/configuration-point'
+require 'copland/errors'
+require 'mock'
+
+class TC_ConfigurationPointProcessor < Test::Unit::TestCase
+
+  def setup
+    @package = MockPackage.new( MockRegistry.new )
+    @processor =
+      Copland::Configuration::YAML::ConfigurationPointProcessor.new(
+        @package
+      )
+  end
+
+  def test_process_bad_type
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "hello", "world" )
+    end
+  end
+
+  def test_process_bad_key
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "hello", "type" => "list",
+                                   "bogus" => "value" )
+    end
+  end
+
+  def test_process_missing_key
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "hello", Hash.new )
+    end
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "hello", "description" => "blah" )
+    end
+  end
+
+  def test_process_list
+    point = nil
+
+    assert_nothing_raised do
+      point = @processor.process( "hello", "type" => "list",
+                                           "description" => "blah" )
+    end
+
+    assert_equal "hello", point.name
+    assert_equal "blah", point.description
+    assert_instance_of Copland::ConfigurationPoint::ListConfigurationPoint, point
+  end
+
+  def test_process_map
+    point = nil
+
+    assert_nothing_raised do
+      point = @processor.process( "hello", "type" => "map",
+                                           "description" => "blah" )
+    end
+
+    assert_equal "hello", point.name
+    assert_equal "blah", point.description
+    assert_instance_of Copland::ConfigurationPoint::MapConfigurationPoint, point
+  end
+
+  def test_process_bad_type
+    assert_raise( Copland::NoSuchRegisteredClassException ) do
+      @processor.process( "hello", "type" => "bogus",
+                                   "description" => "blah" )
+    end
+  end
+
+  def test_process_good_schema_reference
+    assert_nothing_raised do
+      point = @processor.process( "hello",
+         "type" => "map",
+         "description" => "blah",
+         "schema" => "name" )
+    end
+  end
+
+  def test_process_good_schema
+    assert_nothing_raised do
+      point = @processor.process( "hello",
+         "type" => "map",
+         "description" => "blah",
+         "schema" => {
+           "name" => "name.Schema",
+           "definition" => {
+             "hello" => {
+               "type" => "string"
+             }
+           }
+         } )
+    end
+  end
+
+end

data/test/configuration/yaml/tc_implementor-processor.rb

@@ -0,0 +1,104 @@
+#--
+# =============================================================================
+# 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/configuration/yaml/implementor'
+require 'copland/instantiator'
+require 'mock'
+require 'yaml'
+
+class TC_ImplementorProcessor < Test::Unit::TestCase
+
+  def setup
+    @processor = Copland::Configuration::YAML::ImplementorProcessor.new
+  end
+
+  def test_process_bad_type
+    point = MockServicePoint.new
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( point, 15 )
+    end
+  end
+
+  def test_process_simple
+    point = MockServicePoint.new
+
+    assert_nothing_raised do
+      @processor.process( point, "something" )
+    end
+
+    assert_instance_of Copland::Instantiator::Simple, point.instantiator
+  end
+
+  def test_process_complex
+    point = MockServicePoint.new
+
+    assert_nothing_raised do
+      @processor.process( point, "factory" => "something" )
+    end
+
+    assert_instance_of Copland::Instantiator::Complex, point.instantiator
+  end
+
+  def test_process_complex_deyamlize_good
+    point = MockServicePoint.new
+
+    parms = {
+      "factory" => "something",
+      "class" => YAML::Syck::PrivateType.new( "real", 3.1415 ),
+      "items" => [ 
+        "a string",
+        YAML::Syck::PrivateType.new( "service", "copland.Registry" )
+      ],
+      "map" => {
+        "key1" => "a string",
+        "key2" => YAML::Syck::PrivateType.new( "configuration", "copland.Registry" )
+      }
+    }
+
+    assert_nothing_raised do
+      @processor.process( point, parms )
+    end
+
+    assert_instance_of Copland::Instantiator::Complex, point.instantiator
+    assert_equal "a string", point.instantiator.construction_parms['map'].value['key1'].value
+    assert_equal "service", point.instantiator.construction_parms['items'].value[1].type_id
+    assert_equal "hash", point.instantiator.construction_parms['map'].type_id
+    assert_equal "array", point.instantiator.construction_parms['items'].type_id
+    assert_equal "copland.Registry", point.instantiator.construction_parms['items'].value[1].value
+  end
+
+end

data/test/configuration/yaml/tc_interceptor-processor.rb

@@ -0,0 +1,85 @@
+#--
+# =============================================================================
+# 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/configuration/yaml/interceptor'
+require 'mock'
+
+class TC_InterceptorProcessor < Test::Unit::TestCase
+
+  def setup
+    @processor = Copland::Configuration::YAML::InterceptorProcessor.new
+  end
+
+  def process_valid_test( definition )
+    point = MockServicePoint.new
+    assert_nothing_raised do
+      @processor.process( point, definition )
+    end
+  end
+  private :process_valid_test
+
+  def process_invalid_test( definition )
+    point = MockServicePoint.new
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( point, definition )
+    end
+  end
+  private :process_invalid_test
+
+  def test_process_valid
+    process_valid_test "service" => "value"
+    process_valid_test "service" => "value", "before" => [ "a" ]
+    process_valid_test "service" => "value", "after" => [ "a" ]
+    process_valid_test "service" => "value", "before" => [ "b" ],
+      "after" => [ "a" ]
+  end
+
+  def test_process_missing_key
+    process_invalid_test Hash.new
+    process_invalid_test "before" => [ "a" ]
+    process_invalid_test "after" => [ "a" ]
+  end
+
+  def test_process
+    point = MockServicePoint.new
+    @processor.process( point, "service" => "hello" )
+
+    assert_equal 1, point.pending_interceptors.length
+    assert_equal "hello", point.pending_interceptors.first[ "service" ]
+  end
+
+end