Тестирование программы

uses
SysUtils,
//
TestClass, Coding, IniTools;

type
TBase64Test = class(TCustomTest)
procedure DoTest; override;
end;

TBase128Test = class(TCustomTest)
procedure DoTest; override;
end;

THtmlCodingTest = class(TCustomTest)
procedure DoTest; override;
end;

implementation

{ TBase64Test }

procedure TBase64Test.DoTest;
var
SI, SO: String;
i: Integer;
begin
inherited;
// из Википедии
SI := 'Man is distinguished, not only by his reason, but by this singular passion from other animals, which is a lust of the mind, ';
SI := SI + 'that by a perseverance of delight in the continued and indefatigable generation of knowledge, exceeds the short vehemence of any carnal pleasure.';
SO := 'TWFuIGlzIGRpc3Rpbmd1aXNoZWQsIG5vdCBvbmx5IGJ5IGhpcyByZWFzb24sIGJ1dCBieSB0aGlzIHN pbmd1bGFyIHBhc3Npb24gZnJvbSBvdGhlciBhbmltYWxzLCB3aGlj';
SO := SO + 'aCBpcyBhIGx1c3Qgb2YgdGhlIG1pbmQsIHRoYXQgYnkgYSBwZXJzZXZlcmFuY2Ugb2YgZGVsaWdodCB pbiB0aGUgY29udGludWVkIGFuZCBpbmRlZmF0aWdhYmxlIGd';
SO := SO + 'lbmVyYXRpb24gb2Yga25vd2xlZGdlLCBleGNlZWRzIHRoZSBzaG9ydCB2ZWhlbWVuY2Ugb2YgYW55IG Nhcm5hbCBwbGVhc3VyZS4=';
LogAndSetResult('test of Base64 encoding - fixed phrase', SO = EncodeBase64(StrToRawData(SI)));
LogAndSetResultPartially('test of Base64 decoding - fixed phrase', SI = RawDataToStr(DecodeBase64(SO)));
for i := 1 to 10 do
begin
SI := GetRandomRandomData;
LogAndSetResultPartially('test of Base64 - random phrase #' + IntToStr(i),
SI = RawDataToStr(DecodeBase64(EncodeBase64(StrToRawData(SI)))));
end;
end;