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

Lazy activation for the configuration objects (final concept) small fixes
author wizard
date Tue, 09 Mar 2010 19:47:39 +0300
parents 16ada169ca75
children
line wrap: on
line diff
--- a/_test/Test/Web/TDocument.pm	Tue Mar 09 02:50:45 2010 +0300
+++ b/_test/Test/Web/TDocument.pm	Tue Mar 09 19:47:39 2010 +0300
@@ -12,6 +12,8 @@
     my $document = new IMPL::Web::TDocument();
     
     failed "Failed to create document" unless $document;
+    
+    $document->Dispose();
 };
 
 test SimpleTemplate => sub {
@@ -28,6 +30,8 @@
     my $eta = <$hFile>;
     
     failed "Rendered data doesn't match the etalon data","Expected:\n$eta","Actual:\n$out" if $out ne $eta;
+    
+    $document->Dispose();
 };