copland 0.8.0

data/test/tc_configuration-point.rb

@@ -0,0 +1,91 @@
+#--
+# =============================================================================
+# 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/configuration-point'
+require 'copland/errors'
+require 'copland'
+require 'mock'
+
+class TC_ConfigurationPoint < Test::Unit::TestCase
+
+  def setup
+    @factory = Factory.new( Copland::ConfigurationPoint::POOL_NAME )
+    @package = MockPackage.new( MockRegistry.new )
+  end
+
+  def test_factory
+    list = @factory.get( "list", @package, "list" )
+    map = @factory.get( "map", @package, "map" )
+
+    assert_raise( Copland::NoSuchRegisteredClassException ) do
+      @factory.get( "bogus", @package, "bogus" )
+    end
+  end
+
+  def test_list
+    list = @factory.get( "list", @package, "list" )
+
+    assert_equal "list", list.name
+    assert_equal @package.name + "." "list", list.full_name
+    assert_equal @package, list.owner
+
+    assert_instance_of Copland::ConfigurationPoint::ListConfigurationPoint, list
+    assert list.empty?
+
+    list.contribute [ 1, 2, 3, 4, 5 ]
+
+    assert_equal [ 1, 2, 3, 4, 5 ], list
+  end
+
+  def test_map
+    map = @factory.get( "map", @package, "map" )
+
+    assert_equal "map", map.name
+    assert_equal @package.name + "." "map", map.full_name
+    assert_equal @package, map.owner
+
+    assert_instance_of Copland::ConfigurationPoint::MapConfigurationPoint, map
+    assert map.empty?
+
+    map.contribute :one=>:two, :three=>:four
+    assert_equal( { :one=>:two, :three=>:four }, map )
+
+    assert_raise( Copland::ConfigurationPoint::ContributionTypeMismatch ) do
+      map.contribute [ 1, 2, 3, 4, 5 ]
+    end
+  end
+
+end

data/test/tc_default-schema-processor.rb

@@ -0,0 +1,297 @@
+#--
+# =============================================================================
+# 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/errors'
+require 'copland/configuration/yaml/schema.rb'
+require 'copland/default-schema-processor.rb'
+require 'test/unit'
+require 'mock'
+require 'yaml'
+
+
+class TC_DefaultSchemaProcessor < Test::Unit::TestCase
+
+  def setup
+    @parser = Copland::Configuration::YAML::SchemaParser.new
+    @processor = Copland::DefaultSchemaProcessor.new
+    @owner = MockServicePoint.new
+    @client = MockServicePoint.new
+
+    y = YAML::load( %Q{
+      definition:
+        class:
+          type: string
+          required: true
+        something:
+          type: any
+        integer:
+          type: integer
+        real:
+          type: real
+        service:
+          type: service
+        configuration:
+          type: configuration
+        log:
+          type: log
+        array:
+          type: array
+        hash:
+          type: hash
+        boolean:
+          type: boolean
+        string:
+          type: string
+        subschema:
+          definition:
+            user.name:
+              type: string
+              required: true
+            auto.load:
+              type: boolean
+            services:
+              type: array
+        options:
+          type: array
+          definition:
+            option.name:
+              type: string
+              required: true
+            option.value:
+              type: string
+              required: true
+    } )
+
+    @schema = @parser.process( @owner, y )
+  end
+
+  def test_illegal_parameters
+    data = { "class" => "hello", "bogus" => "value" }
+      
+    assert_raise( Copland::ValidationException ) do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_missing_parameters
+    data = { "something" => "X" }
+      
+    assert_raise( Copland::ValidationException ) do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_wrong_type
+    pairs = {
+      "integer" => "hello",
+      "real" => "hello",
+      "service" => "hello",
+      "configuration" => "hello",
+      "array" => "hello",
+      "hash" => "hello",
+      "boolean" => "hello",
+      "string" => 15
+    }
+      
+    pairs.each do |k,v|
+      data = { "class" => "hello", k => v }
+
+      assert_raise( Copland::ValidationException ) do
+        @processor.validate( @owner,
+          @client,
+          @schema,
+          data )
+      end
+    end
+  end
+
+  def test_validate_any
+    data = { "class" => "hello", "something" => "value" }
+    assert_nothing_raised do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+
+    data = { "class" => "hello", "something" => 15 }
+    assert_nothing_raised do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+
+    data = { "class" => "hello", "something" => [ "one", "two" ] }
+    assert_nothing_raised do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_validate_bad_subschema_missing_key
+    data = YAML::load( %Q{
+      class: hello
+      subschema:
+        auto.load: true
+    } )
+
+    assert_raise( Copland::ValidationException ) do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_validate_bad_subschema_extra_key
+    data = YAML::load( %Q{
+      class: hello
+      subschema:
+        user.name: bob
+        bogus: value
+    } )
+
+    assert_raise( Copland::ValidationException ) do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_validate_bad_subschema_type_mismatch
+    data = YAML::load( %Q{
+      class: hello
+      subschema:
+        user.name: bob
+        auto.load: value
+    } )
+
+    assert_raise( Copland::ValidationException ) do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_validate_array_subschema_missing_key
+    data = YAML::load( %Q{
+      class: hello
+      options:
+        - option.name: bob
+    } )
+
+    assert_raise( Copland::ValidationException ) do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_validate_array_subschema_wrong_type
+    data = YAML::load( %Q{
+      class: hello
+      options:
+        - option.name: bob
+          option.value: !!service some.service
+    } )
+
+    assert_raise( Copland::ValidationException ) do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_validate_array_subschema
+    data = YAML::load( %Q{
+      class: hello
+      options:
+        - option.name: bob
+          option.value: jim
+        - option.name: tom
+          option.value: carl
+        - option.name: another
+          option.value: pair
+    } )
+
+    assert_nothing_raised do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+  def test_validate_success
+    data = YAML::load( %Q{
+      class: hello
+      something: :a_symbol
+      integer: 15
+      real: 3.14
+      service: !!service copland.Something
+      configuration: !!configuration copland.Something
+      log: !!log ~
+      array:
+        - one
+        - two
+      hash:
+        one: two
+        three: four
+      boolean: true
+      string: hello
+    } )
+      
+    assert_nothing_raised do
+      @processor.validate( @owner,
+        @client,
+        @schema,
+        data )
+    end
+  end
+
+end

data/test/tc_identity-instantiator.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 "../lib"
+
+require 'test/unit'
+require 'copland/class-factory'
+require 'copland/errors'
+require 'copland/instantiator'
+require 'mock'
+
+class TC_IdentityInstantiator < Test::Unit::TestCase
+
+  def setup
+    @factory = Factory.new( Copland::Instantiator::POOL_NAME )
+  end
+
+  def test_get
+    assert_nothing_raised do
+      @factory.get( "identity", nil, "hello" )
+    end
+  end
+
+  def test_instantiate
+    inst = @factory.get( "identity", nil, "hello" )
+    svc = inst.instantiate
+    assert_equal "hello", svc
+  end
+
+end
+