Abort (TSterotypeClassTestSuite)

De Wiki1000
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

Classe de test (stereotype)Développement DSM

Outils personnels