anchor.diff:    for o in list do
     begin
       if comparer.Compare(o,value) = 0 then
  -      Fail(Format('List contains value. %s',[message]), ReturnAddress);
  +      Fail(Format('List contains value %s. %s',[TValue.From<T>(value).ToString, message]), ReturnAddress);
     end;
   end;
   
  
positive.code:       exit;
    end;
  
    Fail(Format('List does not contain value. %s',[message]), ReturnAddress);
  end;
  
  class procedure Assert.Contains<T>(const arr : array of T; const value : T; const message : string = '');
  
negative.code:   for o in arr do
    begin
      if comparer.Compare(o,value) = 0 then
        Fail(Format('List contains value %s. %s',[TValue.From<T>(value).ToString, message]), ReturnAddress);
    end;
  end;
  {$ENDIF}
  