From c35fc00fe61e8da6ba346c0fe830848a93816dac Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 7 Dec 1999 11:42:48 +0000
Subject: [PATCH]  * use source for test

---
 tests/tbs/tbs0111.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/tbs/tbs0111.pp b/tests/tbs/tbs0111.pp
index ba3c496779..fd3ca5cccc 100644
--- a/tests/tbs/tbs0111.pp
+++ b/tests/tbs/tbs0111.pp
@@ -3,7 +3,7 @@ var
   i : word;
   buf : string;
 begin
-  assign(f,'test');
+  assign(f,'tbs0111.pp');
   reset(f);
   blockread(f,buf[1],sizeof(buf),i);    { This is not allowed in BP7 }
   buf[0]:=chr(i);