* Initial check-in of stl

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17233 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 43 insertions, 0 deletions

diff --git a/packages/fcl-stl/tests/gqueuetest.pp b/packages/fcl-stl/tests/gqueuetest.pp
new file mode 100644
index 0000000000..ca4a2a16e4
--- /dev/null
+++ b/packages/fcl-stl/tests/gqueuetest.pp
@@ -0,0 +1,43 @@
+{$mode objfpc}
+
+unit gqueuetest;
+
+interface
+
+uses fpcunit, testregistry, gqueue;
+
+type TQueuelli=specialize TQueue<longint>;
+
+type TGTQueueTest = class(TTestCase)
+  Published
+    procedure TQueueTest;
+  public
+    procedure Setup;override;
+  private 
+    data:TQueuelli;
+  end;
+
+implementation
+
+procedure TGTQueueTest.TQueueTest;
+var i:longint;
+begin
+  AssertEquals('Not IsEmpty', true, data.IsEmpty);
+  for i:=0 to 10 do
+    data.push(i);
+  for i:=0 to 10 do begin
+    AssertEquals('Wrong data', i, data.front);
+    AssertEquals('Wrong size', 11-i, data.size);
+    data.pop;
+  end;
+  AssertEquals('Not IsEmpty', true, data.IsEmpty);
+end;
+
+procedure TGTQueueTest.Setup;
+begin
+  data:=TQueuelli.create;
+end;
+
+initialization
+  RegisterTest(TGTQueueTest);
+end.