From 8a98d4659494cd06235cc2c2c4b70876ab5807b5 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 25 Mar 2008 12:36:10 +0000
Subject: [PATCH]   * fixed test

git-svn-id: trunk@10556 -
---
 tests/webtbs/uw6822a.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tests/webtbs/uw6822a.pp b/tests/webtbs/uw6822a.pp
index 6ba0c68bf5..e171d708b9 100644
--- a/tests/webtbs/uw6822a.pp
+++ b/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.