paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@321 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
inoussa 2008-01-08 18:12:38 +00:00
parent 292fd5eb21
commit 5643472e99
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
wst/trunk/tests/test_suite/test_support.pas
View File

@ -346,6 +346,7 @@ type
TTest_TBase64StringExtRemotable = class(TTestCase) TTest_TBase64StringExtRemotable = class(TTestCase)
published published
procedure Equal(); procedure Equal();
procedure test_Assign();
procedure SetBinaryData(); procedure SetBinaryData();
procedure SetEncodedString(); procedure SetEncodedString();
end; end;
@ -2518,6 +2519,28 @@ begin
end; end;
end; end;
procedure TTest_TBase64StringExtRemotable.test_Assign();
const ITER = 100;
var
i : Integer;
a, b : TBase64StringExtRemotable;
begin
b := nil;
a := TBase64StringExtRemotable.Create();
try
b := TBase64StringExtRemotable.Create();
for i := 1 to ITER do begin
a.BinaryData := RandomValue(Random(500));
b.Assign(a);
CheckEquals(a.BinaryData, b.BinaryData);
CheckEquals(a.EncodedString, b.EncodedString);
end;
finally
FreeAndNil(b);
FreeAndNil(a);
end;
end;
initialization initialization
RegisterTest('Support',TTest_TBaseComplexRemotable.Suite); RegisterTest('Support',TTest_TBaseComplexRemotable.Suite);
RegisterTest('Support',TTest_TStringBufferRemotable.Suite); RegisterTest('Support',TTest_TStringBufferRemotable.Suite);