Horse.Exception - Preecher propriedade Message

Gostaria de sugerir uma alteração na Horse.Exception:

Acrescentar uma linha de código na função Error(), como exemplo abaixo:

function EHorseException.Error(const AValue: string): EHorseException;
begin
  FError := AValue;
  Self.Message := AValue; // Linha acrescentada
  Result := Self;
end;

Desta forma mantém compatibilidade com a classe Exception do Delphi.

Com isto será possível obter o texto do erro no campo mensagem, tornando possível validações em testes como no exemplo abaixo:

TTitulosModelTitulos.ObterTitulo

TestTTitulosModelTitulos.TestNaoObterTituloInexistente

Teste criado para DUnitX

Hoje a classe Assert compara o texto fornecido com e.Message: Assert.WillRaiseWithMessage

HashLoad / horse

Horse.Exception - Preecher propriedade Message #330