view _test/Test/Web/TDocument.pm @ 53:cf23fd8423f4

minor changes
author wizard
date Tue, 02 Mar 2010 02:57:09 +0300
parents 16ada169ca75
children b0c068da93ac
line wrap: on
line source

package Test::Web::TDocument;
use strict;
use warnings;
use encoding 'cp1251';

use base qw(IMPL::Test::Unit);
use IMPL::Test qw(test failed);
use IMPL::Web::TDocument;
__PACKAGE__->PassThroughArgs;

test Creation => sub {
    my $document = new IMPL::Web::TDocument();
    
    failed "Failed to create document" unless $document;
};

test SimpleTemplate => sub {
    my $document = new IMPL::Web::TDocument();
    
    failed "Failed to create document" unless $document;
    
    $document->loadFile('Resources/simple.tt','cp1251');
    
    my $out = $document->Render;
    
    open my $hFile,'<:encoding(cp1251)',"Resources/simple.txt" or die "Failed to open etalon file: $!";
    local $/;
    my $eta = <$hFile>;
    
    failed "Rendered data doesn't match the etalon data","Expected:\n$eta","Actual:\n$out" if $out ne $eta;
};


1;