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

wst/trunk/tests/test_suite/test_support.pas

@@ -346,6 +346,7 @@ type
   TTest_TBase64StringExtRemotable = class(TTestCase)
   published
     procedure Equal();
+    procedure test_Assign();
     procedure SetBinaryData();
     procedure SetEncodedString();
   end;
@@ -2518,6 +2519,28 @@ begin
   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
   RegisterTest('Support',TTest_TBaseComplexRemotable.Suite);
   RegisterTest('Support',TTest_TStringBufferRemotable.Suite);