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 : 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;
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.