DUnit : Vérifier qu'une exception est bien levée
Bonjour,
J'ai pas mal de fonctionnalités qui renvoient une exception lorsque un paramètre est passé à vide où ne correspond pas à quelque chose de valide.
Avec DUnit j'essaie de vérifier que ces fonctionnalités me renvoient bien une exception mais je n'y arrive pas.
Même ceci ne fonctionne pas. Le Except n'est jamais déclenché.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| TTest = class(TTestCase)
private
procedure RaiseException;
published
procedure Test1;
end;
procedure TExportPreTest.Test1;
var Found :Boolean
begin
Found := False;
try
RaiseException;
except
on E:Exception do
begin
Found := True;
CheckTrue(1=1);
end;
end;
if not(Found) then
CheckTrue(1=10);
end;
procedure TExportPreTest.RaiseException;
begin
raise Exception.Create('Une Exception');
end; |
Que dois-je utiliser pour vérifier le raise d'une exception
Edit : en farfouillant dans les sources, je viens de trouver la procédure "StartExpectingException". C'est ce qu'il faut utiliser apparement.