From 5643472e99398327194de21a21a175309d9a2b73 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 8 Jan 2008 18:12:38 +0000
Subject: [PATCH] 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 | 23 +++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/wst/trunk/tests/test_suite/test_support.pas b/wst/trunk/tests/test_suite/test_support.pas
index 0017ec1bd..5a6899104 100644
--- a/wst/trunk/tests/test_suite/test_support.pas
+++ b/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);