--- a/Lib/IMPL/Test/Unit.pm	Wed Sep 02 23:11:14 2009 +0400
+++ b/Lib/IMPL/Test/Unit.pm	Fri Sep 04 16:38:15 2009 +0400
@@ -36,6 +36,10 @@
 }
 
 sub Cleanup {
+    my ($this,$session) = @_;
+    
+    $session->{$_} = $this->$_() foreach map $_->DataList, $this->get_meta('IMPL::Test::Unit::SharedData');
+    
     1;
 }
 
@@ -81,7 +85,7 @@
             $elapsed = tv_interval ( $t0 );
         } finally {
             # we need to call Cleanup anyway
-            $this->Cleanup;
+            $this->Cleanup($session);
         };
         
         return new IMPL::Test::Result(