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