Mercurial > pub > Impl
comparison _test/Test/Web/View.pm @ 301:aeeb57a12046
*IMPL::Web::View: templates inheritance support
author | cin |
---|---|
date | Mon, 25 Mar 2013 02:04:18 +0400 |
parents | 85572f512abc |
children | 608e74bc309f |
comparison
equal
deleted
inserted
replaced
300:bf3af33b9003 | 301:aeeb57a12046 |
---|---|
98 my $doc = $loader->document('simple'); | 98 my $doc = $loader->document('simple'); |
99 | 99 |
100 assert(defined $doc); | 100 assert(defined $doc); |
101 | 101 |
102 $doc->title('test document'); | 102 $doc->title('test document'); |
103 $doc->name('document'); | |
103 | 104 |
104 assert($doc->name eq 'document'); | 105 assert($doc->name eq 'document'); |
105 assert($doc->title eq 'test document'); | 106 assert($doc->title eq 'test document'); |
106 | 107 |
107 assert(not $doc->can('notexists')); # autoloaded property should be ignored | 108 assert(not $doc->can('notexists')); # autoloaded property should be ignored |
139 $text_raw =~ s/\s+//g; | 140 $text_raw =~ s/\s+//g; |
140 $expected_raw =~ s/\s+//g; | 141 $expected_raw =~ s/\s+//g; |
141 assert($text_raw eq $expected_raw, '$doc->Render(): Bad output', "Got: $text", "Expected: $expected"); | 142 assert($text_raw eq $expected_raw, '$doc->Render(): Bad output', "Got: $text", "Expected: $expected"); |
142 }; | 143 }; |
143 | 144 |
145 test TestControlInheritance => sub { | |
146 my ($this) = @_; | |
147 | |
148 my $loader = $this->CreateLoader(); | |
149 my $doc = $loader->document('derived'); | |
150 | |
151 my $text = $doc->Render(); | |
152 my $expected = read_file($this->GetResourceFile('Resources', 'TTView.Output', 'derived.txt'), binmode => ':utf8' ); | |
153 | |
154 my ($text_raw,$expected_raw) = ($text, $expected); | |
155 $text_raw =~ s/\s+//g; | |
156 $expected_raw =~ s/\s+//g; | |
157 | |
158 assert($text_raw eq $expected_raw, '$doc->Render(): Bad output', "Got: $text", "Expected: $expected"); | |
159 }; | |
160 | |
144 test TestDocumentsIsolation => sub { | 161 test TestDocumentsIsolation => sub { |
145 my $this = shift; | 162 my $this = shift; |
146 | 163 |
147 my $loader = $this->CreateLoader(); | 164 my $loader = $this->CreateLoader(); |
148 | 165 |