Mercurial > pub > Impl
diff _test/Test/Class/Template.pm @ 194:4d0e1962161c
Replaced tabs with spaces
IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
| author | cin |
|---|---|
| date | Tue, 10 Apr 2012 20:08:29 +0400 |
| parents | d1676be8afcc |
| children | 56364d0c4b4f |
line wrap: on
line diff
--- a/_test/Test/Class/Template.pm Tue Apr 10 08:13:22 2012 +0400 +++ b/_test/Test/Class/Template.pm Tue Apr 10 20:08:29 2012 +0400 @@ -10,36 +10,36 @@ 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; - } + 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'); + 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'; - + 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;