* fixed test

git-svn-id: trunk@10556 -

tests/webtbs/uw6822a.pp

@@ -5,10 +5,16 @@ interface
 
 implementation
 
+var
+  t: text;
+
 initialization
   writeln('Unit 1');
   writeln('initialization');
 finalization
   writeln('Unit 1'); // problem
   writeln('finalization'); 
+  assign(t,'uw6822a.txt');
+  rewrite(t);
+  close(t);
 end.