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é.
Que dois-je utiliser pour vérifier le raise d'une exception
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Edit : en farfouillant dans les sources, je viens de trouver la procédure "StartExpectingException". C'est ce qu'il faut utiliser apparement.
Partager