fpc/packages/fcl-stl/tests/gmaptest.pp

{$mode objfpc}

unit gmaptest;

interface

uses fpcunit, testregistry, gmap, gutil;

type lesslli=specialize TLess<longint>;
     maplli=specialize TMap<longint,longint, lesslli>;

type TGMapTest = class(TTestCase)
  Published
    procedure MapTest;
  public
    procedure Setup;override;
  private 
    data:maplli;
  end;

implementation

procedure TGMapTest.MapTest;
var it:maplli.TIterator;
begin
  data[3]:=3;
  data[5]:=5;
  data[7]:=7;
  AssertEquals('Wrong min key', 3, data.min().GetData.key);
  AssertEquals('Wrong max key', 7, data.max().GetData.key);
  AssertEquals('Wrong min val', 3, data.min().GetData.value);
  AssertEquals('Wrong max val', 7, data.max().GetData.value);

  AssertEquals('Wrong val', 5, data[5]);

  data.delete(3);
  AssertEquals('Wrong min key', 5, data.min().GetData.key);
  AssertEquals('Wrong max key', 7, data.max().GetData.key);
  AssertEquals('Wrong min val', 5, data.min().GetData.value);
  AssertEquals('Wrong max val', 7, data.max().GetData.value);


  data[3]:=3;
  data[3]:=47;
  AssertEquals('Wrong val 2', 47, data[3]);

  if(data.find(4)<>nil) then 
    AssertEquals('Found key which not there', 0, 1);

  data[17]:=42;

  it:=data.min;
  AssertEquals('Wrong min', 3, it.Key);
  AssertEquals('Next not true', true, it.Next);
  AssertEquals('Wrong next', 5, it.Key);
  AssertEquals('Wrong next value', 5, it.Value);
  it.Value := it.Value + 17;
  AssertEquals('Wrong value update', 22, it.Value);
  it.MutableValue^:= 444;
  AssertEquals('Wrong mutable value update', 444, it.Value);
  AssertEquals('Next not true', true, it.Next);
  AssertEquals('Wrong next', 7, it.GetData.key);
  AssertEquals('Next not true', true, it.Next);
  AssertEquals('Wrong next', 17, it.GetData.key);
  AssertEquals('Next not false', false, it.Next);

  it:=data.max;
  AssertEquals('Wrong max', 17, it.GetData.key);
  AssertEquals('Prev not true', true, it.Prev);
  AssertEquals('Wrong prev', 7, it.GetData.key);
  AssertEquals('Prev not true', true, it.Prev);
  AssertEquals('Wrong prev', 5, it.GetData.key);
  AssertEquals('Prev not true', true, it.Prev);
  AssertEquals('Wrong prev', 3, it.GetData.key);
  AssertEquals('Prev not false', false, it.Prev);
end;

procedure TGMapTest.Setup;
begin
  data:=maplli.create;
end;

initialization
  RegisterTest(TGMapTest);
end.