view _test/Test/Web/TT.pm @ 105:a6e9759ff88a

Fixed a validation errors parameters
author wizard
date Tue, 11 May 2010 02:59:49 +0400
parents 9d24db321029
children 4267a2ac3d46
line wrap: on
line source

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

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

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

test SimpleTemplate => sub {
    my $document = new IMPL::Web::TT::Document();
    
    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;
    
    $document->Dispose();
};


1;