From ac9df7be0dd1a08a2b5135d6a08631451453319d Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 7 Aug 2006 20:00:46 +0000
Subject: [PATCH]   * remove Pipes

git-svn-id: trunk@4388 -
---
 tests/webtbs/tw7071.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/webtbs/tw7071.pp b/tests/webtbs/tw7071.pp
index 38ae97e35e..ccb53ab074 100644
--- a/tests/webtbs/tw7071.pp
+++ b/tests/webtbs/tw7071.pp
@@ -1,7 +1,7 @@
 {$mode objfpc}{$H+}
 
 uses
-  Classes, SysUtils, Pipes;
+  Classes, SysUtils;
 
 var
   err : boolean;
@@ -18,10 +18,10 @@ begin
 end;
 
 var
-  InputStream: TInputPipeStream;
+  InputStream: TMemoryStream;
 begin
   err:=true;
-  InputStream:=TInputPipeStream.Create(0);
+  InputStream:=TMemoryStream.Create;
   Proc(InputStream);
   if err then
     halt(1);