--- a/_test/Test/Web/TDocument.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/_test/Test/Web/TDocument.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,34 +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;
+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;