Mercurial > pub > Impl

comparison _test/Test/Web/View.pm @ 369:7c784144d2f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implemented object metadata class, cleanup
author cin
date Mon, 09 Dec 2013 17:35:34 +0400
parents 010ceafd0c5a
children cbf4febf0930
comparison
equal deleted inserted replaced
368:010ceafd0c5a 369:7c784144d2f1
11 use IMPL::Test qw(assert assertarray test GetCallerSourceLine); 11 use IMPL::Test qw(assert assertarray test GetCallerSourceLine);
12 12
13 use IMPL::declare { 13 use IMPL::declare {
14 require => { 14 require => {
15 FormMeta => 'IMPL::Web::View::Metadata::FormMeta', 15 FormMeta => 'IMPL::Web::View::Metadata::FormMeta',
16 ObjectMeta => 'IMPL::Web::View::Metadata::ObjectMeta',
16 Schema => 'IMPL::DOM::Schema', 17 Schema => 'IMPL::DOM::Schema',
17 Builder => 'IMPL::DOM::Navigator::Builder', 18 Builder => 'IMPL::DOM::Navigator::Builder',
18 Document => 'IMPL::DOM::Document', 19 Document => 'IMPL::DOM::Document',
19 XMLReader => 'IMPL::DOM::XMLReader', 20 XMLReader => 'IMPL::DOM::XMLReader',
20 MProfiler => '-IMPL::Profiler::Memory' 21 MProfiler => '-IMPL::Profiler::Memory'
102 assert(@{$item->GetProperty('street')->GetOwnErrors()} == 1); 103 assert(@{$item->GetProperty('street')->GetOwnErrors()} == 1);
103 104
104 #join ',', map $_->GetProperty('line')->name, @{$prop->GetItems}; 105 #join ',', map $_->GetProperty('line')->name, @{$prop->GetItems};
105 }); 106 });
106 }; 107 };
108 test TestObjectMetadata => sub {
109 my ($this) = @_;
110
111
112 };
107 113
108 114
109 1; 115 1;