view _test/Test/Class/Template.pm @ 217:bfce101e0a5a

Слияние
author cin
date Mon, 20 Aug 2012 10:27:20 +0400
parents 4d0e1962161c
children 56364d0c4b4f
line wrap: on
line source

package Test::Class::Template;
use strict;
use warnings;

use parent qw(IMPL::Test::Unit);

__PACKAGE__->PassThroughArgs;

use IMPL::Test qw(test failed);
use IMPL::lang;

{
    package My::Collection;
    use parent qw(IMPL::Object);
    use IMPL::Class::Property;
    
    use IMPL::template (
        parameters => [qw(TValue)],
        declare => sub {
            my ($class) = @_;
            
            public $class->CreateProperty( items => prop_get | owner_set | prop_list, { type => $class->TValue } );
        }
    );
    
    BEGIN {
        public property name => prop_all;
    }
};

test IsDerivedFromTemplate => sub {
    failed "My::Collection should be a subclass of IMPL::Class:Template" unless is('My::Collection','IMPL::Class::Template'); 
};

test Specialize => sub {
    my $colList = spec My::Collection('IMPL::Object::List');
    my $colObj = spec My::Collection('IMPL::Object');
    my $colList2 = spec My::Collection('IMPL::Object::List');
    
    failed "Wrong class name", "expected: My::ColectionLis", "got: $colList" unless $colList eq 'My::CollectionList';
    failed "Wrong template parameter type", "expected: IMPL::Object::List", "got" . $colList->TValue unless $colList->TValue eq 'IMPL::Object::List';
    
};

1;