copland 0.8.0

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

@@ -0,0 +1,69 @@
+#--
+# =============================================================================
+# 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/listener'
+require 'mock'
+
+class TC_ListenerProcessor < Test::Unit::TestCase
+
+  def setup
+    @processor = Copland::Configuration::YAML::ListenerProcessor.new
+  end
+
+  def test_process_valid
+    point = MockServicePoint.new
+    assert_nothing_raised do
+      @processor.process( point, "something" )
+    end
+  end
+
+  def test_process_bad_type
+    point = MockServicePoint.new
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( point, 15 )
+    end
+  end
+
+  def test_process
+    point = MockServicePoint.new
+    @processor.process( point, "something" )
+
+    assert_equal 1, point.event_producers.length
+    assert_equal "something", point.event_producers.first
+  end
+
+end

data/test/configuration/yaml/tc_loader.rb

@@ -0,0 +1,74 @@
+#--
+# =============================================================================
+# 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/loader'
+require 'mock'
+
+class TC_Loader < Test::Unit::TestCase
+
+  def setup
+    @registry = MockRegistry.new
+    @mock_loader = MockLoader.new
+    @loader = Copland::Configuration::YAML::Loader.new( @registry, @mock_loader )
+    @defaults_dir = File.join( File.dirname( __FILE__ ), "defaults" )
+    @config_dir = File.join( File.dirname( __FILE__ ), "config" )
+  end
+
+  def test_defaults
+    @loader.process_dir @defaults_dir, Hash.new
+
+    assert_equal 1, @registry.packages.length
+    assert_not_nil @registry.package( "test" )
+
+    @loader.process_dir File.join( @defaults_dir, "subdir" ), Hash.new
+
+    assert_equal 3, @registry.packages.length
+    assert_not_nil @registry.package( "subdir" )
+    assert_not_nil @registry.package( "another" )
+  end
+
+  def test_config
+    opts = @loader.process_dir @config_dir, Hash.new
+
+    assert_equal "module.yml", opts[ :yaml_package_file ]
+    assert_equal "threaded", opts[ :default_service_model ]
+
+    assert_equal 1, @registry.packages.length
+    assert_not_nil @registry.package( "test-config" )
+  end
+
+end

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

@@ -0,0 +1,120 @@
+#--
+# =============================================================================
+# 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/package'
+require 'mock'
+
+class TC_PackageProcessor < Test::Unit::TestCase
+
+  def setup
+    @registry = MockRegistry.new
+    @loader = MockLoader.new
+    @processor = Copland::Configuration::YAML::PackageProcessor.new( @registry, @loader )
+  end
+
+  def test_bad_type
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( 15 )
+    end
+  end
+
+  def test_bad_key
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "id" => "value",
+                          "bogus" => "value" )
+    end
+  end
+
+  def test_missing_key
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "description" => "value" )
+    end
+  end
+
+  def test_bad_service_points
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "id" => "test",
+                          "service-points" => "Q" )
+    end
+  end
+
+  def test_bad_configuration_points
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "id" => "test",
+                          "configuration-points" => "Q" )
+    end
+  end
+
+  def test_bad_contributions
+    assert_raise( Copland::Configuration::ParserError ) do
+      @processor.process( "id" => "test",
+                          "contributions" => "Q" )
+    end
+  end
+
+  def test_process
+      @processor.process( "id" => "test",
+                          "description" => "A",
+                          "require" => [ "copland/lib" ],
+                          "service-points" => {
+                            "point" => { "implementor" => "something" } 
+                          },
+                          "configuration-points" => {
+                            "point" => { "type" => "list" } 
+                          },
+                          "contributions" => {
+                            "point" => [ "B", "C", "D" ]
+                          } )
+
+    assert_equal 1, @registry.packages.length
+
+    package = @registry.package( "test" )
+    assert_not_nil package
+
+    package.fixate!
+
+    assert_equal "A", package.description
+    assert_not_nil package.service_point( "point" )
+    cfg = package.configuration_point( "point" )
+    assert_not_nil cfg
+    assert_equal 3, cfg.length
+    assert_equal "C", cfg[1]
+    assert_equal [ "copland/lib" ], @loader.used
+  end
+
+end

data/test/configuration/yaml/tc_parser.rb

@@ -0,0 +1,94 @@
+#--
+# =============================================================================
+# 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/parser'
+require 'mock'
+
+class TC_Parser < Test::Unit::TestCase
+
+  def setup
+    @registry = MockRegistry.new
+    @loader = MockLoader.new
+    @parser = Copland::Configuration::YAML::Parser.new( @registry, @loader )
+  end
+
+  def test_bad_yaml
+    yaml = <<EOY
+---
+hello
+:
+blah
+EOY
+
+    assert_raise( ArgumentError ) do
+      @parser.parse( yaml )
+    end
+  end
+
+  def test_good_yaml
+    yaml = <<EOY
+---
+id: test
+description: >-
+  This is a description
+
+service-points:
+  point:
+    implementor: some/service/Implementation
+---
+id: test2
+description: >-
+  Another test
+EOY
+
+    assert_nothing_raised do
+      @parser.parse( yaml )
+    end
+
+    assert_equal 2, @registry.packages.length
+    assert_not_nil @registry.package( "test2" )
+    pkg = @registry.package( "test" )
+    assert_not_nil pkg
+    assert_equal "test", pkg.name
+    assert_equal "This is a description", pkg.description
+
+    pt = pkg.service_point( "point" )
+    assert_not_nil pt
+    assert_equal "point", pt.name
+  end
+
+end

data/test/configuration/yaml/tc_schema-parser.rb

@@ -0,0 +1,160 @@
+#--
+# =============================================================================
+# 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/schema'
+require 'copland/package'
+require 'copland/service-point'
+require 'mock'
+require 'yaml'
+
+class TC_SchemaParser < Test::Unit::TestCase
+
+  def setup
+    @parser = Copland::Configuration::YAML::SchemaParser.new
+    @registry = MockRegistry.new
+    @package = Copland::Package.new( @registry, "test" )
+    @point = Copland::ServicePoint.new( @package, "point" )
+    @package.add_service_point @point
+    @registry.add_package @package
+  end
+
+  def test_schema_reference
+    assert_nothing_raised do
+      @parser.process( @point, "test.SpecialSchema" )
+    end
+  end
+
+  def do_test_invalid_field( name, value )
+    y = YAML::load( %Q{#{name}: #{value}} )
+    assert_raise( Copland::Configuration::ParserError ) do
+      @parser.process( @point, y )
+    end
+  end
+
+  def do_test_valid_field( name, value, try_nil=true )
+    if try_nil
+      y = YAML::load( %Q{#{name}:\n} )
+      assert_nothing_raised do
+        @parser.process( @point, y )
+      end
+    end
+
+    y = YAML::load( %Q{#{name}: #{value}} )
+    assert_nothing_raised do
+      @parser.process( @point, y )
+    end
+  end
+
+  [ "name", "class", "description" ].each do |name|
+    class_eval <<-EOF
+      def test_valid_#{name}
+        do_test_valid_field( "#{name}", "Bogus" )
+      end
+
+      def test_invalid_#{name}
+        do_test_invalid_field( "#{name}", 15 )
+      end
+    EOF
+  end
+
+  def test_invalid_required
+    do_test_invalid_field( "required", 15 )
+  end
+
+  def test_valid_required
+    do_test_valid_field( "required", true )
+    do_test_valid_field( "required", false )
+  end
+
+  def test_invalid_type
+    do_test_invalid_field( "type", 15 )
+    do_test_invalid_field( "type", "bogus" )
+  end
+
+  def test_valid_type
+    do_test_valid_field( "type", "any" )
+    do_test_valid_field( "type", "integer", false )
+    do_test_valid_field( "type", "real", false )
+    do_test_valid_field( "type", "service", false )
+    do_test_valid_field( "type", "log", false )
+    do_test_valid_field( "type", "configuration", false )
+    do_test_valid_field( "type", "string", false )
+    do_test_valid_field( "type", "hash", false )
+    do_test_valid_field( "type", "array", false )
+    do_test_valid_field( "type", "boolean", false )
+  end
+
+  def test_type_conflict
+    y = YAML::load( %Q{
+        type: string
+        definition:
+          something:
+            type: string
+      } )
+    assert_raise( Copland::Configuration::ParserError ) do
+      @parser.process( @point, y )
+    end
+  end
+
+  def test_recursive_parse
+    y = YAML::load( %Q{
+        name: Recursive
+        definition:
+          options:
+            type: array
+            required: true
+            definition:
+              auto.start:
+                type: string
+              auto.wait:
+                type: string
+              user.name:
+                type: string
+                required: true
+      } )
+
+    result = nil
+    assert_nothing_raised do
+      result = @parser.process( @point, y )
+    end
+
+    assert_equal "Recursive", result.name
+    assert result.definition['options'].required
+    assert "string", result.definition['options'].definition['auto.wait'].type
+  end
+
+end