#--
# =============================================================================
# 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 'copland/service-point'
require 'mock'

class MockServiceFactory
  def create_instance( point, parms )
    return { :point => point,
             :parms => parms }
  end
end

class TC_ComplexInstantiator < Test::Unit::TestCase

  ValueElement = Struct.new( :type_id, :value )

  def valuize( hash )
    new_hash = Hash.new
    hash.each do |k,v|
      new_hash[k] = ValueElement.new( "string", v )
    end
    return new_hash
  end

  def setup
    @factory = Factory.new( Copland::Instantiator::POOL_NAME )
    @registry = MockRegistry.new
    @package = MockPackage.new( @registry )

    svc = MockServiceFactory.new
    @point = Copland::ServicePoint.new( @package, 'factory' )
    @point.use_service_model "singleton"
    @point.instantiator = @factory.get( "identity", @point, svc )
    @package.add_service_point @point
  end

  def test_get
    assert_nothing_raised do
      @factory.get( "complex", @point, valuize( "factory" => "factory" ) )
    end
  end

  def test_validate_good
    inst = @factory.get( "complex", @point, valuize( "factory" => "factory",
                                              "data" => "hello" ) )
    assert_nothing_raised do
      inst.validate!
    end
  end

  def test_validate_bad
    inst = @factory.get( "complex", @point, valuize( "factory" => "data" ) )
    assert_raise( Copland::ServicePointNotFound ) do
      inst.validate!
    end
  end

  def test_instantiate
    inst = @factory.get( "complex", @point, valuize( "factory" => "factory",
                                              "data" => "hello" ) )
    inst.validate!
    svc = inst.instantiate

    assert_instance_of Hash, svc
    assert_equal 2, svc.length
    assert_equal @point, svc[ :point ]
    assert_equal( valuize( "data" => "hello" ), svc[ :parms ] )
  end

end