Mercurial > pub > Impl
annotate _test/Test/Web/TT.pm @ 183:2184fa28b49e
IMPL::Web::View::TTLoader tests
| author | cin |
|---|---|
| date | Wed, 28 Mar 2012 17:28:51 +0400 |
| parents | 47dac58691ee |
| children | ae8072f2f2a3 |
| rev | line source |
|---|---|
| 77 | 1 package Test::Web::TT; |
| 49 | 2 use strict; |
| 3 use warnings; | |
| 181 | 4 use encoding 'utf8'; |
| 49 | 5 |
| 166 | 6 use parent qw(IMPL::Test::Unit); |
| 49 | 7 use IMPL::Test qw(test failed); |
| 77 | 8 use IMPL::Web::TT::Document; |
| 49 | 9 __PACKAGE__->PassThroughArgs; |
| 10 | |
| 11 test Creation => sub { | |
| 77 | 12 my $document = new IMPL::Web::TT::Document(); |
| 49 | 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 { | |
| 77 | 20 my $document = new IMPL::Web::TT::Document(); |
| 49 | 21 |
| 22 failed "Failed to create document" unless $document; | |
| 23 | |
| 181 | 24 $document->LoadFile('Resources/simple.tt','utf8'); |
| 49 | 25 |
| 26 my $out = $document->Render; | |
| 27 | |
| 181 | 28 open my $hFile,'<:encoding(utf8)',"Resources/simple.txt" or die "Failed to open etalon file: $!"; |
| 49 | 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; |