#--
# =============================================================================
# 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'

class TC_ClassFactory < Test::Unit::TestCase

  def setup
    @factory = Copland::ClassFactory.instance
  end

  def test_pool
    assert_raise( Copland::NoSuchPoolException ) do
      @factory.get_pool( "test_pool" )
    end

    @factory.create_pool( "test_pool" )
    pool = @factory.get_pool( "test_pool" )

    assert_instance_of Hash, pool
  end

  def test_register
    @factory.create_pool( "test_register" )

    @factory.register( "test_register", "object", Object )
    @factory.register( "test_register", "array", Array )
    @factory.register( "test_register", "hash", Hash )

    a = @factory.get( "test_register", "object" )
    b = @factory.get( "test_register", "array" )
    c = @factory.get( "test_register", "hash" )

    assert_instance_of Object, a
    assert_instance_of Array, b
    assert_instance_of Hash, c

    assert_raise( Copland::NoSuchRegisteredClassException ) do
      @factory.get( "test_register", "string" )
    end
  end

  def test_constructors
    @factory.create_pool( "test_constructors" ) do |k,*args|
      a = k.new
      a.concat( args )
    end

    @factory.register( "test_constructors", "one", Array )
    @factory.register( "test_constructors", "two", Array )

    a = @factory.get( "test_constructors", "one", 1, 2, 3 )
    b = @factory.get( "test_constructors", "two", "hello world" )

    assert_equal [ 1, 2, 3 ], a
    assert_equal [ "hello world" ], b
  end

end