* fix compilation of tests

git-svn-id: trunk@45648 -

packages/fcl-stl/tests/gdequetest.pp

@@ -14,7 +14,7 @@ type TGDequeTest = class(TTestCase)
     procedure PushTest;
   public
     procedure Setup;override;
-  private 
+  private
     data:dequelli;
   end;
 
@@ -28,7 +28,7 @@ begin
     data.pushback(i);
   for i:=0 to 10 do begin
     AssertEquals('Wrong data', 10-i, data.back);
-    AssertEquals('Wrong size', 11-i, data.size);
+    AssertEquals('Wrong size', 11-i, SizeInt(data.size));
     data.popback;
   end;
   AssertEquals('Not IsEmpty', true, data.IsEmpty);

packages/fcl-stl/tests/gpriorityqueuetest.pp

@@ -14,7 +14,7 @@ type TGPQueueTest = class(TTestCase)
     procedure QueueTest;
   public
     procedure Setup;override;
-  private 
+  private
     data:queuelli;
   end;
 
@@ -30,7 +30,7 @@ begin
   data.pop;
   for i:=0 to 9 do begin
     AssertEquals('Wrong order', true, data.top<last);
-    AssertEquals('Wrong size', 10-i, data.size);
+    AssertEquals('Wrong size', 10-i, SizeInt(data.size));
     last:=data.top;
     data.pop;
   end;

packages/fcl-stl/tests/gqueuetest.pp

@@ -13,7 +13,7 @@ type TGTQueueTest = class(TTestCase)
     procedure TQueueTest;
   public
     procedure Setup;override;
-  private 
+  private
     data:TQueuelli;
   end;
 
@@ -27,7 +27,7 @@ begin
     data.push(i);
   for i:=0 to 10 do begin
     AssertEquals('Wrong data', i, data.front);
-    AssertEquals('Wrong size', 11-i, data.size);
+    AssertEquals('Wrong size', 11-i, SizeInt(data.size));
     data.pop;
   end;
   AssertEquals('Not IsEmpty', true, data.IsEmpty);