copland 0.8.0

data/test/logger.yml

@@ -0,0 +1,6 @@
+filename: ./sample.log
+default-format: "%Y-%m-%d %H:%M:%S"
+default-level: INFO
+levels:
+  level.*: WARN
+  level.test.*: DEBUG

data/test/mock.rb

@@ -0,0 +1,201 @@
+#--
+# =============================================================================
+# 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.
+# =============================================================================
+#++
+
+require 'copland/class-factory'
+
+class Factory
+  def initialize( pool )
+    @pool = pool
+    @factory = Copland::ClassFactory.instance
+  end
+
+  def get( *args )
+    @factory.get( @pool, *args )
+  end
+end
+
+class MockPackage
+  attr_reader :registry
+
+  def initialize( registry )
+    @registry = registry
+  end
+
+  def add_service_point( point )
+    ( @svc_points ||= Hash.new )[ point.name ] = point
+  end
+  
+  def add_schema( schema )
+  end
+
+  def name
+    "test"
+  end
+
+  def service( name )
+    @svc_points[ name ].instance
+  end
+
+  def service_point( name )
+    @svc_points[ name ]
+  end
+end
+
+class MockService
+  def initialize( message )
+    @message = message
+    @message.gsub!( /^.*$/, "initialized!" )  
+  end
+
+  def noop
+    true
+  end
+end
+
+class MockServicePoint
+  attr_reader :pending_interceptors
+  attr_reader :event_producers
+  attr_reader :listeners
+  attr_reader :schema
+  attr_reader :owner
+
+  attr_accessor :instantiator
+  attr_accessor :parameter_processor
+
+  def initialize( message="" )
+    @message = message
+    @pending_interceptors = []
+    @event_producers = []
+    @listeners = []
+  end
+
+  def instance
+    instantiate
+  end
+
+  def instantiate
+    MockService.new( @message )
+  end
+
+  def name
+    "point"
+  end
+
+  def full_name
+    "mock.service." + name
+  end
+
+  def add_event_producer( a )
+    @event_producers.push a
+  end
+
+  def add_pending_interceptor( a )
+    @pending_interceptors.push a
+  end
+end
+
+class MockConfigurationPoint
+  def name
+    "point"
+  end
+
+  def full_name
+    "mock.service." + name
+  end
+
+  def contribute( value )
+  end
+
+  def fixate!
+  end
+
+  def fixated?
+    false
+  end
+end
+
+class MockRegistry
+  attr_reader :packages
+
+  def initialize
+    @packages = Hash.new
+  end
+
+  def add_package( pkg )
+    @packages[ pkg.name ] = pkg
+  end
+
+  def package( name )
+    @packages[ name ]
+  end
+
+  def service( name )
+    pkg, name = name.match( /(.*)\.([^\.]*)/ )[1,2]
+    @packages[ pkg ].service( name )
+  end
+
+  def fixated?
+    false
+  end
+
+  def fixate!
+  end
+end
+
+class MockLogIO
+  attr_reader :message
+
+  def initialize
+    clear
+  end
+
+  def write( message )
+    @message << message << "\n"
+  end
+
+  def clear
+    @message = ""
+  end
+
+  def close
+    @message = "<closed>"
+  end
+end
+
+class MockLoader
+  attr_reader :used
+
+  def use_library( library )
+    ( @used ||= [] ).push library
+  end
+end

data/test/schema/bad-package.yml

@@ -0,0 +1,65 @@
+---
+id: test
+
+configuration-points:
+
+  Test1:
+    type: map
+    schema:
+      name: Alpha
+      definition:
+        a:
+          name: Bravo
+          definition:
+            b:
+              type: string
+            c:
+              type: string
+        d:
+          type: string
+
+  Test2:
+    type: map
+    schema: Alpha
+  
+  Test3:
+    type: map
+    schema:
+      definition:
+        e: Alpha
+        f: Bravo
+        g:
+          definition:
+            h: Bravo
+            i:
+              type: string
+          
+contributions:
+
+  Test1:
+    a:
+      b: but soft!
+      c: what light through yonder window breaks?
+    d: it is the east,
+
+  Test2:
+    a:
+      b: and juliet is the sun.
+      c: arise,
+    d: fair sun,
+
+  Test3:
+    e:
+      a:
+        b: and kill the envious moon,
+        c: which is pale and sick with grief that thou her maid art far more fair than she.
+      d: be not her maid,
+    f:
+      b: for she is envious.
+      c: her vestal livery is but sick and green,
+    g:
+      h:
+        b: and none but fools do wear it.
+        c: cast it off!
+        bogus: die die die!
+      i: she is my lady, she is my love...

data/test/schema/package.yml

@@ -0,0 +1,102 @@
+---
+id: test
+
+configuration-points:
+
+  Test1:
+    type: map
+    schema:
+      name: Alpha
+      definition:
+        a:
+          name: Bravo
+          definition:
+            b:
+              type: string
+            c:
+              type: string
+        d:
+          type: string
+
+  Test2:
+    type: map
+    schema: Alpha
+  
+  Test3:
+    type: map
+    schema:
+      definition:
+        e: Alpha
+        f: Bravo
+        g:
+          definition:
+            h: Bravo
+            i:
+              type: string
+
+  Test4:
+    type: map
+    schema:
+      extend: Bravo
+      definition:
+        d:
+          type: string
+
+service-points:
+
+  Object:
+    implementor: schema/services/SchemaObject
+    schema:
+      definition:
+        e: Alpha
+        f: Bravo
+        g:
+          definition:
+            h: Bravo
+            i:
+              type: string
+          
+  Object2:
+    model: prototype
+    implementor:
+      factory: Object
+      e:
+        a:
+          c: test
+      g:
+        h:
+          b: friend
+
+contributions:
+
+  Test1:
+    a:
+      b: but soft!
+      c: what light through yonder window breaks?
+    d: it is the east,
+
+  Test2:
+    a:
+      b: and juliet is the sun.
+      c: arise,
+    d: fair sun,
+
+  Test3:
+    e:
+      a:
+        b: and kill the envious moon,
+        c: which is pale and sick with grief that thou her maid art far more fair than she.
+      d: be not her maid,
+    f:
+      b: for she is envious.
+      c: her vestal livery is but sick and green,
+    g:
+      h:
+        b: and none but fools do wear it.
+        c: cast it off!
+      i: she is my lady, she is my love.
+
+  Test4:
+    b: oh, that she knew she were!
+    c: Two of the fairest stars in all the heavens,
+    d: having some business, ...

data/test/schema/services.rb

@@ -0,0 +1,5 @@
+class SchemaObject
+  def create_instance( point, parms )
+    return { :point => point, :parms => parms }
+  end
+end

data/test/services/package.yml

@@ -0,0 +1,79 @@
+---
+id: service-test
+description: >-
+  A simple package for unit-testing various features of services.
+
+configuration-points:
+
+  Messages:
+    type: list
+
+service-points:
+
+  Simple:
+    implementor: services/simple/Simple
+    model: singleton
+
+  Producer:
+    implementor: services/simple/Producer
+    model: singleton
+
+  Listener:
+    implementor: services/simple/Listener
+    model: singleton
+    listen-to:
+      - Producer
+      - copland.Registry
+  
+  InterceptorA:
+    implementor:
+      class: services/simple/SimpleInterceptorFactory
+      properties:
+        messages: !!configuration Messages
+        type: A
+
+  InterceptorB:
+    implementor:
+      class: services/simple/SimpleInterceptorFactory
+      properties:
+        messages: !!configuration Messages
+        type: B
+
+  InterceptorC:
+    implementor:
+      class: services/simple/SimpleInterceptorFactory
+      properties:
+        messages: !!configuration Messages
+        type: C
+          
+
+  Intercepted1:
+    implementor: services/simple/Simple
+    interceptors:
+    - service: service-test.InterceptorA
+
+  InterceptorOrderingError1:
+    implementor: services/simple/Simple
+    interceptors:
+    - service: service-test.InterceptorA
+      before: service-test.InterceptorB
+    - service: service-test.InterceptorB
+      before: service-test.InterceptorA
+
+  InterceptorOrderingError2:
+    implementor: services/simple/Simple
+    interceptors:
+    - service: service-test.InterceptorA
+      after: service-test.InterceptorB
+    - service: service-test.InterceptorB
+      after: service-test.InterceptorA
+
+  InterceptorOrdering1:
+    implementor: services/simple/Simple
+    interceptors:
+    - service: service-test.InterceptorA
+      after: service-test.InterceptorB
+    - service: service-test.InterceptorB
+      after: service-test.InterceptorC
+    - service: service-test.InterceptorC
+      before: service-test.InterceptorA