Abort (TSterotypeClassTestSuite)

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

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

Sur cette exception l'enchaînement de l'exécution des tests unitaires est interrompu.

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

Exemple :

//Procedure Test_1_drop_database;
var dbi:TDatabaseinfo;
begin
  dbi := ClassManager.DatabaseByURL(ClassManager.DefDatabaseURL);
  Abort(Assigned(dbi),'No database context');
  Abort(ClassManager.DropDatabase(dbi),'Drop database failed');
end;

Voir aussi

• Stéréotype classe de test

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