copland 0.8.0

data/test/tc_service.rb

@@ -0,0 +1,70 @@
+#--
+# =============================================================================
+# 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/registry'
+
+class TC_Service < Test::Unit::TestCase
+
+  def setup
+    @registry = Copland::Registry.build(
+      File.join( File.dirname( __FILE__ ), "services" )
+    )
+  end
+
+  def test_listener
+    message = ""
+
+    listener = @registry.service( "service-test.Listener" )
+    producer = @registry.service( "service-test.Producer" )
+
+    listener.responder_callback do |msg, svc|
+      message = "[#{msg}] callback from #{svc.class}"
+    end
+
+    assert_equal "", message
+    producer.fire_event :custom_event
+    assert_equal "[custom event] callback from Producer", message
+
+    @registry.shutdown
+    assert_equal "[registry shutdown] callback from Copland::Registry", message
+  end
+
+  def test_block_initializer
+    svc = @registry.service( "service-test.Simple" ) { @attr1 = "test" }
+    assert_equal "test", svc.attr1
+  end
+
+end

data/test/tc_simple-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_SimpleInstantiator < Test::Unit::TestCase
+
+  def setup
+    @factory = Factory.new( Copland::Instantiator::POOL_NAME )
+  end
+
+  def test_get
+    assert_nothing_raised do
+      @factory.get( "simple", nil, "services/simple/Simple" )
+    end
+  end
+
+  def test_instantiate
+    inst = @factory.get( "simple", nil, "services/simple/Simple" )
+    svc = inst.instantiate
+    assert_respond_to svc, :echo
+    assert_equal "a", svc.echo( "a" )
+  end
+
+end

data/test/tests.rb

@@ -0,0 +1,93 @@
+#--
+# =============================================================================
+# 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 'test/unit/testsuite'
+
+Dir.chdir( File.dirname( __FILE__ ) )
+Dir["**/tc_*.rb"].each { |file| load file }
+
+class TS_AllTests
+  def self.suite
+    suite = Test::Unit::TestSuite.new( "All Copland Unit Tests" )
+
+    ObjectSpace.each_object( Class ) do |unit_test|
+      next unless unit_test.name =~ /^T[CS]_/ &&
+        unit_test.superclass == Test::Unit::TestCase
+      suite << unit_test.suite
+    end
+
+    return suite
+  end
+end
+
+require 'test/unit/ui/console/testrunner'
+test_runner = Test::Unit::UI::Console::TestRunner
+
+case ARGV[0]
+  when "GTK"
+    require 'test/unit/ui/gtk/testrunner'
+    test_runner = Test::Unit::UI::GTK::TestRunner
+  when "GTK2"
+    require 'test/unit/ui/gtk2/testrunner'
+    test_runner = Test::Unit::UI::GTK2::TestRunner
+  when "Fox"
+    require 'test/unit/ui/fox/testrunner'
+    test_runner = Test::Unit::UI::Fox::TestRunner
+  when "Tk"
+    require 'test/unit/ui/tk/testrunner'
+    test_runner = Test::Unit::Tk::Fox::TestRunner
+end
+
+use_reporter = ARGV.find { |arg| arg.downcase == "report" }
+
+if use_reporter
+  begin
+    require 'test/unit/util/reporter'
+  rescue LoadError => l
+    use_reporter = false
+  end
+end
+
+if use_reporter
+  require 'fileutils'
+  path = File.join( File.dirname( __FILE__ ), "..", "report" )
+  FileUtils.mkdir_p path
+  Test::Unit::Util::Reporter.run( test_runner, TS_AllTests.suite, path, :html )
+  puts "An HTML report of these unit tests has been written to #{path}"
+else
+  test_runner.run( TS_AllTests )
+end
+
+# delete all generated log files
+
+Dir["**/*.log"].each { |file| File.delete( file ) }

data/tutorial/01/main.rb

@@ -0,0 +1,7 @@
+require 'copland'
+
+registry = Copland::Registry.build
+
+adder = registry.service( "tutorial.Adder" )
+
+puts adder.add( "5", 7 )

data/tutorial/01/package.yml

@@ -0,0 +1,8 @@
+---
+id: tutorial
+description: This is the package for the Copland tutorials.
+
+service-points:
+
+  Adder:
+    implementor: tutorial/Adder

data/tutorial/01/tutorial.rb

@@ -0,0 +1,7 @@
+class Adder
+
+  def add( a, b )
+    a.to_f + b.to_f
+  end
+
+end

data/tutorial/02/main.rb

@@ -0,0 +1,10 @@
+require 'copland'
+
+registry = Copland::Registry.build
+
+calc = registry.service( "tutorial.Calculator" )
+
+puts calc.add( "5", 7 )
+puts calc.subtract( "5", 7 )
+puts calc.multiply( "5", 7 )
+puts calc.divide( "5", 7 )

data/tutorial/02/package.yml

@@ -0,0 +1,27 @@
+---
+id: tutorial
+description: This is the package for the Copland tutorials.
+
+service-points:
+
+  Adder:
+    implementor: tutorial/Adder
+
+  Subtractor:
+    implementor: tutorial/Subtractor
+
+  Multiplier:
+    implementor: tutorial/Multiplier
+
+  Divider:
+    implementor: tutorial/Divider
+
+  Calculator:
+    implementor:
+      factory: copland.BuilderFactory
+      class: tutorial/Calculator
+      properties:
+        adder: !!service Adder
+        subtractor: !!service Subtractor
+        divider: !!service Divider
+        multiplier: !!service Multiplier

data/tutorial/02/tutorial.rb

@@ -0,0 +1,46 @@
+class Adder
+  def add( a, b )
+    a.to_f + b.to_f
+  end
+end
+
+class Subtractor
+  def subtract( a, b )
+    a.to_f - b.to_f
+  end
+end
+
+class Multiplier
+  def multiply( a, b )
+    a.to_f * b.to_f
+  end
+end
+
+class Divider
+  def divide( a, b )
+    a.to_f / b.to_f
+  end
+end
+
+class Calculator
+  attr_writer :adder
+  attr_writer :subtractor
+  attr_writer :multiplier
+  attr_writer :divider
+
+  def add( a, b )
+    @adder.add( a, b )
+  end
+
+  def subtract( a, b )
+    @subtractor.subtract( a, b )
+  end
+
+  def multiply( a, b )
+    @multiplier.multiply( a, b )
+  end
+
+  def divide( a, b )
+    @divider.divide( a, b )
+  end
+end

data/tutorial/03/main.rb

@@ -0,0 +1,24 @@
+require 'copland'
+
+registry = Copland::Registry.build
+
+calc1 = registry.service( "tutorial.Calculator" )
+calc2 = registry.service( "tutorial.Calculator" )
+
+puts "Multiples:"
+10.times do
+  puts "#{calc1.memory}\t#{calc2.memory}"
+  calc1.memory = calc1.add( 5 )
+  calc2.memory = calc2.add( 2 )
+end
+
+calc1.memory = 1.0
+calc2.memory = 1.0
+
+puts
+puts "Powers:"
+10.times do
+  puts "#{calc1.memory}\t#{calc2.memory}"
+  calc1.memory = calc1.multiply( 5 )
+  calc2.memory = calc2.multiply( 2 )
+end

data/tutorial/03/package.yml

@@ -0,0 +1,29 @@
+---
+id: tutorial
+description: This is the package for the Copland tutorials.
+
+service-points:
+
+  Adder:
+    implementor: tutorial/Adder
+
+  Subtractor:
+    implementor: tutorial/Subtractor
+
+  Multiplier:
+    implementor: tutorial/Multiplier
+
+  Divider:
+    implementor: tutorial/Divider
+
+  Calculator:
+    model: prototype
+    implementor:
+      factory: copland.BuilderFactory
+      class: tutorial/Calculator
+      properties:
+        adder: !!service Adder
+        subtractor: !!service Subtractor
+        divider: !!service Divider
+        multiplier: !!service Multiplier
+        memory: 0

data/tutorial/03/tutorial.rb

@@ -0,0 +1,48 @@
+class Adder
+  def add( a, b )
+    a.to_f + b.to_f
+  end
+end
+
+class Subtractor
+  def subtract( a, b )
+    a.to_f - b.to_f
+  end
+end
+
+class Multiplier
+  def multiply( a, b )
+    a.to_f * b.to_f
+  end
+end
+
+class Divider
+  def divide( a, b )
+    a.to_f / b.to_f
+  end
+end
+
+class Calculator
+  attr_writer :adder
+  attr_writer :subtractor
+  attr_writer :multiplier
+  attr_writer :divider
+
+  attr_accessor :memory
+
+  def add( a, b=memory )
+    @adder.add( a, b )
+  end
+
+  def subtract( a, b=memory )
+    @subtractor.subtract( a, b )
+  end
+
+  def multiply( a, b=memory )
+    @multiplier.multiply( a, b )
+  end
+
+  def divide( a, b=memory )
+    @divider.divide( a, b )
+  end
+end