+ add TStringList test

git-svn-id: trunk@5526 -

.gitattributes

@@ -6195,6 +6195,7 @@ tests/tbs/tb0511.pp svneol=native#text/plain
 tests/tbs/tb0512.pp svneol=native#text/plain
 tests/tbs/tb0513.pp svneol=native#text/plain
 tests/tbs/tb0514.pp svneol=native#text/plain
+tests/tbs/tb0515.pp svneol=native#text/plain
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain

tests/tbs/tb0515.pp

@@ -0,0 +1,64 @@
+{$mode objfpc}{$h+}
+
+uses
+  classes, sysutils;
+
+const
+  count = 64;
+  factor = 15;
+
+function inttopaddedstr(x: integer): string;
+begin
+  result := format('%02u', [x]);
+end;
+
+procedure fatalerror(str: string; index: integer);
+begin
+  writeln(str, index);
+  halt(1);
+end;
+
+var
+  i, j: integer;
+  strlist: tstringlist;
+begin
+  strlist := tstringlist.create;
+  for i := 0 to count-1 do
+  begin
+    j := factor*i mod count;
+    strlist.addobject(inttopaddedstr(j), tobject(j));
+  end;
+  for i := 0 to count-1 do
+  begin
+    j := factor*i mod count;
+    if strlist.strings[i] <> inttopaddedstr(j) then
+      fatalerror('string error at ', i);
+    if strlist.objects[i] <> tobject(j) then
+      fatalerror('object error at ', i);
+  end;
+  strlist.sort;
+  for i := 0 to count-1 do
+  begin
+    if strlist.strings[i] <> inttopaddedstr(i) then
+      fatalerror('sorted string error at ', i);
+    if strlist.objects[i] <> tobject(i) then
+      fatalerror('sorted object error at ', i);
+  end;
+  strlist.delete(10);
+  strlist.delete(25);
+  if strlist.count <> count-2 then
+    fatalerror('strlist.count is not ', count-2);
+  j := 0;
+  for i := 0 to 61 do
+  begin
+    if strlist.strings[i] <> inttopaddedstr(j) then
+      fatalerror('delete string error at ', i);
+    if strlist.objects[i] <> tobject(j) then
+      fatalerror('delete object error at ', i);
+    inc(j);
+    if (j = 10) or (j = 26) then
+      inc(j);
+  end;
+  strlist.free;
+  writeln('ok');
+end.