Check (TSterotypeClassTestSuite)

procedure Check(iCondition:boolean; const iMessage:string);

Cette opération teste une condition et génère une exception ETestFailure si la condition n'est pas vrai.

iCondition	Valeur boolean à tester
iMessage	Message de l'exception si la condition n'est pas remplie.

Exemple :

procedure TMyTest.TestSomething;
begin
  CleanAll;
  CreateSomePreConditionObjects;
  ExecuteTheProcessusInTest;
 
  Check(TProcessResultClass.Count<>0, 'Le processus n''a pas créé l''objet espéré');
end;

Voir aussi

• Stéréotype classe de test

— Classe de test (stereotype) — Développement DSM —