annotate _test/Test/Web/View.pm @ 285:546957c50a36

*IMPL::Web::Handler::TTView Reworked template selection mechanism *IMPL::Web::Application: refactoring -Removed obsolete IMPL::Text modules
author cin
date Mon, 18 Feb 2013 02:55:59 +0400
parents c6d0f889ef87
children d357b5d85d25
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
183
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
1 package Test::Web::View;
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
2 use IMPL::Profiler::Memory;
183
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
3 use strict;
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
4 use warnings;
185
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
5 use utf8;
183
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
6
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
7 use parent qw(IMPL::Test::Unit);
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
8 __PACKAGE__->PassThroughArgs;
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
9
185
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
10 use File::Slurp;
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
11 use Scalar::Util qw(weaken);
185
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
12
280
c6d0f889ef87 +IMPL::declare now supports meta attributes
cin
parents: 263
diff changeset
13 use IMPL::lang;
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
14 use IMPL::Test qw(assert test GetCallerSourceLine);
183
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
15 use IMPL::Web::View::TTLoader();
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
16
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
17 use constant {
280
c6d0f889ef87 +IMPL::declare now supports meta attributes
cin
parents: 263
diff changeset
18 TTLoader => 'IMPL::Web::View::TTLoader',
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
19 MProfiler => 'IMPL::Profiler::Memory'
183
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
20 };
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
21
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
22 sub AssertMemoryLeak {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
23 my $code = shift;
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
24 my $dump = shift;
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
25
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
26 my $data = MProfiler->Monitor($code);
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
27
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
28 if ($data->isLeak and $dump) {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
29 write_file("dump.out", { binmode => ':utf8' }, $data->Dump() );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
30 }
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
31
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
32 assert( not($data->isLeak), "Memory leak detected", GetCallerSourceLine() , @{$data->{objects}} );
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
33 }
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
34
185
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
35 sub templatesDir {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
36 $_[0]->GetResourceDir('Resources','TTView');
185
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
37 }
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
38
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
39 sub CreateLoader {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
40 my ($this) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
41
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
42 my $loader = TTLoader->new(
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
43 {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
44 INCLUDE_PATH => [
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
45 $this->templatesDir
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
46 ],
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
47 INTERPOLATE => 1,
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
48 POST_CHOMP => 1,
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
49 ENCODING => 'utf-8'
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
50 },
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
51 ext => '.tt',
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
52 initializer => 'global.tt',
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
53 globals => {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
54 site => {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
55 name => 'Test Site'
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
56 },
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
57 date => {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
58 now => sub { localtime(time); }
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
59 },
195
7a920771fd8e IMPL::Web::View changed document layout handling, docs, examples
cin
parents: 194
diff changeset
60 dynamic => sub { 'this is a dynamic value' },
7a920771fd8e IMPL::Web::View changed document layout handling, docs, examples
cin
parents: 194
diff changeset
61 view => {
7a920771fd8e IMPL::Web::View changed document layout handling, docs, examples
cin
parents: 194
diff changeset
62 }
7a920771fd8e IMPL::Web::View changed document layout handling, docs, examples
cin
parents: 194
diff changeset
63 },
7a920771fd8e IMPL::Web::View changed document layout handling, docs, examples
cin
parents: 194
diff changeset
64 layoutBase => 'Layout'
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
65 );
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
66 }
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
67
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
68 test TTLoaderTests => sub {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
69 my ($this) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
70
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
71 my $loader = $this->CreateLoader();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
72
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
73 # test the loader to be able to find a desired resource
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
74 assert( defined($loader->template('simple') ) );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
75
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
76 # loader should be initialized on demand
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
77 assert( not $loader->isInitialized );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
78
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
79 # loader should be able to load a document
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
80 my $doc = $loader->document('simple');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
81 assert(defined $doc);
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
82
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
83 assert( $loader->isInitialized );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
84 assert( $loader->context->stash->get('user') eq 'test_user');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
85
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
86 # document should inherit loader's context
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
87 assert( $doc->context->stash->get('user') eq 'test_user');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
88
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
89 # document should not have 'this' template variable
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
90 assert( not $doc->templateVars('this') );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
91
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
92 assert( $doc->context != $loader->context); # document should have an own context
183
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
93 };
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
94
185
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
95 test TTDocumentTests => sub {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
96 my ($this) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
97 my $loader = $this->CreateLoader();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
98
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
99 my $doc = $loader->document('simple');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
100
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
101 assert(defined $doc);
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
102 $doc->title('test document');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
103
238
b8c724f6de36 DOM model refactoring
sergey
parents: 195
diff changeset
104 assert($doc->name eq 'document');
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
105 assert($doc->title eq 'test document');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
106
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
107 assert(not $doc->can('notexists')); # autoloaded property should be ignored
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
108 assert(not defined $doc->notexists); # nonexisting property
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
109 assert($doc->template->version == 10); # static metadata
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
110 assert($doc->templateVars('notexists') eq ''); #nonexisting template variable
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
111 assert($doc->templateVars('user') eq 'test_user'); # global data
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
112 assert($doc->templateVars('templateVar') eq ''); # defined in CTOR block, should be local
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
113 assert($doc->templateVars('dynamic') eq 'this is a dynamic value');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
114
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
115 my $text = $doc->Render();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
116 my $expected = read_file($this->GetResourceFile('Resources','TTView.Output','simple.txt'), binmode => ':utf8');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
117
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
118 assert($text eq $expected, "Bad Render() output","Got: $text", "Expected: $expected");
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
119
185
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
120 };
ae8072f2f2a3 IMPL::Web::View::TTDocument tests, fixes
cin
parents: 184
diff changeset
121
186
6c0fee769b0c IMPL::Web::View::TTControl tests, fixes
cin
parents: 185
diff changeset
122 test TTControlTests => sub {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
123 my ($this) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
124
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
125 my $loader = $this->CreateLoader();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
126
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
127 my $doc = $loader->document('simple');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
128
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
129 assert(defined $doc);
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
130
238
b8c724f6de36 DOM model refactoring
sergey
parents: 195
diff changeset
131 my $factory = $doc->RequireControl('My/Org/Panel');
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
132
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
133 assert(defined $factory);
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
134
263
0f59b2de72af *fixed IMPL::DOM::Schema circular module references
sergey
parents: 238
diff changeset
135 # control factory shares document scope to perform an initialization on demand
0f59b2de72af *fixed IMPL::DOM::Schema circular module references
sergey
parents: 238
diff changeset
136 assert($factory->context->stash == $doc->context->stash);
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
137
238
b8c724f6de36 DOM model refactoring
sergey
parents: 195
diff changeset
138 assert($factory == $doc->RequireControl('My/Org/Panel'), "Control should be loaded only once");
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
139
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
140 my $ctl = $factory->new('information', { visualClass => 'simple', data => ['one','two','hello world'] } );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
141
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
142 assert(defined $ctl);
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
143
238
b8c724f6de36 DOM model refactoring
sergey
parents: 195
diff changeset
144 assert($ctl->name eq 'information', "Created control should have a name", "Got: ".$ctl->name, "Expected: information");
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
145
238
b8c724f6de36 DOM model refactoring
sergey
parents: 195
diff changeset
146 assert($ctl->GetAttribute('visualClass') eq 'simple');
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
147
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
148 assert($factory->instances == 1);
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
149
238
b8c724f6de36 DOM model refactoring
sergey
parents: 195
diff changeset
150 $doc->childNodes([$ctl]);
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
151
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
152 assert($doc->templateVars('dojo.require'));
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
153 assert(ref $doc->templateVars('dojo.require') eq 'ARRAY');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
154 assert($doc->templateVars('dojo.require')->[0] eq 'dijit.form.Input' );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
155
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
156 my $text = $ctl->Render();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
157
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
158 my $expected = read_file($this->GetResourceFile('Resources', 'TTView.Output', 'Panel.txt'), binmode => ':utf8');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
159 assert($text eq $expected, '$ctl->Render(): Bad output', "Got: $text", "Expected: $expected");
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
160
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
161
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
162
191
78a18a2b6266 IMPL::Web::View improvements (unstable)
cin
parents: 190
diff changeset
163 };
78a18a2b6266 IMPL::Web::View improvements (unstable)
cin
parents: 190
diff changeset
164
78a18a2b6266 IMPL::Web::View improvements (unstable)
cin
parents: 190
diff changeset
165 test TestDocumentLayout => sub {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
166 my ($this) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
167
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
168 my $loader = $this->CreateLoader();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
169
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
170 my $doc = $loader->document(
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
171 'complex',
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
172 {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
173 data => [qw(one two three)],
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
174 site => {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
175 name => 'Test Site'
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
176 }
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
177 }
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
178 );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
179
195
7a920771fd8e IMPL::Web::View changed document layout handling, docs, examples
cin
parents: 194
diff changeset
180 assert($doc->layout eq 'default');
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
181
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
182 assert($doc->templateVars('dojo.require')->[0]);
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
183
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
184 my $text = $doc->Render();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
185 my $expected = read_file($this->GetResourceFile('Resources', 'TTView.Output', 'complex.default.txt'), binmode => ':utf8' );
195
7a920771fd8e IMPL::Web::View changed document layout handling, docs, examples
cin
parents: 194
diff changeset
186 #assert($text eq $expected, '$doc->Render(): Bad output', "Got: $text", "Expected: $expected");
186
6c0fee769b0c IMPL::Web::View::TTControl tests, fixes
cin
parents: 185
diff changeset
187 };
6c0fee769b0c IMPL::Web::View::TTControl tests, fixes
cin
parents: 185
diff changeset
188
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
189 test TestMemoryLeaks => sub {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
190 my ($this) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
191
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
192 my $loader = $this->CreateLoader();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
193 $loader->document('simple'); # force loader initialization
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
195 AssertMemoryLeak(sub {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
196 my $doc = $loader->document('simple');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
197 });
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
198
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
199 AssertMemoryLeak(sub {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
200 my $doc = $loader->document('simple');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
201 $doc->Render( { self => $doc } );
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
202 });
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
203
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
204 $loader->template('Layout/default');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
205 $loader->template('My/Org/Panel');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
206 $loader->template('My/Org/TextPreview');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
207 AssertMemoryLeak(sub {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
208 my $doc = $loader->document('simple');
238
b8c724f6de36 DOM model refactoring
sergey
parents: 195
diff changeset
209 my $factory = $doc->RequireControl('My/Org/Panel');
b8c724f6de36 DOM model refactoring
sergey
parents: 195
diff changeset
210 my $ctl = $doc->childNodes($factory->new('information', { visualClass => 'complex' }) );
263
0f59b2de72af *fixed IMPL::DOM::Schema circular module references
sergey
parents: 238
diff changeset
211 },'dump');
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
212
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
213 $loader->template('complex');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
214 AssertMemoryLeak(sub {
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
215 my $doc = $loader->document('complex');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
216 $doc->Render();
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
217 },'dump');
4d0e1962161c Replaced tabs with spaces
cin
parents: 191
diff changeset
218
188
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
219 };
029c9610528c Memory leak tests in IMPL::Web::View
cin
parents: 186
diff changeset
220
183
2184fa28b49e IMPL::Web::View::TTLoader tests
cin
parents:
diff changeset
221 1;