Mercurial > pub > Impl
annotate _test/Test/Web/TDocument.pm @ 60:b0c068da93ac
Lazy activation for the configuration objects (final concept)
small fixes
| author | wizard |
|---|---|
| date | Tue, 09 Mar 2010 19:47:39 +0300 |
| parents | 16ada169ca75 |
| children |
| rev | line source |
|---|---|
| 49 | 1 package Test::Web::TDocument; |
| 2 use strict; | |
| 3 use warnings; | |
| 4 use encoding 'cp1251'; | |
| 5 | |
| 6 use base qw(IMPL::Test::Unit); | |
| 7 use IMPL::Test qw(test failed); | |
| 8 use IMPL::Web::TDocument; | |
| 9 __PACKAGE__->PassThroughArgs; | |
| 10 | |
| 11 test Creation => sub { | |
| 12 my $document = new IMPL::Web::TDocument(); | |
| 13 | |
| 14 failed "Failed to create document" unless $document; | |
|
60
b0c068da93ac
Lazy activation for the configuration objects (final concept)
wizard
parents:
49
diff
changeset
|
15 |
|
b0c068da93ac
Lazy activation for the configuration objects (final concept)
wizard
parents:
49
diff
changeset
|
16 $document->Dispose(); |
| 49 | 17 }; |
| 18 | |
| 19 test SimpleTemplate => sub { | |
| 20 my $document = new IMPL::Web::TDocument(); | |
| 21 | |
| 22 failed "Failed to create document" unless $document; | |
| 23 | |
| 24 $document->loadFile('Resources/simple.tt','cp1251'); | |
| 25 | |
| 26 my $out = $document->Render; | |
| 27 | |
| 28 open my $hFile,'<:encoding(cp1251)',"Resources/simple.txt" or die "Failed to open etalon file: $!"; | |
| 29 local $/; | |
| 30 my $eta = <$hFile>; | |
| 31 | |
| 32 failed "Rendered data doesn't match the etalon data","Expected:\n$eta","Actual:\n$out" if $out ne $eta; | |
|
60
b0c068da93ac
Lazy activation for the configuration objects (final concept)
wizard
parents:
49
diff
changeset
|
33 |
|
b0c068da93ac
Lazy activation for the configuration objects (final concept)
wizard
parents:
49
diff
changeset
|
34 $document->Dispose(); |
| 49 | 35 }; |
| 36 | |
| 37 | |
| 38 1; |