LazUtils: New List classes

git-svn-id: trunk@49054 -

.gitattributes

@@ -2933,6 +2933,7 @@ components/lazutils/lazfileutils.inc svneol=native#text/plain
 components/lazutils/lazfileutils.pas svneol=native#text/pascal
 components/lazutils/lazfreetype.pas svneol=native#text/pascal
 components/lazutils/lazfreetypefontcollection.pas svneol=native#text/plain
+components/lazutils/lazlistclasses.pas svneol=native#text/plain
 components/lazutils/lazlogger.pas svneol=native#text/pascal
 components/lazutils/lazloggerbase.pas svneol=native#text/pascal
 components/lazutils/lazloggerdummy.pas svneol=native#text/pascal
@@ -2950,6 +2951,9 @@ components/lazutils/lconvencoding.pas svneol=native#text/pascal
 components/lazutils/lcsvutils.pas svneol=native#text/pascal
 components/lazutils/masks.pas svneol=native#text/pascal
 components/lazutils/paswstring.pas svneol=native#text/pascal
+components/lazutils/test/TestLazStorageMem.lpi svneol=native#text/plain
+components/lazutils/test/TestLazStorageMem.lpr svneol=native#text/plain
+components/lazutils/test/testlazstoragememcase1.pas svneol=native#text/plain
 components/lazutils/ttcache.pas svneol=native#text/pascal
 components/lazutils/ttcalc.pas svneol=native#text/pascal
 components/lazutils/ttcalc1.inc svneol=native#text/pascal

components/lazutils/lazutils.lpk

@@ -16,7 +16,7 @@
     <Description Value="Useful units for Lazarus packages."/>
     <License Value="Modified LGPL-2"/>
     <Version Major="1"/>
-    <Files Count="78">
+    <Files Count="79">
       <Item1>
         <Filename Value="laz2_dom.pas"/>
         <UnitName Value="Laz2_DOM"/>
@@ -139,7 +139,7 @@
       </Item30>
       <Item31>
         <Filename Value="lazutf8sysutils.pas"/>
-        <UnitName Value="lazutf8sysutils"/>
+        <UnitName Value="LazUTF8SysUtils"/>
       </Item31>
       <Item32>
         <Filename Value="lazmethodlist.pas"/>
@@ -328,8 +328,12 @@
       </Item77>
       <Item78>
         <Filename Value="lazcollections.pas"/>
-        <UnitName Value="lazcollections"/>
+        <UnitName Value="lazCollections"/>
       </Item78>
+      <Item79>
+        <Filename Value="lazlistclasses.pas"/>
+        <UnitName Value="LazListClasses"/>
+      </Item79>
     </Files>
     <LazDoc Paths="../../docs/xml/lazutils"/>
     <i18n>

components/lazutils/lazutils.pas

@@ -7,16 +7,15 @@ unit LazUtils;
 interface
 
 uses
-  Laz2_DOM, Laz2_XMLCfg, laz2_XMLRead, laz2_xmlutils, laz2_XMLWrite, Laz_DOM, 
-  Laz_XMLCfg, Laz_XMLRead, Laz_XMLStreaming, Laz_XMLWrite, LazFileUtils, 
-  LazFileCache, LazUTF8, LazDbgLog, PasWString, FileUtil, LazUTF8Classes, 
-  Masks, LazUtilsStrConsts, LConvEncoding, lazutf16, lazutf8sysutils, 
-  LazMethodList, AvgLvlTree, LazLogger, LazFreeType, TTCache, TTCalc, TTCMap, 
-  TTDebug, TTError, TTFile, TTGLoad, TTInterp, TTLoad, TTMemory, TTObjs, 
-  TTProfile, TTRASTER, TTTables, TTTypes, EasyLazFreeType, LazLoggerBase, 
-  LazLoggerDummy, LazClasses, LazFreeTypeFontCollection, LazConfigStorage, 
-  UTF8Process, laz2_xpath, DictionaryStringList, LazLoggerProfiling, FPCAdds, 
-  LazUtilities, lazfglhash, lcsvutils, lazCollections, LazarusPackageIntf;
+  Laz2_DOM, Laz2_XMLCfg, laz2_XMLRead, laz2_xmlutils, laz2_XMLWrite, Laz_DOM, Laz_XMLCfg, 
+  Laz_XMLRead, Laz_XMLStreaming, Laz_XMLWrite, LazFileUtils, LazFileCache, LazUTF8, 
+  LazDbgLog, PasWString, FileUtil, LazUTF8Classes, Masks, LazUtilsStrConsts, LConvEncoding, 
+  lazutf16, lazutf8sysutils, LazMethodList, AvgLvlTree, LazLogger, LazFreeType, TTCache, 
+  TTCalc, TTCMap, TTDebug, TTError, TTFile, TTGLoad, TTInterp, TTLoad, TTMemory, TTObjs, 
+  TTProfile, TTRASTER, TTTables, TTTypes, EasyLazFreeType, LazLoggerBase, LazLoggerDummy, 
+  LazClasses, LazFreeTypeFontCollection, LazConfigStorage, UTF8Process, laz2_xpath, 
+  DictionaryStringList, LazLoggerProfiling, FPCAdds, LazUtilities, lazfglhash, lcsvutils, 
+  lazCollections, LazListClasses, LazarusPackageIntf;
 
 implementation
 

components/lazutils/test/TestLazStorageMem.lpi

@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="9"/>
+    <PathDelim Value="\"/>
+    <General>
+      <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
+      <Title Value="TestLazStorageMem"/>
+      <ResourceType Value="res"/>
+      <UseXPManifest Value="True"/>
+      <Icon Value="0"/>
+    </General>
+    <i18n>
+      <EnableI18N LFM="False"/>
+    </i18n>
+    <VersionInfo>
+      <StringTable ProductVersion=""/>
+    </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="3">
+      <Item1>
+        <PackageName Value="LazUtils"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FPCUnitTestRunner"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="FCL"/>
+      </Item3>
+    </RequiredPackages>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="TestLazStorageMem.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="testlazstoragememcase1.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="TestLazStorageMemCase1"/>
+      </Unit1>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+    </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf2Set"/>
+      </Debugging>
+    </Linking>
+    <Other>
+      <CustomOptions Value="-WC"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="3">
+      <Item1>
+        <Name Value="EAbort"/>
+      </Item1>
+      <Item2>
+        <Name Value="ECodetoolError"/>
+      </Item2>
+      <Item3>
+        <Name Value="EFOpenError"/>
+      </Item3>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

components/lazutils/test/TestLazStorageMem.lpr

@@ -0,0 +1,15 @@
+program TestLazStorageMem;
+
+{$mode objfpc}{$H+}
+{$apptype console}
+uses
+  Interfaces, Forms, GuiTestRunner, TestLazStorageMemCase1;
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TGuiTestRunner, TestRunner);
+  Application.Run;
+end.
+

components/lazutils/test/testlazstoragememcase1.pas

@@ -0,0 +1,776 @@
+unit TestLazStorageMemCase1;
+
+{$mode objfpc}{$H+}
+
+{$DEFINE TEST_SKIP_SLOW}
+
+interface
+
+uses
+  Classes, SysUtils, math, LazListClasses, LazLoggerBase, fpcunit, testutils, testregistry;
+
+type
+
+  { TTestStorageMem }
+
+  TTestStorageMem = class(TTestCase)
+  published
+    procedure TestMem;
+    procedure TestMemSpecialized;
+    procedure TestMemRound;
+    procedure TestMemRoundSpecialized;
+    procedure TestMemPaged;
+    procedure TestMemClass;
+    procedure TestMemSpecializedClass;
+  end;
+
+implementation
+
+type
+
+  { TTestLazMemWrapper }
+
+  generic TTestLazMemWrapper<T> = object
+  private
+    FTested: T;
+    FExpected: Array of Integer;
+    function GetItems(AnIndex: Integer): Integer;
+    procedure SetItems(AnIndex: Integer; AValue: Integer);
+  public
+    constructor Create;
+    destructor destroy;
+    function Insert(Avalue: Integer): Integer;
+    procedure Insert(AnIndex: Integer; Avalues: array of Integer);
+    procedure Delete(AIndex, ACount: Integer);
+    procedure Clear;
+    procedure AssertExp(AName: String; Caller: TTestStorageMem);
+
+    procedure InsertRows(AIndex, ACount: Integer); inline;
+    procedure DeleteRows(AIndex, ACount: Integer); inline;
+    function Count: Integer;
+    property Items[AnIndex: Integer]: Integer read GetItems write SetItems;
+  end;
+
+  { TTestLazDualCapacityListMem }
+
+  TTestLazDualCapacityListMem = object(TLazDualCapacityListMem)
+  protected
+    FGrowStep: Integer;
+    FShrinkStep: Integer;
+    function GrowCapacity(ARequired: Integer): Integer;
+    function ShrinkCapacity(ARequired: Integer): Integer;
+  public
+    constructor Create;
+    procedure InsertRows(AIndex, ACount: Integer); inline;
+    procedure DeleteRows(AIndex, ACount: Integer); inline;
+  end;
+
+  { TTestLazGenDualCapacityListMem }
+
+  TTestLazGenDualCapacityListMem = object(specialize TLazGenDualCapacityListMem<Integer>)
+  protected
+    FGrowStep: Integer;
+    FShrinkStep: Integer;
+    function GrowCapacity(ARequired: Integer): Integer;
+    function ShrinkCapacity(ARequired: Integer): Integer;
+  public
+    procedure InsertRows(AIndex, ACount: Integer); inline;
+    procedure DeleteRows(AIndex, ACount: Integer); inline;
+  end;
+
+  { TTestLazRoundBufferListMem }
+
+  TTestLazRoundBufferListMem = object(TLazRoundBufferListMem)
+  protected
+    FGrowStep: Integer;
+    FShrinkStep: Integer;
+    function GrowCapacity(ARequired: Integer): Integer;
+    function ShrinkCapacity(ARequired: Integer): Integer;
+  public
+    constructor Create;
+    procedure InsertRows(AIndex, ACount: Integer); inline;
+    procedure DeleteRows(AIndex, ACount: Integer); inline;
+  end;
+
+  { TTestLazGenRoundBufferListMem }
+
+  TTestLazGenRoundBufferListMem = object(specialize TLazGenRoundBufferListMem<Integer>)
+  protected
+    FGrowStep: Integer;
+    FShrinkStep: Integer;
+    function GrowCapacity(ARequired: Integer): Integer;
+    function ShrinkCapacity(ARequired: Integer): Integer;
+  public
+    procedure InsertRows(AIndex, ACount: Integer); inline;
+    procedure DeleteRows(AIndex, ACount: Integer); inline;
+  end;
+
+  { TTestLazPagedListMem }
+  TTestLazPagedListMem = object(TLazPagedListMem)
+  protected
+    FGrowStep: Integer;
+    FShrinkStep: Integer;
+    function GrowCapacity(ARequired: Integer): Integer;
+    function ShrinkCapacity(ARequired: Integer): Integer;
+  public
+    procedure InsertRows(AIndex, ACount: Integer);
+    procedure DeleteRows(AIndex, ACount: Integer);
+  end;
+
+  { TTestLazPagedListMem0 }
+
+  TTestLazPagedListMem0 = object(TTestLazPagedListMem)
+    constructor Create;
+  end;
+
+  { TTestLazPagedListMem1 }
+
+  TTestLazPagedListMem1 = object(TTestLazPagedListMem)
+    constructor Create;
+  end;
+
+  { TTestLazPagedListMem2 }
+
+  TTestLazPagedListMem2 = object(TTestLazPagedListMem)
+    constructor Create;
+  end;
+
+  { TTestLazPagedListMem3 }
+
+  TTestLazPagedListMem3 = object(TTestLazPagedListMem)
+    constructor Create;
+  end;
+
+
+  { TTestRunnerList }
+
+  generic TTestRunnerList<TListTypeX> = object
+  type TListType = specialize TTestLazMemWrapper<TListTypeX>;
+  public
+    Caller: TTestStorageMem;
+    GrowStep: Integer;
+    ShrinkStep: Integer;
+    procedure TestNew(name: string);
+    procedure TestSequence(name: string; a: Array of Integer); // Old test from a previous version
+    procedure TestSequenceEx(n: string; a: Array of Integer);
+    procedure RunTest(ACaller: TTestStorageMem);
+  end;
+
+  TTestListMem = specialize TTestRunnerList<TTestLazDualCapacityListMem>;
+  TTestListMemSpecialized = specialize TTestRunnerList<TTestLazGenDualCapacityListMem>;
+  TTestListRoundMem = specialize TTestRunnerList<TTestLazRoundBufferListMem>;
+  TTestListRoundMemSpecialized = specialize TTestRunnerList<TTestLazGenRoundBufferListMem>;
+  TTestListPagedMem0 = specialize TTestRunnerList<TTestLazPagedListMem0>;
+  TTestListPagedMem1 = specialize TTestRunnerList<TTestLazPagedListMem1>;
+  TTestListPagedMem2 = specialize TTestRunnerList<TTestLazPagedListMem2>;
+  TTestListPagedMem3 = specialize TTestRunnerList<TTestLazPagedListMem3>;
+
+  TIntArray = Array of Integer;
+
+function CreateArray(ALow,ACount: integer): TIntArray;
+var
+  i,j: Integer;
+begin
+  SetLength(Result, ACount);
+  for i := 0 to ACount - 1 do
+    Result[i] := i+ALow;
+end;
+
+function JoinArrays(a,b: array of integer): TIntArray;
+var
+  i,j: Integer;
+begin
+  SetLength(Result, length(a)+Length(b));
+  for i := 0 to high(a) do
+    Result[i] := a[i];
+  j := Length(a);
+  for i := 0 to high(b) do
+    Result[j+i] := b[i];
+end;
+
+function JoinArrays(a,b,c: array of integer): TIntArray;
+var
+  i,j: Integer;
+begin
+  SetLength(Result, length(a)+Length(b)+Length(c));
+  for i := 0 to high(a) do
+    Result[i] := a[i];
+  j := Length(a);
+  for i := 0 to high(b) do
+    Result[j+i] := b[i];
+  j := j + Length(b);
+  for i := 0 to high(c) do
+    Result[j+i] := c[i];
+end;
+
+{ TTestLazMemWrapper }
+
+function TTestLazMemWrapper.GetItems(AnIndex: Integer): Integer;
+begin
+  Result := PInteger(FTested.ItemPointer[AnIndex])^;
+end;
+
+procedure TTestLazMemWrapper.SetItems(AnIndex: Integer; AValue: Integer);
+begin
+  PInteger(FTested.ItemPointer[AnIndex])^ := AValue;
+end;
+
+constructor TTestLazMemWrapper.Create;
+begin
+  FTested.create;
+end;
+
+destructor TTestLazMemWrapper.destroy;
+begin
+  FTested.destroy;
+end;
+
+function TTestLazMemWrapper.Insert(Avalue: Integer): Integer;
+begin
+  Result := 0;
+  while (Result < FTested.Count) do begin
+    if (Items[Result] > Avalue) then break;
+    inc(Result);
+  end;
+  FTested.InsertRows(Result, 1);
+  Items[Result] := Avalue;
+end;
+
+procedure TTestLazMemWrapper.Insert(AnIndex: Integer; Avalues: array of Integer);
+var
+  i: Integer;
+begin
+  //debugln(['TTestLazMemWrapper.Insert ',AnIndex,'  ',Length(Avalues)]);
+  FTested.InsertRows(AnIndex, length(Avalues));
+  for i := 0 to high(Avalues) do
+    Items[i+AnIndex] := Avalues[i];
+  if FExpected = nil then
+    FExpected := JoinArrays(Avalues, [])
+  else {$PUSH}{$R-}
+    FExpected := JoinArrays(FExpected[0..(AnIndex-1)], Avalues, FExpected[AnIndex..high(FExpected)]);
+    {$POP}
+end;
+
+procedure TTestLazMemWrapper.Delete(AIndex, ACount: Integer);
+begin
+  //debugln(['TTestLazMemWrapper.Delete ',AIndex,'  ',ACount]);
+  DeleteRows(AIndex, ACount);
+  {$PUSH}{$R-}
+  FExpected := JoinArrays(FExpected[0..AIndex-1], FExpected[(AIndex+ACount)..High(FExpected)]);
+  {$POP}
+end;
+
+procedure TTestLazMemWrapper.Clear;
+begin
+  FTested.DeleteRows(0, FTested.Count);
+  FTested.Capacity := 0;
+  FExpected := nil;
+  Assert(0 = FTested.Count);
+  Assert(0 = FTested.Capacity);
+end;
+
+procedure TTestLazMemWrapper.AssertExp(AName: String; Caller: TTestStorageMem);
+var
+  i: Integer;
+begin
+  Caller.AssertEquals(Format(AName+' Expect Count %d, %d', [Length(FExpected), Count]), Length(FExpected), Count);
+  for i := 0 to FTested.Count-1 do
+    Caller.AssertEquals(Format(AName+' Test %d / %d, %d', [i, FExpected[i], Items[i]]), FExpected[i], Items[i]);
+end;
+
+procedure TTestLazMemWrapper.InsertRows(AIndex, ACount: Integer);
+begin
+  FTested.InsertRows(AIndex, ACount);
+end;
+
+procedure TTestLazMemWrapper.DeleteRows(AIndex, ACount: Integer);
+begin
+  FTested.DeleteRows(AIndex, ACount);
+end;
+
+function TTestLazMemWrapper.Count: Integer;
+begin
+  result := FTested.Count;
+end;
+
+{ TTestLazDualCapacityListMem }
+
+function TTestLazDualCapacityListMem.GrowCapacity(ARequired: Integer): Integer;
+begin
+  assert(FGrowStep >= 0, 'TTestLazDualCapacityListMem.GrowCapacity: FGrowStep >= 0');
+  Result := ARequired + FGrowStep;
+end;
+
+function TTestLazDualCapacityListMem.ShrinkCapacity(ARequired: Integer): Integer;
+begin
+  if FShrinkStep < 0 then exit(-1);
+  if ARequired - Count > FShrinkStep then
+    Result := Count
+  else
+    Result := -1;
+end;
+
+constructor TTestLazDualCapacityListMem.Create;
+begin
+  inherited Create(SizeOf(Integer));
+end;
+
+procedure TTestLazDualCapacityListMem.InsertRows(AIndex, ACount: Integer);
+begin
+  InsertRowsEx(AIndex, ACount, @GrowCapacity);
+end;
+
+procedure TTestLazDualCapacityListMem.DeleteRows(AIndex, ACount: Integer);
+begin
+  DeleteRowsEx(AIndex, ACount, @ShrinkCapacity);
+end;
+
+{ TTestLazGenDualCapacityListMem }
+
+function TTestLazGenDualCapacityListMem.GrowCapacity(ARequired: Integer): Integer;
+begin
+  assert(FGrowStep >= 0, 'TTestLazGenDualCapacityListMem.GrowCapacity: FGrowStep >= 0');
+  Result := ARequired + FGrowStep;
+end;
+
+function TTestLazGenDualCapacityListMem.ShrinkCapacity(ARequired: Integer): Integer;
+begin
+  if FShrinkStep < 0 then exit(-1);
+  if ARequired - Count > FShrinkStep then
+    Result := Count
+  else
+    Result := -1;
+end;
+
+procedure TTestLazGenDualCapacityListMem.InsertRows(AIndex, ACount: Integer);
+begin
+  InsertRowsEx(AIndex, ACount, @GrowCapacity);
+end;
+
+procedure TTestLazGenDualCapacityListMem.DeleteRows(AIndex, ACount: Integer);
+begin
+  DeleteRowsEx(AIndex, ACount, @ShrinkCapacity);
+end;
+
+{ TTestLazRoundBufferListMem }
+
+function TTestLazRoundBufferListMem.GrowCapacity(ARequired: Integer): Integer;
+begin
+  assert(FGrowStep >= 0, 'TTestLazRoundBufferListMem.GrowCapacity: FGrowStep >= 0');
+  Result := ARequired + FGrowStep;
+end;
+
+function TTestLazRoundBufferListMem.ShrinkCapacity(ARequired: Integer): Integer;
+begin
+  if FShrinkStep < 0 then exit(-1);
+  if ARequired - Count > FShrinkStep then
+    Result := Count
+  else
+    Result := -1;
+end;
+
+constructor TTestLazRoundBufferListMem.Create;
+begin
+  inherited Create(SizeOf(Integer));
+end;
+
+procedure TTestLazRoundBufferListMem.InsertRows(AIndex, ACount: Integer);
+begin
+  InsertRowsEx(AIndex, ACount, @GrowCapacity);
+end;
+
+procedure TTestLazRoundBufferListMem.DeleteRows(AIndex, ACount: Integer);
+begin
+  DeleteRowsEx(AIndex, ACount, @ShrinkCapacity);
+end;
+
+{ TTestLazGenRoundBufferListMem }
+
+function TTestLazGenRoundBufferListMem.GrowCapacity(ARequired: Integer): Integer;
+begin
+  assert(FGrowStep >= 0, 'TTestLazGenDualCapacityListMem.GrowCapacity: FGrowStep >= 0');
+  Result := ARequired + FGrowStep;
+end;
+
+function TTestLazGenRoundBufferListMem.ShrinkCapacity(ARequired: Integer): Integer;
+begin
+  if FShrinkStep < 0 then exit(-1);
+  if ARequired - Count > FShrinkStep then
+    Result := Count
+  else
+    Result := -1;
+end;
+
+procedure TTestLazGenRoundBufferListMem.InsertRows(AIndex, ACount: Integer);
+begin
+  InsertRowsEx(AIndex, ACount, @GrowCapacity);
+end;
+
+procedure TTestLazGenRoundBufferListMem.DeleteRows(AIndex, ACount: Integer);
+begin
+  DeleteRowsEx(AIndex, ACount, @ShrinkCapacity);
+end;
+
+{ TTestLazPagedListMem }
+
+function TTestLazPagedListMem.GrowCapacity(ARequired: Integer): Integer;
+begin
+  assert(FGrowStep >= 0, 'TTestLazDualCapacityListMem.GrowCapacity: FGrowStep >= 0');
+  Result := ARequired + FGrowStep;
+end;
+
+function TTestLazPagedListMem.ShrinkCapacity(ARequired: Integer): Integer;
+begin
+  if FShrinkStep < 0 then exit(-1);
+  if ARequired - Count > FShrinkStep then
+    Result := Count
+  else
+    Result := -1;
+end;
+
+procedure TTestLazPagedListMem.InsertRows(AIndex, ACount: Integer);
+begin
+  inherited InsertRows(AIndex, ACount);
+  //InsertRowsEx(AIndex, ACount, @GrowCapacity);
+end;
+
+procedure TTestLazPagedListMem.DeleteRows(AIndex, ACount: Integer);
+begin
+  inherited DeleteRows(AIndex, ACount);
+  //DeleteRowsEx(AIndex, ACount, @ShrinkCapacity);
+end;
+
+{ TTestLazPagedListMem0 }
+
+constructor TTestLazPagedListMem0.Create;
+begin
+  inherited Create(0, SizeOf(Integer));
+end;
+
+{ TTestLazPagedListMem1 }
+
+constructor TTestLazPagedListMem1.Create;
+begin
+  inherited Create(1, SizeOf(Integer));
+end;
+
+{ TTestLazPagedListMem2 }
+
+constructor TTestLazPagedListMem2.Create;
+begin
+  inherited Create(2, SizeOf(Integer));
+end;
+
+{ TTestLazPagedListMem3 }
+
+constructor TTestLazPagedListMem3.Create;
+begin
+  inherited Create(3, SizeOf(Integer));
+end;
+
+{ TTestRunnerList }
+
+procedure TTestRunnerList.TestNew(name: string);
+var
+  c, c2: TListType;
+  i, j, k: Integer;
+begin
+  c.Create;
+  c.FTested.FGrowStep := GrowStep;
+  c.FTested.FShrinkStep := ShrinkStep;
+  c2.Create;
+  c2.FTested.FGrowStep := GrowStep;
+  c2.FTested.FShrinkStep := ShrinkStep;
+
+  for i := 1 to 25 do begin
+    c.Insert(0, CreateArray(1, i));
+    c.AssertExp(format('Insert %d at 0', [i]), Caller);
+
+    for j := 0 to i do
+    for k := 1 to 25 do begin
+      c.Insert(j, CreateArray(100*k, k));
+      c.AssertExp(format('Insert %d at %d', [k, j]), Caller);
+
+      c.Delete(j, k);
+      c.AssertExp(format('Delete %d at %d', [k, j]), Caller);
+
+      Caller.AssertEquals('', i, c.Count);
+
+      // start form empty, may have different free-at-start
+      c2.Clear;
+      c2.Insert(0, CreateArray(k, i));
+      c2.AssertExp(format('Insert %d at 0', [i]), Caller);
+
+      c2.Insert(j, CreateArray(100*k, k));
+      c2.AssertExp(format('c2 Insert %d at %d', [k, j]), Caller);
+      c2.Delete(j, k);
+      c2.AssertExp(format('c2 Delete %d at %d', [k, j]), Caller);
+      Caller.AssertEquals('', i, c.Count);
+    end;
+
+    for j := 0 to i-1 do
+    for k := 1 to i-j do begin
+      c2.Clear;
+      c2.Insert(0, CreateArray(1, i));
+      c2.Delete(j, k);
+      c2.AssertExp(format('c2 Delete(2) %d at %d', [k, j]), Caller);
+    end;
+
+    c.Clear;
+  end;
+
+  c.destroy;
+  c2.destroy;
+end;
+
+procedure TTestRunnerList.TestSequence(name: string; a: array of Integer);
+var
+  c: TListType;
+  i, j, k, n, m, o: Integer;
+begin
+  c.Create;
+  c.FTested.FGrowStep := GrowStep;
+  c.FTested.FShrinkStep := ShrinkStep;
+
+  for i := 0 to high(a) do begin
+    c.Insert(a[i]);
+    Caller.AssertTrue(Format(name+' Test Cnt %d %d ', [i, c.Count]), c.Count = i+1);
+//for j := 0 to c.Count-1 do dbgout([c.Items[j],', ']); debugln(' <<<');
+    for j := 1 to c.Count-1 do
+      Caller.AssertTrue(Format(name+' Test %d %d / %d, %d', [i, j, c.Items[j], c.Items[j-1]]), c.Items[j] > c.Items[j-1]);
+  end;
+  while c.count> 0 do begin
+    c.DeleteRows(c.count-1, 1);
+    for j := 1 to c.Count-1 do
+      Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] > c.Items[j-1]);
+  end;
+
+  c.Clear;
+  for i := 0 to high(a) do begin
+    k := c.Insert(a[i]);
+    Caller.AssertEquals(Format(name+' Test %d %d', [i, j]),a[i], c.Items[k]);
+    for j := 1 to c.Count-1 do
+      Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] > c.Items[j-1]);
+  end;
+  while c.count> 1 do begin
+    c.DeleteRows(c.count-2, 2);
+    for j := 1 to c.Count-1 do
+      Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] > c.Items[j-1]);
+  end;
+
+  c.Clear;
+  for i := 0 to high(a) do begin
+    c.Insert(a[i]);
+  end;
+  for j := 1 to c.Count-1 do
+    Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] > c.Items[j-1]);
+  while c.count> 0 do begin
+    c.DeleteRows(0, 1);
+    for j := 1 to c.Count-1 do
+      Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] > c.Items[j-1]);
+  end;
+
+  c.Clear;
+  for i := high(a) downto 0 do begin
+    k := c.Insert(a[i]);
+    Caller.AssertEquals(Format(name+' Test idx %d %d / %d %d', [i, j, k, c.Items[k]]),a[i], c.Items[k]);
+    for j := 1 to c.Count-1 do
+      Caller.AssertTrue(Format(name+' Test %d %d /  / %d %d', [i, j, c.Items[j], c.Items[j-1]]), c.Items[j] > c.Items[j-1]);
+  end;
+  while c.count> 0 do begin
+    c.DeleteRows(0, Min(c.count, 2));
+    for j := 1 to c.Count-1 do
+      Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] > c.Items[j-1]);
+  end;
+
+  c.Clear;
+  for i := high(a) downto 0 do begin
+    k := c.Insert(a[i]);
+  end;
+  while c.count> 0 do begin
+    c.DeleteRows(c.count div 2, 1);
+    for j := 1 to c.Count-1 do
+      Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] > c.Items[j-1]);
+  end;
+
+
+  for m := 0 to length(a)-1 do begin
+    for n := 0 to m do begin
+      c.Clear;
+      for i := 0 to m do begin
+        k := c.Insert(a[i]);
+        Caller.AssertEquals(Format(name+' Test %d %d', [n, i]),a[i], c.Items[k]);
+      end;
+      for j := 1 to c.Count-1 do
+        Caller.AssertTrue(Format(name+' Test %d %d', [n, j]), c.Items[j] > c.Items[j-1]);
+      k := c.Items[n];
+      c.DeleteRows(n, 1);
+      for j := 1 to c.Count-1 do
+        Caller.AssertTrue(Format(name+' Test %d %d %d %d', [n, j, c.Items[j], c.Items[j-1]]), c.Items[j] > c.Items[j-1]);
+      for j := 0 to c.Count-1 do
+        Caller.AssertTrue(Format(name+' Test %d %d - idx %d <> %d', [n, j, k, c.Items[j]]), c.Items[j] <> k);
+      while c.count > 1 do begin
+        o := Max(0,Min(c.count-2, n));
+        k := c.Items[o];
+        c.DeleteRows(o, 2);
+        for j := 1 to c.Count-1 do begin
+          Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] > c.Items[j-1]);
+          Caller.AssertTrue(Format(name+' Test %d %d', [i, j]), c.Items[j] <> k);
+        end;
+      end;
+
+    end;
+  end;
+
+  c.Destroy;
+end;
+
+procedure TTestRunnerList.TestSequenceEx(n: string; a: array of Integer);
+var
+  i, j: Integer;
+  b: Array of Integer;
+begin
+  for i := 1 to length(a) do begin
+    TestSequence(n+IntToStr(i),a);
+    j := a[0];
+    if Length(a) > 1 then
+      move(a[1],a[0],(Length(a)-1)*SizeOf(a[0]));
+    a[high(a)] := j;
+  end;
+
+  SetLength(b, Length(a));
+  for i := 0 to length(a)-1 do
+    b[i] := a[high(a)-i];
+
+  for i := 1 to length(b) do begin
+    TestSequence(n+IntToStr(i),b);
+    j := b[0];
+    if Length(b) > 1 then
+      move(b[1],b[0],(Length(b)-1)*SizeOf(b[0]));
+    b[high(b)] := j;
+    {$IFDEF TEST_SKIP_SLOW}
+    break;
+    {$ENDIF}
+  end;
+end;
+
+procedure TTestRunnerList.RunTest(ACaller: TTestStorageMem);
+var
+  i1, i2: Integer;
+begin
+  Caller := ACaller;
+  for i1 := 0 to 2 do begin
+    for i2 := 0 to 3 do begin
+      GrowStep := i1 * 4;
+      case i2 of
+        0: ShrinkStep := -1;
+        1: ShrinkStep :=  1;
+        2: ShrinkStep :=  4;
+        3: ShrinkStep := 99;
+      end;
+
+      TestNew('');
+      //(*
+      TestSequence('XXX', [3,2,1,12,11,10,9,8,7,6,5,4]);
+      TestSequence('XXX', [4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3]);
+
+      TestSequenceEx('1', [1,2]);
+      TestSequenceEx('1', [1,2,3,4,5,6,7,8,9,10,11,12]);
+      TestSequenceEx('1', [1,99,2,98,3,97,4,96,5,95,6,94]);
+      TestSequenceEx('1', [1,2,3,4,5,6,7,8,9,10,11,12,-1]);
+      {$IFnDEF TEST_SKIP_SLOW}
+      TestSequenceEx('1', [1,2,99,98,3,4,97,96,5,6,95,94,7,8,93,92,9,10]);
+      TestSequenceEx('1', [1,2,3,4,5,6,7,8,9,10,-1]);
+      TestSequenceEx('1', [1,2,3,4,5,6,7,8,9,-1]);
+      TestSequenceEx('1', [1,2,3,4,5,6,7,8,-1]);
+      TestSequenceEx('1', [1,2,3,4,5,6,7,-1]);
+      TestSequenceEx('1', [1,2,3,4,5,6,-1]);
+      TestSequenceEx('1', [1,2,3,4,5,-1]);
+      TestSequenceEx('1', [1,2,3,4,-1]);
+      {$ENDIF}
+//      *)
+    end;
+  end;
+end;
+
+procedure TTestStorageMem.TestMem;
+var t: TTestListMem;
+begin
+  t.RunTest(Self);
+end;
+
+procedure TTestStorageMem.TestMemSpecialized;
+var t: TTestListMemSpecialized;
+begin
+  t.RunTest(Self);
+end;
+
+procedure TTestStorageMem.TestMemRound;
+var t: TTestListRoundMem;
+begin
+  t.RunTest(Self);
+end;
+
+procedure TTestStorageMem.TestMemRoundSpecialized;
+var t: TTestListRoundMemSpecialized;
+begin
+  t.RunTest(Self);
+end;
+
+procedure TTestStorageMem.TestMemPaged;
+var
+  t0: TTestListPagedMem0;
+  t1: TTestListPagedMem1;
+  t2: TTestListPagedMem2;
+  t3: TTestListPagedMem3;
+begin
+  t1.RunTest(Self);
+  t2.RunTest(Self);
+  t3.RunTest(Self);
+  t0.RunTest(Self);
+end;
+
+procedure TTestStorageMem.TestMemClass;
+const
+  TestVal: array[0..2] of Integer = (11, 22, 33);
+var
+  list: TLazDualCapacityList;
+begin
+  list := TLazDualCapacityList.Create(SizeOf(Integer));
+  list.Add(@TestVal[0]);
+  list.Insert(1, @TestVal[1]);
+  list.Insert(0, @TestVal[2]);
+
+  AssertEquals('', 33, PInteger(list.ItemPointer[0])^);
+  AssertEquals('', 11, PInteger(list.ItemPointer[1])^);
+  AssertEquals('', 22, PInteger(list.ItemPointer[2])^);
+
+  list.Free;
+end;
+
+type
+  TTestClass = specialize TLazGenDualCapacityList<Integer>;
+procedure TTestStorageMem.TestMemSpecializedClass;
+var
+  list: TTestClass;
+begin
+  list := TTestClass.Create;
+  list.Add(11);
+  list.Insert(1, 22);
+  list.Insert(0, 33);
+
+  AssertEquals('', 33, list.Items[0]);
+  AssertEquals('', 11, list.Items[1]);
+  AssertEquals('', 22, list.Items[2]);
+
+  list.Free;
+
+end;
+
+
+
+initialization
+
+  RegisterTest(TTestStorageMem);
+end.
+