--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/_test/Test/Web/TDocument.pm	Mon Aug 24 01:05:34 2009 +0400
@@ -0,0 +1,34 @@
+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;