Abort (TSterotypeClassTestSuite)

De Wiki1000
(Différences entre les versions)
(Page créée avec « <source lang='delphi'>procedure Abort(iCondition:boolean; const iMessage:string);</source> Cette opération teste une condition et génère une exception ETestAbort si la co… »)
 
 
Ligne 31 : Ligne 31 :
  
 
{{Footer|Classe de test (stereotype)}}
 
{{Footer|Classe de test (stereotype)}}
 +
 +
[[Category:Tests unitaires]]

Version actuelle en date du 15 mars 2013 à 09:26

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





Whos here now:   Members 0   Guests 1   Bots & Crawlers 0
 
Outils personnels