Mercurial > pub > Impl

comparison _test/Test/Web/TDocument.pm @ 60:b0c068da93ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Lazy activation for the configuration objects (final concept) small fixes
author wizard
date Tue, 09 Mar 2010 19:47:39 +0300
parents 16ada169ca75
children
comparison
equal deleted inserted replaced
59:0f3e369553bd 60:b0c068da93ac
10 10
11 test Creation => sub { 11 test Creation => sub {
12 my $document = new IMPL::Web::TDocument(); 12 my $document = new IMPL::Web::TDocument();
13 13
14 failed "Failed to create document" unless $document; 14 failed "Failed to create document" unless $document;
15
16 $document->Dispose();
15 }; 17 };
16 18
17 test SimpleTemplate => sub { 19 test SimpleTemplate => sub {
18 my $document = new IMPL::Web::TDocument(); 20 my $document = new IMPL::Web::TDocument();
19 21
26 open my $hFile,'<:encoding(cp1251)',"Resources/simple.txt" or die "Failed to open etalon file: $!"; 28 open my $hFile,'<:encoding(cp1251)',"Resources/simple.txt" or die "Failed to open etalon file: $!";
27 local $/; 29 local $/;
28 my $eta = <$hFile>; 30 my $eta = <$hFile>;
29 31
30 failed "Rendered data doesn't match the etalon data","Expected:\n$eta","Actual:\n$out" if $out ne $eta; 32 failed "Rendered data doesn't match the etalon data","Expected:\n$eta","Actual:\n$out" if $out ne $eta;
33
34 $document->Dispose();
31 }; 35 };
32 36
33 37
34 1; 38 1;