Indy/Test/System/IdTestStreamHelper.pas

unit IdTestStreamHelper;

{
note:
under dotnet,
  SetLength(aBuffer,0);
doesnt set aBuffer=nil. win32 does. (this is done to release the buffer)
}

interface

uses
  IdObjs,
  IdTest,
  IdSys,
  IdGlobal,
  IdStream;

type

  TIdTestStreamHelper = class(TIdTest)
  published
    procedure TestHelper;
  end;

implementation

procedure TIdTestStreamHelper.TestHelper;
var
 aStream:TIdMemoryStream;
 aBuffer:TIdBytes;
 aStr:string;
 aCount:Integer;
const
 cText='0123456789';
begin

 aStream:=TIdMemoryStream.Create;
 try

 //should be safe with nil buffer and 0 count
 Assert(aBuffer=nil);
 aCount:=TIdStreamHelper.ReadBytes(aStream,aBuffer,0);
 Assert(aCount=0);

 //text to buffer
 aBuffer:=ToBytes(cText);
 aStr:=BytesToString(aBuffer);
 Assert(aStr=cText);

 //buffer to stream
 TIdStreamHelper.Write(aStream,aBuffer);
 aStream.Position:=0;
 aStr:=ReadStringFromStream(aStream);
 Assert(aStr=cText);
 aBuffer:=nil;

 //stream to buffer, positioned at eof
 aStream.Position:=aStream.Size;
 Assert(aBuffer=nil);
 aCount:=TIdStreamHelper.ReadBytes(aStream,aBuffer);
 Assert(Length(aBuffer) = 0);
 Assert(aCount=0);

 //stream to buffer
 aStream.Position:=0;
 aCount:=TIdStreamHelper.ReadBytes(aStream,aBuffer);
 aStr:=BytesToString(aBuffer);
 Assert(aCount=Length(cText));
 Assert(aStr=cText);

 //test read offsets
 //put the first char in stream into buffer[5]
 aBuffer:=ToBytes(cText);
 aStream.Size:=0;
 TIdStreamHelper.Write(aStream,aBuffer);
 aStream.Position:=0;
 TIdStreamHelper.ReadBytes(aStream,aBuffer,Length(cText),0);
 aStr:=BytesToString(aBuffer);
 Assert(aStr=cText, aStr);

 //test buffer to stream using count
 aBuffer:=ToBytes(cText);
 aStream.Size:=0;
 TIdStreamHelper.Write(aStream,aBuffer);
 aStream.Position:=2;
 TIdStreamHelper.Write(aStream,aBuffer,3);
 aStream.Position:=0;
 aStr:=ReadStringFromStream(aStream);
 Assert(aStr='0101256789');

 //test limits. try to write more bytes than available in buffer
 aBuffer:=ToBytes(cText);
 aStream.Size:=0;
 TIdStreamHelper.Write(aStream,aBuffer,100);
 aStream.Position:=0;
 aStr:=ReadStringFromStream(aStream);
 Assert(aStr=cText);

 finally
 Sys.FreeAndNil(aStream);
 end;
end;

initialization

  TIdTest.RegisterTest(TIdTestStreamHelper);

end.