[fpc-pascal] TFPGMapObject duplicate errors

[Ryan Joseph via fpc-pascal]

I expected to get an assertion when I added the duplicate key "foo". What am I 
doing wrong?

type
  TSomeMap = specialize TFPGMapObject<String, TObject>;
var
  map: TSomeMap;
begin
  map := TSomeMap.Create(true);
  map.Duplicates := dupError;
  map.Add('foo', TObject.Create);
  map.Add('foo', TObject.Create);

Regards,
        Ryan Joseph

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal